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 / client.plm next >
Text File  |  1997-11-21  |  2KB  |  90 lines
  1. # <!-- -*- perl -*-
  2. # $Id: client.plm,v 2.5 1997/11/21 11:20:46 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package user_away_client;
  6.  
  7. $_ = 'user_away_client';
  8.  
  9. sub client_open {
  10.   local($clientno) = @_;
  11.   local($userno);
  12.   $userno = $'userno[$clientno];
  13.   return unless $'server[$userno];
  14.   return unless $'avail[$'server[$userno]];
  15.   foreach $cno (&'array($'clientlist)) {
  16.     next unless $'avail[$cno];
  17.     return if $'userno[$cno] == $userno && $cno != $clientno;
  18.   }
  19.   &'s_print($'server[$userno], '', 'AWAY', '');
  20. }
  21.  
  22. sub client_close {
  23.   local($clientno) = @_;
  24.   local($userno, $msg);
  25.   $userno = $'userno[$clientno];
  26.   return unless $'server[$userno];
  27.   return unless $'avail[$'server[$userno]];
  28.   $msg = &'property($userno, 'set');
  29.   return unless defined($msg);
  30.   foreach $cno (&'array($'clientlist)) {
  31.     next unless $'avail[$cno];
  32.     return if $'userno[$cno] == $userno;
  33.   }
  34.   &'s_print($'server[$userno], '', 'AWAY', $msg);
  35. }
  36.  
  37. sub server_open {
  38.   local($serverno) = @_;
  39.   local($userno, $msg);
  40.   $userno = $'userno[$serverno];
  41.   $msg = &'property($userno, 'set');
  42.   return unless defined($msg);
  43.   foreach $cno (&'array($'clientlist)) {
  44.     next unless $'avail[$cno];
  45.     return if $'userno[$cno] == $userno;
  46.   }
  47.   &'s_print($serverno, '', 'AWAY', $msg);
  48. }
  49.  
  50. __END__
  51. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  52. <HTML><HEAD><TITLE> user/away/client.plm </TITLE></HEAD><BODY>
  53.  
  54. $B%*%s%i%$%s%I%-%e%a%s%H(B
  55.  
  56.  
  57. <HR><H3> $BL>A0(B </H3>
  58.  
  59. user/away/client.plm - $B%/%i%$%"%s%H$H$N@\B3>uBV$K$h$C$F(BAWAY$B$r@_Dj$9$k(B
  60.  
  61.  
  62. <HR><H3> $B@bL@(B </H3>
  63.  
  64. plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$k$+$I$&$+$K$h$C$F!"(B
  65. AWAY$B$r@_Dj$7$?$j<h$j>C$7$?$j$7$^$9!#(B
  66. plum$B$K%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$O(BAWAY$B$r@_Dj$7!"(B
  67. $B%/%i%$%"%s%H$,@\B3$5$l$k$H(BAWAY$B$r<h$j>C$7$^$9!#(B
  68.  
  69.  
  70. <HR><H3> $B%W%m%Q%F%#(B </H3>
  71.  
  72. <DL>
  73. <DT> user.away.client.set $B%a%C%;!<%8(B
  74. <DD>     $B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"(B
  75.          $B$3$3$G;XDj$7$?(BAMAY$B$r@_Dj$7$^$9!#(B
  76. </DL>
  77.  
  78.  
  79. <HR><H3> $B@_DjNc(B </H3>
  80.  
  81. <PRE>
  82. + user/away/client.plm
  83. user.away.client.set: $B$$$^$;$s(B
  84. </PRE>
  85.  
  86. $B%/%i%$%"%s%H$,@\B3$5$l$F$$$J$$$H$-$K!"!V$$$^$;$s!W$H$$$&(BAWAY$B$r@_Dj$7$^$9!#(B
  87. $B%/%i%$%"%s%H$,@\B3$5$l$k$H!"$3$N(BAWAY$B$O<h$j>C$5$l$^$9!#(B
  88.  
  89. </BODY></HTML>
  90.