while (<FILE>) {
chop;
- if ($_ eq "" || /^#/) {
+ if ($_ eq '' || /^#/) {
undef $replyName;
next;
}
close FILE;
$file =~ s/^.*\///;
- &status("Loaded lang $file ($langCount items)");
+ &status("Loaded $file ($langCount items)");
}
# File: Irc Servers list.
sub loadIRCServers {
- my ($file) = $bot_config_dir."/blootbot.servers";
+ my ($file) = $bot_config_dir."/infobot.servers";
@ircServers = ();
%ircPort = ();
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;
+
+# vim:ts=4:sw=4:expandtab:tw=80