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 / awaynick.plm < prev    next >
Text File  |  1997-08-28  |  732b  |  31 lines
  1. package awaynick;
  2.  
  3. $_ = 'awaynick';
  4.  
  5. sub client_open {
  6.   local($clientno) = @_;
  7.   local($userno) = $'userno[$clientno];
  8.   local($nick) = &'property($userno, 'staynick') || '';
  9.   return unless $nick;
  10.   foreach $cno (&'array($'clientlist)) {
  11.     next unless $'avail[$cno];
  12.     next unless $'userno[$cno] == $userno;
  13.     &'s_print($'server[$userno], '', 'NICK', $nick);
  14.     last;
  15.   }
  16. }
  17.  
  18. sub client_close {
  19.   local($clientno) = @_;
  20.   local($userno) = $'userno[$clientno];
  21.   local($nick) = &'property($userno, 'awaynick') || '';
  22.   return unless $nick;
  23.   foreach $cno (&'array($'clientlist)) {
  24.     next unless $'avail[$cno];
  25.     next unless $'userno[$cno] == $userno;
  26.     &'s_print($'server[$userno], '', 'NICK', $nick);
  27.     last;
  28.   }
  29. }
  30.  
  31.