# Created: 19991221
#
-if (&IsParam("useStrict")) { use strict; }
+#use strict;
# File: Language support.
sub loadLang {
my $replyName;
if (!open(FILE, $file)) {
- &ERROR("FAILED loadLang ($file): $!");
+ &ERROR("Failed reading lang file ($file): $!");
exit 0;
}
# File: Irc Servers list.
sub loadIRCServers {
- my ($file) = @_;
+ 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;
}