server/rcon2irc/irc_nick_change.pl

   1 sub out($$@);
   2         # chat: IRC channel -> VoreTournament server, nick change
   3         [ irc => q{:([^! ]*)![^ ]* (?i:NICK) :(.*)} => sub {
   4                 my ($nick, $newnick) = @_;
   5                 $nick = color_dpfix $nick;
   6                         # allow the nickname to contain colors in DP format! Therefore, NO color_irc2dp on the nickname!
   7                 $newnick = color_irc2dp $newnick;
   8                 $newnick =~ s/(["\\])/\\$1/g;
   9                 out dp => 0, "rcon2irc_say_as \"* $nick on IRC\" \"is now known as $newnick\"";
  10                 return 0;
  11         } ],