[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