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 / autoaway.plm next >
Text File  |  1997-08-28  |  648b  |  30 lines
  1. package autoaway;
  2.  
  3. $_ = 'autoaway';
  4.  
  5. sub server_open {
  6.   local($serverno) = @_;
  7.   local($away);
  8.   $away = &getaway($'userno[$serverno], $'nick[$serverno]);
  9.   &'s_print($serverno, '', 'AWAY', $away) if $away;
  10. }
  11.  
  12. sub ss_nick {
  13.   local($serverno, $prefix, $cmd, $nick) = @_;
  14.   if ($nick eq $'nick[$serverno]) {
  15.     &'s_print($serverno, '', 'AWAY', &getaway($'userno[$serverno], $nick));
  16.   }
  17.   return ($prefix, $cmd, $nick);
  18. }
  19.  
  20. sub getaway {
  21.   local($userno, $nick) = @_;
  22.   local($name, $away);
  23.   foreach $nickname (&'property($userno, 'nick')) {
  24.     ($name, $away) = split(/\s+/, $nickname, 2);
  25.     return $away if $name eq $nick;
  26.   }
  27.   return '';
  28. }
  29.  
  30.