5 require "src/logger.pl";
9 require "src/Files.pl";
11 require "src/Factoids/db_mysql.pl";
13 require "src/Factoids/db_dbm.pl";
17 print "Usage: dbm2mysql <whatever dbm>\n";
18 print "Example: dbm2mysql.pl apt\n";
19 print "NOTE: suffix '-is' and '-extra' are used.\n";
27 ### open all the data...
28 &loadConfig("files/infobot.config");
29 $dbname = $param{'DBFile'};
30 my $dbh_mysql = MYSQL::openDB();
33 print "scalar db == '". scalar(keys %db) ."'.\n";
35 my ($ndef, $i) = (1,1);
37 foreach $factoid (keys %db) {
38 foreach (@DBM::extra_format) {
39 my $val = &DBM::getFactInfo($key, $_, $db{$key});
44 &MYSQL::setFactInfo($key, $_, $val); # fact, type, what
47 print "i=$i... " if ($i % 100 == 0);
48 print "ndef=$ndef... " if ($ndef % 1000 == 0);