Trog wrote:
> I hope your script handles ERROR responses correctly :-)
I'll give it a whirl, and yes, I seem to have it trapping error
conditions. (unless something changed, this always worked)
eval {
local $SIG{ALRM} = sub { die "Stream timeout"; };
alarm $sc{TIME_OUT};
while(<$csock>) {
if (/(\S+)\ FOUND$/) {
$vs = $1 unless ($vs);
$vf++;
}
$err = $1 if ($r =~ /^ERROR\:(.*)/);
}
alarm 0;
};
$err = $@ if($@);
--
Robert Blayzor, BOFH
INOC, LLC
rblayzor\@(inoc.net|gmail.com)
PGP: http://www.inoc.net/~dev/
Key fingerprint = 1E02 DABE F989 BC03 3DF5 0E93 8D02 9D0B CB1A A7B0
A successful tool is used to do something undreamed of by its author. -
Johnson
_______________________________________________
http://lurker.clamav.net/list/clamav-users.html
