[SimBot-commits] CVS: simbot/tools dbdump.pl,NONE,1.1 dbrestore.pl,NONE,1.1

[Kevin S. <ks...@us...>]

Update of /cvsroot/simbot/simbot/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4159/tools

Added Files:
	dbdump.pl dbrestore.pl 
Log Message:
missed moving info to data/... I also moved dbdump/dbrestore to tools/

--- NEW FILE: dbdump.pl ---
#!/usr/bin/perl -w

$file = $ARGV[0];

dbmopen(%db, $file, 0665) || die $!;

while(($key, $val) = each %db) {
    print "$key => $val\n";
}

dbmclose(%db);

--- NEW FILE: dbrestore.pl ---
#!/usr/bin/perl -w

$file = $ARGV[0];
$dbname = $file;
$dbname =~ s/\..*?$//;

open(DBDUMP, $file) || die $!;
dbmopen(%db, $dbname, 0665) || die $!;

while(<DBDUMP>) {
	chomp;
	($key, $value) = split(" => ");
    $db{$key} = $value;
}

dbmclose(%db);
close(DBDUMP);