home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / plum2_33_1.lzh / module / log / error.plm < prev    next >
Text File  |  1999-03-24  |  987b  |  50 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: error.plm,v 2.4 1998/12/20 02:20:14 hasegawa Exp $
  3. # copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  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. --><HTML><HEAD>
  23. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  24. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  25. <TITLE>log/error.plm</TITLE></HEAD><BODY>
  26.  
  27. $B%*%s%i%$%s%I%-%e%a%s%H(B
  28.  
  29.  
  30. <HR><H3>$BL>A0(B</H3>
  31.  
  32. log/error.plm - $B%(%i!<$r%m%0$H$7$FJ]B8$9$k(B
  33.  
  34.  
  35. <HR><H3>$B@bL@(B</H3>
  36.  
  37. $BI8=`=PNO$H%(%i!<=PNO$r!V(Blogerror$B!W$H$$$&%U%!%$%k$KJ]B8$7$^$9!#(B
  38.  
  39.  
  40. <HR><H3>$B%W%m%Q%F%#(B</H3>
  41.  
  42.  
  43. <HR><H3>$B@_DjNc(B</H3>
  44.  
  45. <PRE>
  46. + log/error.plm
  47. </PRE>
  48.  
  49. </BODY></HTML>
  50.