From 06416493adb75083169f37729083470aae2848cc Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 18 Nov 2003 04:07:54 +0000
Subject: [PATCH] - someone contacted me. looked at this script and it was
 broken. now   fixed, I hope.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@900 c11ca15a-4712-0410-83d8-924469b57eb5
---
 scripts/dbm2mysql.pl | 37 +++++++++++++------------------------
 1 file changed, 13 insertions(+), 24 deletions(-)

diff --git a/scripts/dbm2mysql.pl b/scripts/dbm2mysql.pl
index d9f6c31..922bbb5 100755
--- a/scripts/dbm2mysql.pl
+++ b/scripts/dbm2mysql.pl
@@ -12,6 +12,8 @@ require "src/Files.pl";
 require "src/dbi.pl";
 package main;
 
+# todo: main()
+
 if (!scalar @ARGV) {
     print "Usage: dbm2mysql <whatever dbm>\n";
     print "Example: dbm2mysql.pl apt\n";
@@ -24,40 +26,27 @@ my $key;
 my %db;
 
 # open dbm.
-if (dbmopen(%{ $dbm }, $dbfile, 0666)) {
-    &status("::: opening dbm file: $dbfile");
-} else {
+if (!dbmopen(%db, $dbfile, 0666)) {
     &ERROR("Failed open to dbm file ($dbfile).");
     exit 1;
 }
+&status("::: opening dbm file: $dbfile");
 
-### open all the data...
+# open all the data...
 &loadConfig("files/blootbot.config");
 $dbname = $param{'DBName'};
 my $dbh_mysql = sqlOpenDB($param{'DBName'},
 	$param{'DBType'}, $param{'SQLUser'}, $param{'SQLPass'});
+print "DEBUG: scalar db == '". scalar(keys %db) ."'.\n";
 
-print "scalar db == '". scalar(keys %db) ."'.\n";
-
-my ($ndef, $i) = (1,1);
 my $factoid;
+my $ndef = 1;
+my $i = 1;
 foreach $factoid (keys %db) {
-    # blootbot dbm to sql support:
-    if (0) {
-	foreach (@DBM::extra_format) {
-#	    my $val = &getFactInfo($key, $_, $db{$key});
-	    if (!defined $val) {
-		$ndef++;
-		next;
-	    }
-	}
-    } else {
-	# infobot dbm to blootbot sql support.
-	&sqlReplace("factoids", {
-		factoid_key	=> $_,
-		factoid_value	=> $db{$_},
-	} );
-    }
+    &sqlReplace("factoids", {
+	factoid_key	=> $_,
+	factoid_value	=> $db{$_},
+    } );
 
     $i++;
     print "i=$i... " if ($i % 100 == 0);
@@ -66,4 +55,4 @@ foreach $factoid (keys %db) {
 
 print "Done.\n";
 &closeDB();
-dbmclose(%{ $dbm });
+dbmclose(%db);
-- 
2.39.5