Is the lack of response because this is a stupid
question related to an extensively documented problem
or does no one else have experience of this issue?
Anyone?
Thanks, Chris
--- Chris Masters <[EMAIL PROTECTED]> wrote:
> Hi All,
>
> A firewall is terminating my connection with a mysql
> database after a period of inactivity. I've used the
> following code (with ref to cpan docs and connect)
> and
> it still causes a hang.
>
> ###################################################
>
> my $result = 0;
> my $alarm = 0;
> eval
> {
> #set alarm to timeout query hangs
> my $h = Sys::SigAction::set_sig_handler( 'ALRM'
> ,sub { $alarm = 1; } );
> alarm(2);
>
> my $sth = $dbh->prepare("SELECT 1");
> $sth->execute();
> $result = 1;
>
> alarm(0);
> };
>
> alarm(0);
>
> if($@ || $alarm)
> {
> syslog('err',"execute error: $@");
> $result = 0;
> }
>
> return $result;
>
> ###############################################
>
> Am I using alarms wrongly with perl?
>
> Would it be better to use a select(2) wrapper?
>
> Any other ideas to prevent this hang?
>
> Thanks for any help on this.
>
> Chris
>
> redhat 8.0
> perl-5.8.0-88.3
> perl-DBI-1.30-1
> perl-DBD-MySQL-2.1017-3
>
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Small Business - Try our new resources site!
> http://smallbusiness.yahoo.com/resources/
>
__________________________________
Do you Yahoo!?
Make Yahoo! your home page
http://www.yahoo.com/r/hs
