- sql function changeover stuff.

[infobot.git] / src / Files.pl

diff --git a/src/Files.pl b/src/Files.pl
index b302604d09a46c2b4e6f1bf4c4cae764a3ca86f9..75c52a1ffd4d5a898feec1dd95d64bfe6f1bc245 100644 (file)
--- a/src/Files.pl
+++ b/src/Files.pl
@@ -5,7 +5,11 @@
 #  Created: 19991221
 #
 
-if (&IsParam("useStrict")) { use strict; }
+use strict;
+
+use vars qw(%lang %ircPort);
+use vars qw(@ircServers);
+use vars qw($bot_config_dir);
 
 # File: Language support.
 sub loadLang {
@@ -14,7 +18,7 @@ sub loadLang {
     my $replyName;
 
     if (!open(FILE, $file)) {
-       &ERROR("FAILED loadLang ($file): $!");
+       &ERROR("Failed reading lang file ($file): $!");
        exit 0;
     }
 
@@ -49,12 +53,12 @@ sub loadLang {
 
 # File: Irc Servers list.
 sub loadIRCServers {
-    my ($file) = $bot_config_dir."/ircII.servers";
+    my ($file) = $bot_config_dir."/blootbot.servers";
     @ircServers = ();
     %ircPort = ();
 
     if (!open(FILE, $file)) {
-       &ERROR("FAILED loadIRCServers ($file): $!");
+       &ERROR("Failed reading server list ($file): $!");
        exit 0;
     }