[pastebot-cvs] pastebot/Client IRC.pm,1.16,1.17

[<rc...@us...>]

Update of /cvsroot/pastebot/pastebot/Client
In directory sc8-pr-cvs1:/tmp/cvs-serv8737/Client

Modified Files:
	IRC.pm 
Log Message:
Applied Jeremy Mates' patches.  They add more robust URL handling,
better X-Forwarded-For support, line counts to the on-channel
announcement, and cleaner channel list building code.


Index: IRC.pm
===================================================================
RCS file: /cvsroot/pastebot/pastebot/Client/IRC.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** IRC.pm	30 Nov 2003 17:27:17 -0000	1.16
--- IRC.pm	22 Dec 2003 06:38:41 -0000	1.17
***************
*** 338,342 ****
  
          announce => sub {
!           my ($kernel, $heap, $channel, $message) = @_[KERNEL, HEAP, ARG0, ARG1];
            $kernel->post( $server => privmsg => $channel => $message );
          },
--- 338,343 ----
  
          announce => sub {
!           my ($kernel, $heap, $channel, $message) =
!             @_[KERNEL, HEAP, ARG0, ARG1];
            $kernel->post( $server => privmsg => $channel => $message );
          },