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