RepoMirrors/xonotic
1
0
Fork 0
mirror of https://gitlab.com/xonotic/xonotic synced 2024-12-15 03:15:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

actually base of most recent version

Browse Source
This commit is contained in:
Merlijn Hofstra 2010-05-08 14:23:06 +02:00
parent 7ef2094c74
commit 5074d54a78
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
server/rcon2irc/rcon2irc.pl
View File

@ -1293,6 +1293,18 @@ sub cond($)
[ irc => q{:[^ ]* 001 .*} => sub {
$store{irc_seen_welcome} = 1;
$store{irc_nick} = $store{irc_nick_requested};
# If users for quakenet are listed, parse them into a hash and schedule a sub to query information
if ($config{irc_quakenet_authusers} ne '') {
$store{irc_quakenet_users} = { map { $_ => 1 } split / /, $config{irc_quakenet_authusers} };
schedule sub {
my ($timer) = @_;
out irc => 0, "PRIVMSG Q :users " . $config{irc_channel};
schedule $timer => 300;;
} => 1;
}
return irc_joinstage(0);
} ],
@ -1688,17 +1700,6 @@ for my $p(split ' ', $config{plugins})
}
# If users for quakenet are listed, parse them into a hash and schedule a sub to query information
if ($config{irc_quakenet_authusers} ne '') {
$store{irc_quakenet_users} = { map { $_ => 1 } split / /, $config{irc_quakenet_authusers} };
schedule sub {
my ($timer) = @_;
out irc => 0, "PRIVMSG Q :users " . $config{irc_channel};
schedule $timer => 300;;
} => 1;
}
# verify that the server is up by letting it echo back a string that causes
# re-initialization of the required aliases