dunno

[infobot.git] / scripts / dbm2mysql.pl

diff --git a/scripts/dbm2mysql.pl b/scripts/dbm2mysql.pl
index 48825b041ad9325a46f40783c487db501eb49abf..a199cf799da385536784ea2696ea8e3bc3e9c170 100755 (executable)
--- 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 <whatever dbm>\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