# 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 {
close FILE;
$file =~ s/^.*\///;
- &status("Loaded lang $file ($langCount items)");
+ &status("Loaded $file ($langCount items)");
}
# File: Irc Servers list.
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;