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 / sys / conf / update.plm < prev   
Text File  |  1998-10-15  |  1KB  |  57 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: update.plm,v 2.5 1998/05/22 10:43:41 hasegawa Exp $
  3. # copyright (c)1997-1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package sys_conf_update;
  6.  
  7. $_ = 'sys_conf_update';
  8.  
  9. sub main_loop {
  10.   local($userno) = @_;
  11.   local($file, $user, $mtime);
  12.   $user = $'username[$userno];
  13.   $file = $'filename{$user};
  14.   $mtime = (stat($file))[9];
  15.   return unless defined($mtime);
  16.   $modify[$userno] = $mtime unless $modify[$userno];
  17.   return if $modify[$userno] == $mtime;
  18.   $modify[$userno] = $mtime;
  19.   &'load($user, $file);
  20.   foreach $cno (&'array($'clientlist)) {
  21.     next unless $'avail[$cno];
  22.     next unless $'userno[$cno] == $userno;
  23.     &'c_print($cno, '', 'NOTICE', $'nick[$cno], "*** update configuration $file");
  24.   }
  25. }
  26.  
  27. __END__
  28. --><HTML><HEAD>
  29. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  30. <LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
  31. <TITLE>sys/conf/update.plm</TITLE></HEAD><BODY>
  32.  
  33. $B%*%s%i%$%s%I%-%e%a%s%H(B
  34.  
  35.  
  36. <HR><H3>$BL>A0(B</H3>
  37.  
  38. sys/conf/update.plm - plum.conf$B$,JQ99$5$l$k$H<+F0E*$KFI$_9~$_D>$9(B
  39.  
  40.  
  41. <HR><H3>$B@bL@(B</H3>
  42.  
  43. $B0lDj;~4V$4$H$K(Bplum.conf$B$,JQ99$5$l$F$$$J$$$+$r%A%'%C%/$7!"(B
  44. $BJQ99$5$l$F$$$l$P$=$l$rFI$_9~$s$G%b%8%e!<%k$H%W%m%Q%F%#$N:F@_Dj$r9T$$$^$9!#(B
  45.  
  46.  
  47. <HR><H3>$B%W%m%Q%F%#(B</H3>
  48.  
  49.  
  50. <HR><H3>$B@_DjNc(B</H3>
  51.  
  52. <PRE>
  53. + sys/conf/update.plm
  54. </PRE>
  55.  
  56. </BODY></HTML>
  57.