home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_15_2.lzh / module / user / away / nick.plm < prev   
Text File  |  1997-11-16  |  2KB  |  81 lines
  1. # <!-- -*- perl -*-
  2. # $Id: nick.plm,v 2.1 1997/11/17 00:17:14 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package user_away_nick;
  6.  
  7. $_ = 'user_away_nick';
  8.  
  9. sub server_open {
  10.   local($serverno) = @_;
  11.   local($away);
  12.   $away = &getaway($'userno[$serverno], $'nick[$serverno]);
  13.   &'s_print($serverno, '', 'AWAY', $away);
  14. }
  15.  
  16. sub ss_nick {
  17.   local($serverno, $prefix, $cmd, $nick) = @_;
  18.   &'s_print($serverno, '', 'AWAY', &getaway($'userno[$serverno], $'nick[$serverno])) if $nick eq $'nick[$serverno];
  19.   return ($prefix, $cmd, $nick);
  20. }
  21.  
  22. sub getaway {
  23.   local($userno, $nick) = @_;
  24.   local($list, $away, $name);
  25.   foreach $set (&'property($userno, 'set')) {
  26.     ($list, $away) = (split(/\s+/, $set, 2), '');
  27.     foreach $name (split(/\,/, $list)) {
  28.       return $away if "\L$name\E" eq "\L$nick\E";
  29.     }
  30.   }
  31.   return '';
  32. }
  33.  
  34. __END__
  35. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  36. <HTML><HEAD><TITLE> user/away/nick.plm </TITLE></HEAD><BODY>
  37.  
  38. $B%*%s%i%$%s%I%-%e%a%s%H(B
  39.  
  40.  
  41. <HR><H3> $BL>A0(B </H3>
  42.  
  43. user/away/nick.plm - $B%K%C%/%M!<%`$rJQ99$9$k$H$=$l$KBP1~$9$k(BAWAY$B$r@_Dj$9$k(B
  44.  
  45.  
  46. <HR><H3> $B@bL@(B </H3>
  47.  
  48. $B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"(B
  49. $B$=$N%K%C%/%M!<%`$KBP1~$9$k(BAWAY$B$,;XDj$5$l$F$$$l$P!"(B
  50. $B$=$N(BAWAY$B$r@_Dj$7$^$9!#(B
  51. $B$=$&$G$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
  52.  
  53.  
  54. <HR><H3> $B%W%m%Q%F%#(B </H3>
  55.  
  56. <DL>
  57. <DT> user.away.nick.set* ($B%K%C%/%M!<%`(B) $B%a%C%;!<%8(B
  58. <DD>    $B%K%C%/%M!<%`$HBP1~$9$k(BAWAY$B$r;XDj$7$^$9!#(B
  59.         $B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"(B
  60.         $B$=$N%K%C%/%M!<%`$,$3$3$G;XDj$5$l$?$b$N$J$i!"(B
  61.         $BBP1~$9$k(BAWAY$B$r@_Dj$7$^$9!#(B
  62.         $B%K%C%/%M!<%`$,;XDj$5$l$F$$$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
  63. </DL>
  64.  
  65.  
  66. <HR><H3> $B@_DjNc(B </H3>
  67.  
  68. <PRE>
  69. + user/away/nick.plm
  70. user.away.nick.set: pupu_Zzz $B$M$F$^$9(B
  71. user.away.nick.set: pupu_work,pupu_job $B;E;vCf$G$9(B
  72. </PRE>
  73.  
  74. $B%K%C%/%M!<%`$r!V(Bpupu_Zzz$B!W$KJQ99$9$k$H!"(B
  75. $B!V$M$F$^$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
  76. $B$^$?%K%C%/%M!<%`$r!V(Bpupu_work$B!W$+!V(Bpupu_job$B!W$KJQ99$9$k$H!"(B
  77. $B!V;E;vCf$G$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
  78. $B$=$l0J30$N%K%C%/%M!<%`$KJQ99$7$?>l9g$O(BAWAY$B$r<h$j>C$7$^$9!#(B
  79.  
  80. </BODY></HTML>
  81.