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 / log / error.plm < prev    next >
Text File  |  1997-11-16  |  871b  |  50 lines
  1. # <!-- -*- perl -*-
  2. # $Id: error.plm,v 2.1 1997/11/17 00:11:59 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  4.  
  5. package log_error;
  6.  
  7. $FILE = 'logerror';
  8. if (!-w $FILE) {
  9.   if (!-f $FILE && open(FILE, ">$FILE")) {
  10.     close(FILE);
  11.   }
  12.   chmod((umask() ^ 0666) | 0200, $FILE) if -f $FILE;
  13. }
  14. if (open(FILE, ">>$FILE")) {
  15.   open(STDOUT, '>>&FILE');
  16.   open(STDERR, '>>&FILE');
  17. }
  18.  
  19. $_ = 'log_error';
  20.  
  21. __END__
  22. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  23. <HTML><HEAD><TITLE> log/error.plm </TITLE></HEAD><BODY>
  24.  
  25. $B%*%s%i%$%s%I%-%e%a%s%H(B
  26.  
  27.  
  28. <HR><H3> $BL>A0(B </H3>
  29.  
  30. log/error.plm - $B%(%i!<$r%m%0$H$7$FJ]B8$9$k(B
  31.  
  32.  
  33. <HR><H3> $B@bL@(B </H3>
  34.  
  35. $BI8=`=PNO$H%(%i!<=PNO$r!V(Blogerror$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
  36.  
  37.  
  38. <HR><H3> $B%W%m%Q%F%#(B </H3>
  39.  
  40. <DL>
  41. </DL>
  42.  
  43. <HR><H3> $B@_DjNc(B </H3>
  44.  
  45. <PRE>
  46. + log/error.plm
  47. </PRE>
  48.  
  49. </BODY></HTML>
  50.