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