another fix for refresh and report errors
[perl-cwmp.git] / bin / dump.pl
1 #!/usr/bin/perl -w
2
3 # dump.pl
4 #
5 # 06/22/07 16:23:05 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7 use strict;
8 use DBM::Deep;
9 use Data::Dump qw/dump/;
10
11 my $path = shift @ARGV || 'state.db'; #die "usage: $0 state.db";
12
13 my $db = DBM::Deep->new(
14         file => $path,
15 );
16
17 warn "file: $path\n";
18 print dump( $db );