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 = ();
close FILE;
$file =~ s/^.*\///;
- &status("Loaded ircServers $file (". scalar(@ircServers) ." servers)");
+ &status("Loaded $file (". scalar(@ircServers) ." servers)");
}
1;