6 require "src/logger.pl";
7 require "src/modules.pl";
10 require "src/Files.pl";
18 if ( !scalar @ARGV ) {
19 print "Usage: dbm2mysql <whatever dbm>\n";
20 print "Example: dbm2mysql.pl apt\n";
21 print "NOTE: suffix '-is' and '-extra' are used.\n";
30 if ( !dbmopen( %db, $dbfile, 0666 ) ) {
31 &ERROR("Failed open to dbm file ($dbfile).");
34 &status("::: opening dbm file: $dbfile");
36 # open all the data...
37 &loadConfig("files/infobot.config");
38 $dbname = $param{'DBName'};
39 my $dbh_mysql = sqlOpenDB(
40 $param{'DBName'}, $param{'DBType'},
41 $param{'SQLUser'}, $param{'SQLPass'}
43 print "DEBUG: scalar db == '" . scalar( keys %db ) . "'.\n";
48 foreach $factoid ( keys %db ) {
53 factoid_value => $db{$_},
58 print "i=$i... " if ( $i % 100 == 0 );
59 print "ndef=$ndef... " if ( $ndef % 1000 == 0 );
66 # vim:ts=4:sw=4:expandtab:tw=80