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
/
mode
/
oper
/
get.plm
next >
Wrap
Text File
|
1997-11-16
|
3KB
|
97 lines
# <!-- -*- perl -*-
# $Id: get.plm,v 2.1 1997/11/17 00:04:40 hasegawa Exp $
# copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package channel_mode_oper_get;
$_ = 'channel_mode_oper_get';
sub ss_join {
local($serverno, $prefix, $cmd, $chan) = @_;
local($userno, $nick, $name, $mode);
$userno = $'userno[$serverno];
$nick = &'prefix($prefix);
($name, $mode) = (split(/\cG/, $chan), '');
if ($nick eq $'nick[$serverno] && index($mode, 'o') != -1) {
if ($'nameslist{$userno, $name} eq &'list($nick) || $'nameslist{$userno, $name} eq &'list("+$nick")) {
&'s_print($serverno, '', 'PART', $name);
&'s_print($serverno, '', 'JOIN', $name);
}
}
return ($prefix, $cmd, $chan);
}
sub ss_kick {
local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
local($userno) = $'userno[$serverno];
if ($who ne $'nick[$serverno]) {
if ($'nameslist{$userno, $chan} eq &'list($'nick[$serverno]) || $'nameslist{$userno, $chan} eq &'list("+$'nick[$serverno]")) {
&'s_print($serverno, '', 'PART', $chan);
&'s_print($serverno, '', 'JOIN', $chan);
}
}
return ($prefix, $cmd, $chan, $who, $msg);
}
sub ss_part {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
local($userno, $nick);
$userno = $'userno[$serverno];
$nick = &'prefix($prefix);
if ($nick ne $'nick[$serverno]) {
if ($'nameslist{$userno, $chan} eq &'list($'nick[$serverno]) || $'nameslist{$userno, $chan} eq &'list("+$'nick[$serverno]")) {
&'s_print($serverno, '', 'PART', $chan);
&'s_print($serverno, '', 'JOIN', $chan);
}
}
return ($prefix, $cmd, $chan, $msg);
}
sub ss_quit {
local($serverno, $prefix, $cmd, $msg) = @_;
local($userno, $nick);
$userno = $'userno[$serverno];
$nick = &'prefix($prefix);
foreach $chan (&'array($'channellist[$userno])) {
if ($'nameslist{$userno, $chan} eq &'list($'nick[$serverno]) || $'nameslist{$userno, $chan} eq &'list("+$'nick[$serverno]")) {
&'s_print($serverno, '', 'PART', $chan);
&'s_print($serverno, '', 'JOIN', $chan);
}
}
return ($prefix, $cmd, $msg);
}
__END__
--><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE> channel/mode/oper/get.plm </TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3> $BL>A0(B </H3>
channel/mode/oper/get.plm - $B%A%c%s%M%k%*%Z%l!<%?$rI|5"$9$k(B
<HR><H3> $B@bL@(B </H3>
$B%A%c%s%M%k$K<+J,$7$+$$$J$$$K$b$+$+$o$i$:!"(B
$B<+J,$,%A%c%s%M%k%*%Z%l!<%?$G$O$J$$>l9g!"(B
$B0lEY%A%c%s%M%k$rH4$1$F:F$SF~$jD>$9$3$H$K$h$C$F!"(B
$B%A%c%s%M%k%*%Z%l!<%?$K$J$j$^$9!#(B
<HR><H3> $B%W%m%Q%F%#(B </H3>
<DL>
</DL>
<HR><H3> $B@_DjNc(B </H3>
<PRE>
+ channel/mode/oper/get.plm
</PRE>
</BODY></HTML>