More fallout from the General.bm split. Change the IRC name to r=imajes.

This commit is contained in:
ian%hixie.ch 2002-03-08 19:40:27 +00:00
Родитель c8fba971f8
Коммит 0d0352ed11
2 изменённых файлов: 5 добавлений и 3 удалений

Просмотреть файл

@ -8,7 +8,7 @@ use vars qw(@ISA);
@ISA = qw(BotModules);
1;
my $VERSION = '2.1';
my $VERSION = '2.2';
# RegisterConfig - Called when initialised, should call registerVariables
sub RegisterConfig {
@ -57,6 +57,8 @@ sub Told {
$self->say($event, "No help for topic '$1'.");
}
} else {
# XXX amusingly, $helpline is defined here, because this
# entire module is evaluated in the scope of mozbot.pl.
$self->directSay($event, "Help topics for mozbot $VERSION ($helpline):");
$self->say($event, "$event->{'from'}: help info /msg'ed") if ($event->{'channel'});
local @" = ', '; # to reset font-lock: "

Просмотреть файл

@ -287,7 +287,7 @@ sub connect {
Server => $server,
Port => $port,
Nick => $nicks[$nick],
Ircname => "mozbot; $helpline",
Ircname => "[mozbot] $helpline",
Username => $USERNAME,
LocalAddr => $localAddr,
)) {
@ -297,7 +297,7 @@ sub connect {
} else {
&debug("Try editing '$cfgfile' to set 'localAddr' to the address of the interface to use.");
}
$mailed = &Mails::ServerDown($server, $port, $localAddr, $nicks[$nick], "mozbot; $helpline", $nicks[0]) unless $mailed;
$mailed = &Mails::ServerDown($server, $port, $localAddr, $nicks[$nick], "[mozbot] $helpline", $nicks[0]) unless $mailed;
sleep($sleepdelay);
&Configuration::Get($cfgfile, &configStructure(\$server, \$port, \@nicks, \$nick, \$owner, \$sleepdelay));
&debug("connecting to $server:$port...");