-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{$_},
- } );
- }
+my $ndef = 1;
+my $i = 1;
+foreach $factoid ( keys %db ) {
+ &sqlReplace(
+ "factoids",
+ {
+ factoid_key => $_,
+ factoid_value => $db{$_},
+ }
+ );