Diff for scripts/ep/atl2ircwrap/atl2irc.pl between version 1.1 and 1.2
| version 1.1, 2002/10/15 09:40:11 |
version 1.2, 2002/10/16 07:36:21 |
| Line 68 while (<STDIN>) { |
|
| Line 68 while (<STDIN>) { |
|
| $_ = ':' . $1 . $OTHID . " AWAY :\n"; |
$_ = ':' . $1 . $OTHID . " AWAY :\n"; |
| } |
} |
| |
|
| |
if ($_ =~ /^([a-zA-Z]+) (.*)/) { |
| |
$_ = ':' . $1 . $OTHID. ' PRIVMSG #' . $MYLOCATION . ' :ACTION '. $3 . "\n"; |
| |
} |
| |
|
| # using JOIN instead of sending list of names - list would need buffering |
# using JOIN instead of sending list of names - list would need buffering |
| if ($_ =~ /^ ([^ ]*) (.*)/) { |
if ($_ =~ /^ ([^ ]*) (.*)/) { |
| #$_ = ':'.$SERVID .'353'.$MYNICK .'= #'.$MYLOCATION.' :'.$MYNICK . |
#$_ = ':'.$SERVID .'353'.$MYNICK .'= #'.$MYLOCATION.' :'.$MYNICK . |
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to