[nexuiz-commits] r7894 - trunk/server/rcon2irc
DONOTREPLY at icculus.org
DONOTREPLY at icculus.org
Thu Sep 24 10:41:14 EDT 2009
Author: div0
Date: 2009-09-24 10:41:13 -0400 (Thu, 24 Sep 2009)
New Revision: 7894
Modified:
trunk/server/rcon2irc/rbiserver.pl
trunk/server/rcon2irc/rcon2irc.pl
Log:
more rcon2irc fun
Modified: trunk/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/server/rcon2irc/rbiserver.pl 2009-09-24 13:18:43 UTC (rev 7893)
+++ trunk/server/rcon2irc/rbiserver.pl 2009-09-24 14:41:13 UTC (rev 7894)
@@ -93,12 +93,19 @@
out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick refuses to tell us which file is modified\001";
return 0;
} ],
+[ dp => q{pure: \*DETAIL_CVAR (.*) (\S+) (.*)$} => sub {
+ my ($nick, $cvar, $value) = @_;
+ $nick = color_dp2irc $nick;
+ out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick has changed $cvar to $value\001";
+ return 0;
+} ],
[ dp => q{:recordset:(\d+):.*} => sub {
my ($id) = @_;
my $ip = $store{"playerip_byid_$id"};
my $slot = $store{"playerslot_byid_$id"};
my $name = $config{irc_nick};
$name =~ s/Nex//; # haggerNexCTF -> haggerCTF
+ $name =~ s/^rm/hagger/g; # rmRace -> haggerRace
my $map = $store{map};
$map =~ s/^[a-z]*_//;
$ip =~ s/\./-/g;
Modified: trunk/server/rcon2irc/rcon2irc.pl
===================================================================
--- trunk/server/rcon2irc/rcon2irc.pl 2009-09-24 13:18:43 UTC (rev 7893)
+++ trunk/server/rcon2irc/rcon2irc.pl 2009-09-24 14:41:13 UTC (rev 7894)
@@ -201,10 +201,10 @@
my $oldcolor = $color;
$color = $color_dp2irc_table[$data];
- $color == $oldcolor ? '' :
- $color < 0 ? "\017" :
- index '0123456789,', $next ? "\003$color\002\002" :
- "\003$color";
+ $color == $oldcolor ? '' :
+ $color < 0 ? "\017" :
+ (index '0123456789,', $next) >= 0 ? "\003$color\002\002" :
+ "\003$color";
} :
die "Invalid type";
}
More information about the nexuiz-commits
mailing list