home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
2.x
/
plum2_15_2.lzh
/
module
/
channel
/
join
/
connect.plm
next >
Wrap
Text File
|
1998-01-13
|
3KB
|
89 lines
# <!-- -*- perl -*-
# $Id: connect.plm,v 2.1 1998/01/13 23:26:52 hasegawa Exp $
# copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package channel_join_connect;
$_ = 'channel_join_connect';
sub server_open {
local($serverno) = @_;
local($userno) = $'userno[$serverno];
if (!defined($joinlist[$userno])) {
$joinlist[$userno] = '';
foreach $chan (&'property($userno, 'channel')) {
foreach $name (split(/\,/, $chan)) {
$joinlist[$userno] = &'add($joinlist[$userno], &'real($name));
}
}
}
&'s_print($serverno, '', 'JOIN', join(',', &'array($joinlist[$userno]))) if $joinlist[$userno];
}
sub ss_join {
local($serverno, $prefix, $cmd, $chan) = @_;
local($name, $mode) = (split(/\cG/, $chan), '');
$joinlist[$'userno[$serverno]] = &'add($joinlist[$'userno[$serverno]], $name) if &'prefix($prefix) eq $'nick[$serverno];
return ($prefix, $cmd, $chan);
}
sub ss_kick {
local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
$joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan) if $who eq $'nick[$serverno];
return ($prefix, $cmd, $chan, $who,$msg);
}
sub ss_part {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
$joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan) if &'prefix($prefix) eq $'nick[$serverno];
return ($prefix, $cmd, $chan, $msg);
}
__END__
--><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE> channel/join/connect.plm </TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3> $BL>A0(B </H3>
channel/join/connect.plm - $B%5!<%P$K@\B3$7$?$H$-$K;XDj$7$?%A%c%s%M%k$KF~$k(B
<HR><H3> $B@bL@(B </H3>
$B%5!<%P$K@\B3$7$?$H$-$K!";XDj$7$?%A%c%s%M%k$KF~$j$^$9!#(B
$B%5!<%P$H$N@\B3$,@Z$l$F:F$S@\B3$7D>$7$?$H$-$O!"(B
$B;XDj$7$?%A%c%s%M%k$H$O4X78$J$/!"(B
$B@\B3$,@Z$l$kA0$KF~$C$F$$$?%A%c%s%M%k$KF~$j$^$9!#(B
<HR><H3> $B%W%m%Q%F%#(B </H3>
<DL>
<DT> channel.join.connect.channel* ($B%A%c%s%M%k(B)
<DD> $B%5!<%P$K@\B3$7$?$H$-$KF~$k%A%c%s%M%k$r;XDj$7$^$9!#(B
</DL>
<HR><H3> $B@_DjNc(B </H3>
<PRE>
+ channel/join/connect.plm
channel.join.connect.channel: #$B$^$I$+(B
</PRE>
$B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+!W$KF~$j$^$9!#(B
<PRE>
+ channel/join/connect.plm
channel.join.connect.channel: #$B$^$I$+(B:*.jp,#$B$W$i$`(B:*.jp
channel.join.connect.channel: #$B$W$i$`(B
</PRE>
$B%5!<%P$K@\B3$7$?$H$-$K!"!V(B#$B$^$I$+(B:*.jp$B!W!"!V(B#$B$W$i$`(B:*.jp$B!W!"(B
$B!V(B#$B$W$i$`!W$N(B3$B$D$N%A%c%s%M%k$KF~$j$^$9!#(B
</BODY></HTML>