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 / log / server.plm < prev   
Text File  |  1998-10-15  |  3KB  |  109 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: server.plm,v 2.6 1998/05/22 10:41:56 hasegawa Exp $
  3. # copyright (c)1997-1998 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package log_server;
  6.  
  7. $DIRECTORY = '.';
  8. $FILE = 'logserver';
  9. $HEADER = '%H:%M';
  10. $MODE = umask() ^ 0666;
  11.  
  12. $_ = 'log_server';
  13.  
  14. sub server_read {
  15.   local($serverno, $line) = @_;
  16.   &writelog($'userno[$serverno], $line);
  17.   return ($line);
  18. }
  19.  
  20. sub writelog {
  21.   local($userno, $line) = @_;
  22.   local($file, $dir, $name, $header, $mode);
  23.   $file = &'expand(&'property($userno, 'file') || $FILE);
  24.   if ($file =~ /^\//) {
  25.     $name = $file;
  26.   } else {
  27.     $dir = &'expand(&'property($userno, 'directory') || $DIRECTORY);
  28.     $name = "$dir/$file";
  29.   }
  30.   $name = &'date($name);
  31.   $header = &'property($userno, 'header');
  32.   $header = $HEADER unless defined($header);
  33.   $header = &'date($header);
  34.   if (!-w $name) {
  35.     if (!-e $name && open(FILE, ">$name")) {
  36.       close(FILE);
  37.     }
  38.     $mode = &'property($userno, 'mode');
  39.     if (defined($mode)) {
  40.       $mode = oct($mode) | 0200;
  41.     } else {
  42.       $mode = $MODE | 0200;
  43.     }
  44.     chmod($mode, $name) if -f $name;
  45.   }
  46.   if (open(FILE, ">>$name")) {
  47.     select((select(FILE), $| = 1)[0]);
  48.     print FILE $header, ' ', $line, "\n";
  49.     close(FILE);
  50.   }
  51. }
  52.  
  53. __END__
  54. --><HTML><HEAD>
  55. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  56. <LINK REV="made" HREF="mailto:hasegawa@agusa.nuie.nagoya-u.ac.jp">
  57. <TITLE>log/server.plm</TITLE></HEAD><BODY>
  58.  
  59. $B%*%s%i%$%s%I%-%e%a%s%H(B
  60.  
  61.  
  62. <HR><H3>$BL>A0(B</H3>
  63.  
  64. log/server.plm - $B%5!<%P$+$i$NF~NO$r%m%0$H$7$FJ]B8$9$k(B
  65.  
  66.  
  67. <HR><H3>$B@bL@(B</H3>
  68.  
  69. $B%5!<%P$+$i$NF~NO$r$9$Y$F%m%0$KJ]B8$7$^$9!#(B
  70.  
  71.  
  72. <HR><H3>$B%W%m%Q%F%#(B</H3>
  73.  
  74. <DL>
  75. <DT>  log.server.directory $B%G%#%l%/%H%j(B
  76. </DT>
  77. <DD>    $B%m%0$rJ]B8$9$k%G%#%l%/%H%j$r;XDj$7$^$9!#(B
  78.         $B%G%U%)%k%H$G$O%+%l%s%H%G%#%l%/%H%j$KJ]B8$7$^$9!#(B
  79. </DD>
  80. <DT>  log.server.file $B%U%!%$%kL>(B
  81. </DT>
  82. <DD>    $B%m%0$N%U%!%$%kL>$r;XDj$7$^$9!#(B
  83.         %$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$kF|IU$KJQ49$5$l$^$9!#(B
  84.         $B%G%U%)%k%H$G$O!V(Blogserver$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
  85. </DD>
  86. <DT>  log.server.header $B$X%C%@(B
  87. </DT>
  88. <DD>    $B%m%0$K=PNO$9$k;~9o$N%U%)!<%^%C%H$r;XDj$7$^$9!#(B
  89.         %$B$G$O$8$^$kJ8;z$,$"$k$H!"BP1~$9$k;~4V$KJQ49$5$l$^$9!#(B
  90. </DD>
  91. <DT>  log.server.mode $B%U%!%$%k%b!<%I(B
  92. </DT>
  93. <DD>    $B%m%0$N%U%!%$%k%b!<%I$r;XDj$7$^$9!#(B
  94. </DD>
  95. </DL>
  96.  
  97.  
  98. <HR><H3>$B@_DjNc(B</H3>
  99.  
  100. <PRE>
  101. + log/server.plm
  102. log.server.file: server%Y%m%d
  103. </PRE>
  104.  
  105. $B%5!<%P$+$i$NF~NO$r!V(Bserver%m%d$B!W$KJ]B8$7$^$9!#(B
  106. $B!V(B%Y$B!W!"!V(B%m$B!W!"!V(B%d$B!W$O$=$l$>$l8=:_$NG/!"7n!"F|$KJQ49$5$l$^$9!#(B
  107.  
  108. </BODY></HTML>
  109.