Changeset 114 for branches

Timestamp:

01/05/05 11:06:37 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Second iteration of billing-failure detection.
Whoops, missed the arrangment of "my ..." declarations

File:

• branches/stable/cgi-bin/CustIDCK.pm (modified) (1 diff)

branches/stable/cgi-bin/CustIDCK.pm

@@ -34 +34 @@
   # Try to catch failures to connect.  If the remote server is up but
   # not responding (this has HAPPENED) we need to break out rather than hanging.
+  my $dbh;
   eval {
     local $SIG{ALRM} = sub { die "failed connection to billing!!" };
     alarm 3;    # 3-second timeout.  This may be too aggressive.
-    my $dbh = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
+    $dbh = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
     alarm 0;    # cancel the alarm
   };