/[wopi2]/trunk/dump.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/dump.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Wed Jun 23 11:56:27 2004 UTC revision 5 by dpavlin, Fri Jun 25 16:16:08 2004 UTC
# Line 6  use DBM::Deep; Line 6  use DBM::Deep;
6  use Data::Dumper;  use Data::Dumper;
7  use XML::Simple;  use XML::Simple;
8    
9  my $db = new DBM::Deep 'wopi.db' || die "can't open db";  my $db = new DBM::Deep '/tmp/wopi.db' || die "can't open db";
10    
11    die "can't open db" if (! defined($db));
12    
13  if (lc(shift) =~ /xml/) {  if (lc(shift) =~ /xml/) {
14          print XMLout($db);          print XMLout($db);
Legend:
Removed from v.1  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26