ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Roman Kirjanov                       2:5020/400     09 Jul 2003  17:52:21
 To : Serguei Trouchelle
 Subject : Re: CGI::Carp & 500
 -------------------------------------------------------------------------------- 
 

 Hello, Serguei!
 You wrote to Roman Kirjanov on Wed, 09 Jul 2003 13:26:09 +0400:
 
  ST> perldoc CGI::Carp
 
 Читал, читал...
 
  ST> use CGI::Carp qw/ fatalsToBrowser /;
 
 Так что ли ?
 
 use CGI::Carp qw(fatalsToBrowser);
 BEGIN {
  sub error_handler($) {
   my($s, $m, $h, $mday, $mon, $year) = localtime();
   my $now .= sprintf('%02d.%02d.%04d %02d:%02d:%02d', $mday, $mon + 1, $year
 + 1900, $h, $m, $s);
   print '['. $now. '; '. __FILE__. '] '. shift;
  }
 
  my $self = __FILE__;
  $self =~ s#^(?:.+\/)*(.+)$#$1#o;
 
  open(CARPLOG, ">>CARP/${self}.log")
   or die("Unable to open CARP/${self}.log");
  CGI::Carp::carpout(\*CARPLOG);
  CGI::Carp::set_message(\&error_handler);
 }
 
 Дык все так же :(( Мне в браузер не надо, пусть в файл складывается - спать
 спокойней буду :))
 
 With best regards, Meister
 [ http://www.sinn.ru/~meister/ ]
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по:

Тема:    Автор:    Дата:    CGI::Carp & 500   Roman Kirjanov   09 Jul 2003 15:47:49   CGI::Carp & 500   Serguei Trouchelle   09 Jul 2003 14:26:09   Re: CGI::Carp & 500   Roman Kirjanov   09 Jul 2003 17:52:21   CGI::Carp & 500   Serguei Trouchelle   09 Jul 2003 19:01:03   Re: CGI::Carp & 500   Roman Kirjanov   09 Jul 2003 18:59:49   Re: CGI::Carp & 500   Artem Chuprina   10 Jul 2003 13:18:28