home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
plum
/
1.x
/
plum10.lzh
/
plum10
/
usermode.plm
< prev
next >
Wrap
Text File
|
1997-08-13
|
264b
|
14 lines
package usermode;
$_ = 'usermode';
sub server_open {
local($serverno) = @_;
local($userno) = $'userno[$serverno];
local($mode) = &'property($userno, 'usermode') || '';
if ($mode) {
&'s_print($serverno, '', 'MODE', $'nickname[$userno], $mode);
}
}