|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Roman Kirjanov 2:5020/400 09 Jul 2003 15:47:49
To : All
Subject : CGI::Carp & 500
--------------------------------------------------------------------------------
Hello, All!
Почему не изменяется сообщение об ошибке ? В core/lib.pm тож такая же
штука.
use CGI::Carp;
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;
}
open(CARPLOG, '>>CARP/chat.log')
or die('Unable to open CARP/chat.log');
CGI::Carp::carpout(\*CARPLOG);
CGI::Carp::set_message(\&error_handler);
}
Can't locate xsession.pm in @INC (@INC contains: c:/Perl/lib
c:/Perl/site/lib .) at core/lib.pm line 45.
BEGIN failed--compilation aborted at core/lib.pm line 45.
Compilation failed in require at
D:\MyDocs\htdocs\users\meister\public_html\cgi-bin\chat\index.cgi line 3.
BEGIN failed--compilation aborted at
D:\MyDocs\htdocs\users\meister\public_html\cgi-bin\chat\index.cgi line 3.
Я код поломал, поетому не придирацца :))
With best regards, Meister
[ http://www.sinn.ru/~meister/ ]
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по:
|
