2 # Files.pl: Open and close, read and probably write files.
4 # Version: v0.3 (20010120)
10 # File: Language support.
16 if (!open(FILE, $file)) {
17 &ERROR("Failed reading lang file ($file): $!");
21 undef %lang; # for rehash.
25 if ($_ eq "" || /^#/) {
37 &status("loadLang: bad line ('$_')");
41 $lang{$replyName}{$_} = 1;
47 &status("Loaded lang $file ($langCount items)");
50 # File: Irc Servers list.
52 my ($file) = $bot_config_dir."/blootbot.servers";
56 if (!open(FILE, $file)) {
57 &ERROR("Failed reading server list ($file): $!");
66 if (/^(\S+)(:(\d+))?$/) {
68 $ircPort{$1} = ($3 || 6667);
70 &status("loadIRCServers: invalid line => '$_'.");
76 &status("Loaded ircServers $file (". scalar(@ircServers) ." servers)");