# 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 {
my $replyName;
if (!open(FILE, $file)) {
- &ERROR("FAILED loadLang ($file): $!");
+ &ERROR("Failed reading lang file ($file): $!");
exit 0;
}
close FILE;
$file =~ s/^.*\///;
- &status("Loaded lang $file ($langCount items)");
+ &status("Loaded $file ($langCount items)");
}
# File: Irc Servers list.
sub loadIRCServers {
- my ($file) = $bot_misc_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;
}
next if /^\s*$/;
next if /^[\#\[ ]/;
- if (/^(\S+)(:(\d+))?$/) {
+ if (/^\s*(\S+?)(:(\d+))?\s*$/) {
push(@ircServers,$1);
$ircPort{$1} = ($3 || 6667);
} else {
close FILE;
$file =~ s/^.*\///;
- &status("Loaded ircServers $file (". scalar(@ircServers) ." servers)");
+ &status("Loaded $file (". scalar(@ircServers) ." servers)");
}
1;