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 / server / timeout.plm < prev   
Text File  |  1998-10-15  |  1KB  |  62 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: timeout.plm,v 2.5 1998/05/22 10:42:44 hasegawa Exp $
  3. # copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package server_timeout;
  6.  
  7. $LIMIT = 1800;
  8.  
  9. $_ = 'server_timeout';
  10.  
  11. sub main_loop {
  12.   local($userno) = @_;
  13.   local($limit);
  14.   $limit = &'property($userno, 'limit') || $LIMIT;
  15.   foreach $sno (&'array($'serverlist)) {
  16.     next unless $'userno[$sno] == $userno;
  17.     &'s_close($sno) if ($sno && time() - $'access[$sno] > $limit);
  18.   }
  19. }
  20.  
  21. __END__
  22. --><HTML><HEAD>
  23. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  24. <LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
  25. <TITLE>server/timeout.plm</TITLE></HEAD><BODY>
  26.  
  27. $B%*%s%i%$%s%I%-%e%a%s%H(B
  28.  
  29.  
  30. <HR><H3>$BL>A0(B</H3>
  31.  
  32. server/timeout.plm - $B0lDj;~4VF~NO$,$J$$%5!<%P$H$N@\B3$r@ZCG$9$k(B
  33.  
  34.  
  35. <HR><H3>$B@bL@(B</H3>
  36.  
  37. $B0lDj;~4V$N4V!"%5!<%P$+$i$NF~NO$,A4$/$J$+$C$?>l9g!"(B
  38. $B$=$N%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
  39.  
  40.  
  41. <HR><H3>$B%W%m%Q%F%#(B</H3>
  42.  
  43. <DL>
  44. <DT>  server.timeout.limit $B%?%$%`%"%&%H;~4V(B
  45. </DT>
  46. <DD>    $B%5!<%P$+$i$NF~NO$,$3$3$G;XDj$5$l$?;~4V0J>e$J$+$C$?>l9g$O!"(B
  47.         $B%5!<%P$H$N@\B3$r@ZCG$7$^$9!#%G%U%)%k%H$G$O(B30$BJ,$K$J$C$F$$$^$9!#(B
  48. </DD>
  49. </DL>
  50.  
  51.  
  52. <HR><H3>$B@_DjNc(B</H3>
  53.  
  54. <PRE>
  55. + server/timeout.plm
  56. server.timeout.limit: 1200
  57. </PRE>
  58.  
  59. 20$BJ,0J>e%5!<%P$+$i$NF~NO$,$J$+$C$?>l9g!"%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
  60.  
  61. </BODY></HTML>
  62.