[nexuiz-commits] r6771 - trunk/server/rcon2irc
DONOTREPLY at icculus.org
DONOTREPLY at icculus.org
Mon May 25 11:36:38 EDT 2009
Author: div0
Date: 2009-05-25 11:36:38 -0400 (Mon, 25 May 2009)
New Revision: 6771
Modified:
trunk/server/rcon2irc/rbiserver.pl
trunk/server/rcon2irc/rcon2irc.pl
Log:
same rcon change
Modified: trunk/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/server/rcon2irc/rbiserver.pl 2009-05-25 15:36:13 UTC (rev 6770)
+++ trunk/server/rcon2irc/rbiserver.pl 2009-05-25 15:36:38 UTC (rev 6771)
@@ -77,7 +77,8 @@
[ dp => q{pure: -(\S+) (.*)} => sub {
my ($status, $nick) = @_;
$nick = color_dp2irc $nick;
- out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick is $status\001";
+ out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick is $status\001"
+ unless $status eq 'MODIFIED'; # in this case, either DETAIL_TIMEOUT or DETAIL_MISMATCH follows
return 0;
} ],
[ dp => q{pure: \*DETAIL_MISMATCH (.*) (\S+)$} => sub {
Modified: trunk/server/rcon2irc/rcon2irc.pl
===================================================================
--- trunk/server/rcon2irc/rcon2irc.pl 2009-05-25 15:36:13 UTC (rev 6770)
+++ trunk/server/rcon2irc/rcon2irc.pl 2009-05-25 15:36:38 UTC (rev 6771)
@@ -466,7 +466,7 @@
my ($self, $line, $nothrottle) = @_;
if($self->{secure})
{
- my $t = sprintf "%ld", time();
+ my $t = sprintf "%ld.%06d", time(), int rand 1000000;
my $key = Digest::HMAC::hmac("$t $line", $self->{password}, \&Digest::MD4::md4);
return $self->{connector}->send("\377\377\377\377srcon HMAC-MD4 TIME $key $t $line");
}
More information about the nexuiz-commits
mailing list