X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=forum%2Fdumpbase;h=4d3902a4e62b51905aaf9ed9405836c852ade767;hb=bfbaf89f58780359d1a36f9956b47a8189e558d2;hp=1652e6a985f9c5aa59d2c39dbfb05799dc581dcd;hpb=07b26cc8c68fec7ce82e3cab703b676228f07da4;p=oss%2Fstilllife.git

diff --git a/forum/dumpbase b/forum/dumpbase
index 1652e6a..4d3902a 100644
--- a/forum/dumpbase
+++ b/forum/dumpbase
@@ -1,10 +1,17 @@
 #!/usr/bin/perl
-
+use strict;
 use Data::Dumper;
 use Storable qw(thaw);
-
+use Getopt::Std;
+use vars qw($opt_d);
+getopts("d:");
+my %x;
 dbmopen %x,$ARGV[0],0644;
 
+if ($opt_d) {
+	delete $x{$opt_d};
+}	
+
 while (my ($key,$val) = each %x) {
 	my $data;
 	eval {
@@ -17,3 +24,5 @@ while (my ($key,$val) = each %x) {
 	}	
 	print $data,"\n";
 }	
+
+dbmclose %x;