6 require "src/logger.pl";
7 require "src/modules.pl";
10 require "src/Files.pl";
13 require "src/db_mysql.pl";
15 require "src/db_dbm.pl";
19 print "Usage: dbm2mysql <whatever dbm>\n";
20 print "Example: dbm2mysql.pl apt\n";
21 print "NOTE: suffix '-is' and '-extra' are used.\n";
29 ### open all the data...
30 &loadConfig("files/blootbot.config");
31 $dbname = $param{'DBName'};
32 my $dbh_mysql = MYSQL::openDB($param{'DBName'}, $param{'SQLUser'}, $param{'SQLPass'});
35 print "scalar db == '". scalar(keys %db) ."'.\n";
37 my ($ndef, $i) = (1,1);
39 foreach $factoid (keys %db) {
40 foreach (@DBM::extra_format) {
41 my $val = &DBM::getFactInfo($key, $_, $db{$key});
46 &MYSQL::setFactInfo($key, $_, $val); # fact, type, what
49 print "i=$i... " if ($i % 100 == 0);
50 print "ndef=$ndef... " if ($ndef % 1000 == 0);