ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/schmorp-irc.ext
(Generate patch)

Comparing deliantra/maps/perl/schmorp-irc.ext (file contents):
Revision 1.18 by root, Sun Oct 1 23:57:54 2006 UTC vs.
Revision 1.19 by root, Sun Nov 26 02:37:53 2006 UTC

… …
21 21
22sub do_notice { 22sub do_notice {
23 my ($msg) = @_; 23 my ($msg) = @_;
24 $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN) 24 $CON->send_chan ($BOTCHAN, NOTICE => $msg, $BOTCHAN)
25 if $CON; 25 if $CON;
26}
27
28sub users {
29 $CON
30 ? grep $_ ne $CON->nick, keys %{ $CON->channel_list->{$BOTCHAN} || {} }
31 : ()
26} 32}
27 33
28sub handle_fcmd { 34sub handle_fcmd {
29 my ($name, $me, $msg) = @_; 35 my ($name, $me, $msg) = @_;
30 36

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines