X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fdbm2mysql.pl;h=a199cf799da385536784ea2696ea8e3bc3e9c170;hb=e4a9397b50848fd83f084324176e2afbaeaa241f;hp=48825b041ad9325a46f40783c487db501eb49abf;hpb=1c0a2202fe58159dd4d4197c4ff8b21f9387685e;p=infobot.git diff --git a/scripts/dbm2mysql.pl b/scripts/dbm2mysql.pl index 48825b0..a199cf7 100755 --- a/scripts/dbm2mysql.pl +++ b/scripts/dbm2mysql.pl @@ -10,11 +10,12 @@ require "src/Misc.pl"; require "src/Files.pl"; &loadDBModules(); require "src/dbi.pl"; + package main; # todo: main() -if (!scalar @ARGV) { +if ( !scalar @ARGV ) { print "Usage: dbm2mysql \n"; print "Example: dbm2mysql.pl apt\n"; print "NOTE: suffix '-is' and '-extra' are used.\n"; @@ -26,7 +27,7 @@ my $key; my %db; # open dbm. -if (!dbmopen(%db, $dbfile, 0666)) { +if ( !dbmopen( %db, $dbfile, 0666 ) ) { &ERROR("Failed open to dbm file ($dbfile)."); exit 1; } @@ -35,24 +36,31 @@ if (!dbmopen(%db, $dbfile, 0666)) { # open all the data... &loadConfig("files/infobot.config"); $dbname = $param{'DBName'}; -my $dbh_mysql = sqlOpenDB($param{'DBName'}, - $param{'DBType'}, $param{'SQLUser'}, $param{'SQLPass'}); -print "DEBUG: scalar db == '". scalar(keys %db) ."'.\n"; +my $dbh_mysql = sqlOpenDB( + $param{'DBName'}, $param{'DBType'}, + $param{'SQLUser'}, $param{'SQLPass'} +); +print "DEBUG: scalar db == '" . scalar( keys %db ) . "'.\n"; my $factoid; my $ndef = 1; -my $i = 1; -foreach $factoid (keys %db) { - &sqlReplace("factoids", { - factoid_key => $_, - factoid_value => $db{$_}, - } ); +my $i = 1; +foreach $factoid ( keys %db ) { + &sqlReplace( + "factoids", + { + factoid_key => $_, + factoid_value => $db{$_}, + } + ); $i++; - print "i=$i... " if ($i % 100 == 0); - print "ndef=$ndef... " if ($ndef % 1000 == 0); + print "i=$i... " if ( $i % 100 == 0 ); + print "ndef=$ndef... " if ( $ndef % 1000 == 0 ); } print "Done.\n"; &closeDB(); dbmclose(%db); + +# vim:ts=4:sw=4:expandtab:tw=80