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
Wrap
Text File
|
1998-10-15
|
1KB
|
62 lines
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
# $Id: timeout.plm,v 2.5 1998/05/22 10:42:44 hasegawa Exp $
# copyright (c)1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
package server_timeout;
$LIMIT = 1800;
$_ = 'server_timeout';
sub main_loop {
local($userno) = @_;
local($limit);
$limit = &'property($userno, 'limit') || $LIMIT;
foreach $sno (&'array($'serverlist)) {
next unless $'userno[$sno] == $userno;
&'s_close($sno) if ($sno && time() - $'access[$sno] > $limit);
}
}
__END__
--><HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
<LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
<TITLE>server/timeout.plm</TITLE></HEAD><BODY>
$B%*%s%i%$%s%I%-%e%a%s%H(B
<HR><H3>$BL>A0(B</H3>
server/timeout.plm - $B0lDj;~4VF~NO$,$J$$%5!<%P$H$N@\B3$r@ZCG$9$k(B
<HR><H3>$B@bL@(B</H3>
$B0lDj;~4V$N4V!"%5!<%P$+$i$NF~NO$,A4$/$J$+$C$?>l9g!"(B
$B$=$N%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
<HR><H3>$B%W%m%Q%F%#(B</H3>
<DL>
<DT> server.timeout.limit $B%?%$%`%"%&%H;~4V(B
</DT>
<DD> $B%5!<%P$+$i$NF~NO$,$3$3$G;XDj$5$l$?;~4V0J>e$J$+$C$?>l9g$O!"(B
$B%5!<%P$H$N@\B3$r@ZCG$7$^$9!#%G%U%)%k%H$G$O(B30$BJ,$K$J$C$F$$$^$9!#(B
</DD>
</DL>
<HR><H3>$B@_DjNc(B</H3>
<PRE>
+ server/timeout.plm
server.timeout.limit: 1200
</PRE>
20$BJ,0J>e%5!<%P$+$i$NF~NO$,$J$+$C$?>l9g!"%5!<%P$H$N@\B3$r@ZCG$7$^$9!#(B
</BODY></HTML>