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 / sys / conf / update.plm < prev   
Text File  |  1997-11-25  |  1KB  |  58 lines
  1. # <!-- -*- perl -*-
  2. # $Id: update.plm,v 2.4 1997/11/26 00:52:31 hasegawa Exp $
  3. # copyright (c)1997 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. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  29. <HTML><HEAD><TITLE> sys/conf/update.plm </TITLE></HEAD><BODY>
  30.  
  31. $B%*%s%i%$%s%I%-%e%a%s%H(B
  32.  
  33.  
  34. <HR><H3> $BL>A0(B </H3>
  35.  
  36. sys/conf/update.plm - plum.conf$B$,JQ99$5$l$k$H<+F0E*$KFI$_9~$_D>$9(B
  37.  
  38.  
  39. <HR><H3> $B@bL@(B </H3>
  40.  
  41. $B0lDj;~4V$4$H$K(Bplum.conf$B$,JQ99$5$l$F$$$J$$$+$r%A%'%C%/$7!"(B
  42. $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
  43.  
  44.  
  45. <HR><H3> $B%W%m%Q%F%#(B </H3>
  46.  
  47. <DL>
  48. </DL>
  49.  
  50.  
  51. <HR><H3> $B@_DjNc(B </H3>
  52.  
  53. <PRE>
  54. + sys/conf/update.plm
  55. </PRE>
  56.  
  57. </BODY></HTML>
  58.