home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum12.lzh
/
plum12
/
autojoin.plm
< prev
next >
Wrap
Text File
|
1997-09-25
|
1KB
|
39 lines
package autojoin;
$_ = 'autojoin';
sub server_open {
local($serverno) = @_;
local($userno) = $'userno[$serverno];
foreach $channel (&'property($userno, 'autojoin')) {
$joinlist[$userno] = &'add($joinlist[$userno], &'rchan($channel));
}
&'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), '');
if (&'prefix($prefix) eq $'nick[$serverno]) {
$joinlist[$'userno[$serverno]] = &'add($joinlist[$'userno[$serverno]], $name);
}
return ($prefix, $cmd, $chan);
}
sub ss_kick {
local($serverno, $prefix, $cmd, $chan, $who, $msg) = @_;
if ($who eq $'nick[$serverno]) {
&'s_print($serverno, '', 'JOIN', $chan);
}
return ($prefix, $cmd, $chan, $who, $msg);
}
sub ss_part {
local($serverno, $prefix, $cmd, $chan, $msg) = @_;
if (&'prefix($prefix) eq $'nick[$serverno]) {
$joinlist[$'userno[$serverno]] = &'remove($joinlist[$'userno[$serverno]], $chan);
}
return ($prefix, $cmd, $chan, $msg);
}