Hi
> Your script still has a few bugs..
Thank you for your help. It's a long time I've written my last small
perl-skript.
> 1. It never terminates when Squid tells it to.. the while loop should
> read
>
> while ( defined ($input = <STDIN>)) {
> }
This will cause squid to crash:
(squid)[0x80ad24e]
/lib/libpthread.so.0[0x4016012b]
/lib/libc.so.6[0x401e0d68]
(squid)[0x8070dfb]
(squid)[0x807da3e]
(squid)[0x8067e6a]
(squid)[0x8067fab]
(squid)[0x8069b03]
(squid)[0x808eff7]
/lib/libc.so.6(__libc_start_main+0xa2)[0x401cf4a2]
(squid)(SSL_write+0x65)[0x804b981]
FATAL: Received Segment Violation...dying.
It think I'll try something like:
sig{HUP} = /&kill_sub;
sub kill_sub;
$kill =1;
while ( 1 == $kill )
{
...
}
sub kill_sub
{
$kill = 0;
}
Regards Tilo
--
+++ GMX - Mail, Messaging & more http://www.gmx.net +++
Bitte l�cheln! Fotogalerie online mit GMX ohne eigene Homepage!
