home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / plum2_33_1.lzh / module / user / away / nick.plm < prev   
Text File  |  1999-03-24  |  2KB  |  84 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: nick.plm,v 2.5 1998/12/20 02:17:59 hasegawa Exp $
  3. # copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  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, @params) = @_;
  18.   &'s_print($serverno, '', 'AWAY', &getaway($'userno[$serverno], $'nick[$serverno])) if $params[0] eq $'nick[$serverno];
  19.   return ($prefix, $cmd, @params);
  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. --><HTML><HEAD>
  36. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  37. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  38. <TITLE>user/away/nick.plm</TITLE></HEAD><BODY>
  39.  
  40. $B%*%s%i%$%s%I%-%e%a%s%H(B
  41.  
  42.  
  43. <HR><H3>$BL>A0(B</H3>
  44.  
  45. user/away/nick.plm - $B%K%C%/%M!<%`$rJQ99$9$k$H$=$l$KBP1~$9$k(BAWAY$B$r@_Dj$9$k(B
  46.  
  47.  
  48. <HR><H3>$B@bL@(B</H3>
  49.  
  50. $B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"$=$N%K%C%/%M!<%`$KBP1~$9$k(BAWAY$B$,(B
  51. $B;XDj$5$l$F$$$l$P!"$=$N(BAWAY$B$r@_Dj$7$^$9!#(B
  52. $B$=$&$G$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
  53.  
  54.  
  55. <HR><H3>$B%W%m%Q%F%#(B</H3>
  56.  
  57. <DL>
  58. <DT>  user.away.nick.set* ($B%K%C%/%M!<%`(B) $B%a%C%;!<%8(B
  59. </DT>
  60. <DD>    $B%K%C%/%M!<%`$HBP1~$9$k(BAWAY$B$r;XDj$7$^$9!#(B
  61.         $B%K%C%/%M!<%`$rJQ99$7$?$H$-$K!"(B
  62.         $B$=$N%K%C%/%M!<%`$,$3$3$G;XDj$5$l$?$b$N$J$i!"(B
  63.         $BBP1~$9$k(BAWAY$B$r@_Dj$7$^$9!#(B
  64.         $B%K%C%/%M!<%`$,;XDj$5$l$F$$$J$1$l$P(BAWAY$B$r<h$j>C$7$^$9!#(B
  65. </DD>
  66. </DL>
  67.  
  68.  
  69. <HR><H3>$B@_DjNc(B</H3>
  70.  
  71. <PRE>
  72. + user/away/nick.plm
  73. user.away.nick.set: pupu_Zzz $B$M$F$^$9(B
  74. user.away.nick.set: pupu_work,pupu_job $B;E;vCf$G$9(B
  75. </PRE>
  76.  
  77. $B%K%C%/%M!<%`$r!V(Bpupu_Zzz$B!W$KJQ99$9$k$H!"(B
  78. $B!V$M$F$^$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
  79. $B$^$?%K%C%/%M!<%`$r!V(Bpupu_work$B!W$+!V(Bpupu_job$B!W$KJQ99$9$k$H!"(B
  80. $B!V;E;vCf$G$9!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
  81. $B$=$l0J30$N%K%C%/%M!<%`$KJQ99$7$?>l9g$O(BAWAY$B$r<h$j>C$7$^$9!#(B
  82.  
  83. </BODY></HTML>
  84.