Anyone knows how to write a timeout script using perl, basically I
want to like this,
* Use perl to connect to an oracle database
* After 5 minutes cannot connect to the database through
database listener, get a timeout message and email to a distribution
list
Thank
On 11/09/2006 06:56 AM, Sara wrote:
use strict;
use warnings;
use CGI;
my $q = new CGI;
my $do = $q->param('do') || 'main'';
my $do = $q->param('do') || main();
if ($do) {
&$do;
}
sub main {
blah blah
}
=
Trying to call the subroutine main from vari
> ""Richard" == "Richard Bagshaw" <[EMAIL PROTECTED]> writes:
"Richard> I'm writing some code that basically checks a pop mailbox and puts the
"Richard> information into a mysql database, however if the person sends an
email
"Richard> in HTML format it looks messy, I am looking for a perl mod
use strict;
use warnings;
use CGI;
my $q = new CGI;
my $do = $q->param('do') || 'main'';
if ($do) {
&$do;
}
sub main {
blah blah
}
=
Trying to call the subroutine main from variable $do but I am gettin' error:
Can't use string ("main") as a subroutine ref