6 require "src/logger.pl";
7 require "src/modules.pl";
10 require "src/Files.pl";
16 print "Usage: dbm2mysql <whatever dbm>\n";
17 print "Example: dbm2mysql.pl apt\n";
18 print "NOTE: suffix '-is' and '-extra' are used.\n";
27 if (dbmopen(%{ $dbm }, $dbfile, 0666)) {
28 &status("::: opening dbm file: $dbfile");
30 &ERROR("Failed open to dbm file ($dbfile).");
34 ### open all the data...
35 &loadConfig("files/blootbot.config");
36 $dbname = $param{'DBName'};
37 my $dbh_mysql = sqlOpenDB($param{'DBName'},
38 $param{'DBType'}, $param{'SQLUser'}, $param{'SQLPass'});
40 print "scalar db == '". scalar(keys %db) ."'.\n";
42 my ($ndef, $i) = (1,1);
44 foreach $factoid (keys %db) {
45 # blootbot dbm to sql support:
47 foreach (@DBM::extra_format) {
48 # my $val = &getFactInfo($key, $_, $db{$key});
55 # infobot dbm to blootbot sql support.
56 &sqlReplace("factoids", {
58 factoid_value => $db{$_},
63 print "i=$i... " if ($i % 100 == 0);
64 print "ndef=$ndef... " if ($ndef % 1000 == 0);