modify for new debian release

[infobot.git] / scripts / factpack.pl

diff --git a/scripts/factpack.pl b/scripts/factpack.pl
index 6bb60d9fed82562d15b51979becef8756a56a9f1..6a6e60c282524ece08497039f4966f6fb8091c29 100755 (executable)
--- a/scripts/factpack.pl
+++ b/scripts/factpack.pl
@@ -3,6 +3,7 @@
 $| = 1;
 
 use strict;
+use File::Basename;
 use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
   $bot_data_dir $bot_config_dir $bot_log_dir $bot_run_dir
     $bot_pid $memusage %param
@@ -69,10 +70,13 @@ foreach (@ARGV) {
         $key =~ s/\t/ /g;
         $value =~ s/\t/ /g;
 
+        # The key needs to be lower case to match query case
+        $key = lc $key;
+
         ### TODO: check if it already exists. if so, don't add.
         ### TODO: combine 2 setFactInfo's into single
         &setFactInfo( $key, "factoid_value", $value );
-        &setFactInfo( $key, "created_by", $file );
+        &setFactInfo( $key, "created_by", basename($file) );
         print ":: $key ";
     }