xonotic/server/rcon2irc/irc_nick_change.pl

sub out($$@);
	# chat: IRC channel -> Xonotic server, nick change
 	[ irc => q{:([^! ]*)![^ ]* (?i:NICK) :(.*)} => sub {
 		my ($nick, $newnick) = @_;
 		$nick = color_dpfix $nick;
 			# allow the nickname to contain colors in DP format! Therefore, NO color_irc2dp on the nickname!
 		$newnick = color_irc2dp $newnick;
 		$newnick =~ s/(["\\])/\\$1/g;
 		out dp => 0, "rcon2irc_say_as \"* $nick on IRC\" \"is now known as $newnick\"";
 		return 0;
 	} ],
initial checkin from nexuiz svn r8756 2010-03-18 13:22:15 +00:00			`sub out($$@);`
rm'd further nex-havoc references replace nex with xonotic in a lot of places 2010-03-30 20:55:57 +00:00			`# chat: IRC channel -> Xonotic server, nick change`
initial checkin from nexuiz svn r8756 2010-03-18 13:22:15 +00:00			`[ irc => q{:([^! ])![^ ] (?i:NICK) :(.*)} => sub {`
			`my ($nick, $newnick) = @_;`
			`$nick = color_dpfix $nick;`
			`# allow the nickname to contain colors in DP format! Therefore, NO color_irc2dp on the nickname!`
			`$newnick = color_irc2dp $newnick;`
			`$newnick =~ s/(["\\])/\\$1/g;`
			`out dp => 0, "rcon2irc_say_as \"* $nick on IRC\" \"is now known as $newnick\"";`
			`return 0;`
			`} ],`