home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
2.x
/
plum2_28_2.lzh
/
module
/
channel
/
join
/
connect.plm
next >
Wrap
Text File
|
1998-10-15
|
3KB
|
95 lines
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
# $Id: connect.plm,v 2.6 1998/07/18 12:15:11 hasegawa Exp $
# copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package channel_join_connect;
$_ = 'channel_join_connect';
sub server_open {
local($serverno) = @_;
local($userno);
$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, @params) = @_;
local($name, $mode);
($name, $mode) = (split(/\cG/, $params[0]), '');
$joinlist[$'userno[$serverno]] = &'add($joinlist[$'userno[$serverno]], $name) if &'prefix($prefix) eq $'nick[$serverno];
return ($prefix, $cmd, @params);
}
sub ss_kick {
local($serverno, $prefix, $cmd, @params) = @_;
$joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $params[0]) if $params[1] eq $'nick[$serverno];
return ($prefix, $cmd, @params);
}
sub ss_part {
local($serverno, $prefix, $cmd, @params) = @_;
$joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $params[0]) if &'prefix($prefix) eq $'nick[$serverno];
return ($prefix, $cmd, @params);
}
__END__
--><HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
<LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
<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)
</DT>
<DD> $B%5!<%P$K@\B3$7$?$H$-$KF~$k%A%c%s%M%k$r;XDj$7$^$9!#(B
</DD>
</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>