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 / cron.plm < prev    next >
Text File  |  1997-12-19  |  3KB  |  91 lines
  1. # <!-- -*- perl -*-
  2. # $Id: cron.plm,v 2.2 1997/12/19 22:49:49 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package sys_cron;
  6.  
  7. $FORMAT = '%Y/%m/%d %H:%M:%S'; 
  8.  
  9. $_ = 'sys_cron';
  10.  
  11. sub main_loop {
  12.   local($userno) = @_;
  13.   local($regex, $str, $date, $time, $exec);
  14.   $now = &'date($FORMAT);
  15.   foreach $last (&'array($cronlist[$userno])) {
  16.     $regex = &'regex($last);
  17.     next if $now =~ /$regex/;
  18.     $cronlist[$userno] = &'remove($cronlist[$userno], $last);
  19.   }
  20.   foreach $cron (&'property($userno, 'exec')) {
  21.     ($date, $time, $exec) = split(/\s+/, $cron, 3);
  22.     $str = $date . ' ' . $time;
  23.     $regex = &'regex($str);
  24.     next unless $now =~ /$regex/;
  25.     $addlist[$userno] = &'add($addlist[$userno], $str);
  26.     next if &'exist($cronlist[$userno], $str);
  27.     system($exec);
  28.   }
  29.   $cronlist[$userno] = &'add($cronlist[$userno], &'array($addlist[$userno]));
  30. }
  31.  
  32. __END__
  33. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  34. <HTML><HEAD><TITLE> sys/cron.plm </TITLE></HEAD><BODY>
  35.  
  36. $B%*%s%i%$%s%I%-%e%a%s%H(B
  37.  
  38.  
  39. <HR><H3> $BL>A0(B </H3>
  40.  
  41. sys/cron.plm - $B;XDj$5$l$?;~4V$K;XDj$5$l$?%3%^%s%I$r<B9T$9$k(B
  42.  
  43.  
  44. <HR><H3> $B@bL@(B </H3>
  45.  
  46. $B;XDj$5$l$?;~4V$K$J$k$H;XDj$5$l$?%3%^%s%I$r<B9T$7$^$9!#(B
  47. UNIX$B0J30$G$O;HMQ$G$-$^$;$s!#(B
  48.  
  49.  
  50. <HR><H3> $B%W%m%Q%F%#(B </H3>
  51.  
  52. <DL>
  53. <DT> sys.cron.exec* $BF|IU(B $B;~4V(B $B%3%^%s%I(B
  54. <DD>     $B%3%^%s%I$r<B9T$9$kF|IU!";~4V$H<B:]$N%3%^%s%I$r;XDj$7$^$9!#(B
  55.          $BF|IU!";~4V!"%3%^%s%I$O$=$l$>$l6uGr$G6h@Z$j$^$9!#(B
  56.          $BF|IU$O(B1970/01/01$B!";~4V$O(B00:00:00$B$N%U%)!<%^%C%H$G!"(B
  57.          $B$=$l$>$l%o%$%k%I%+!<%I$H$7$F(B*$B$H(B?$B$,;XDj$G$-$^$9!#(B
  58.          $B%3%^%s%I$K$O(Bperl$B$NJ8$G$O$J$/!"(B
  59.          $B<B9T%U%!%$%k$d%9%/%j%W%H$r;XDj$7$F2<$5$$!#(B
  60.          $B$^$?!";~4V$N;XDj$O$"$kDxEY$NI}$r;}$C$F;XDj$9$k$h$&$K$7$F2<$5$$!#(B
  61.          00:00:00$B$N$h$&$K87L)$K;XDj$9$k$H!"<B9T$5$l$k$3$H$O$^$:$"$j$^$;$s!#(B
  62. </DL>
  63.  
  64.  
  65. <HR><H3> $B@_DjNc(B </H3>
  66.  
  67. <PRE>
  68. + sys/cron.plm
  69. sys.cron.exec: */01/01 *:*:* echo 'A happy new year' | mail hasegawa
  70. </PRE>
  71.  
  72. $BKhG/(B1$B7n(B1$BF|$K$J$k$H!"!V(Becho 'A happy new year' | mail hasegawa$B!W(B
  73. $B$H$$$&%3%^%s%I$r<B9T$7$^$9!#(B
  74. $B$3$l$O!V(BA Happy new year$B!W$H$@$1=q$+$l$?%a!<%k$r(Bhasegawa$B08$KAw$j$^$9!#(B
  75.  
  76. <PRE>
  77. + sys/cron.plm
  78. sys.cron.exec: */*/* 00:*:* logmail
  79. </PRE>
  80.  
  81. $BKhF|(B0$B;~$K$J$k$H!"!V(Blogmail$B!W$H$$$&%3%^%s%I$r<B9T$7$^$9!#(B
  82.  
  83. <PRE>
  84. + sys/cron.plm
  85. sys.cron.exec: */*/* *:*:* echo start plum
  86. </PRE>
  87.  
  88. $B5/F0;~$K0l2s$@$1!V(Becho start plum$B!W$H$$$&%3%^%s%I$r<B9T$7$^$9!#(B
  89.  
  90. </BODY></HTML>
  91.