Changeset 318 for branches/stable/cgi-bin/CustIDCK.pm

Timestamp:

04/03/06 16:20:54 (18 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Extra code changes required for new billing system rollout. Note that references
to oldcustid can be removed later; this field is NOT required long-term.

File:

• branches/stable/cgi-bin/CustIDCK.pm (modified) (2 diffs)

branches/stable/cgi-bin/CustIDCK.pm

@@ -49 +49 @@
 
     eval {
-      $dbh = DBI->connect ("DBI:Pg:host=newbilling;dbname=custids", "cidcheck", "c1dch4ck");
-      die "failed connection to newbilling!!" if !$dbh;
+      $dbh = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
+      die "failed connection to billing!!" if !$dbh;
 # Not certain if this is needed here.  It doesn't seem to be.
 #      $dbh->ping;      # Gotta do this to "force" a "failure".  NRGH.
@@ -58 +58 @@
   };
   alarm 0;      # avoid race conditions.  May not be needed here.  (Hah!)
-  if ($@ && $@ !~ /failed connection to newbilling!!/) {
+  if ($@ && $@ !~ /failed connection to billing!!/) {
     $CustIDCK::Error = 1;
-    $CustIDCK::ErrMsg = "Failed connection to newbilling DB host!  Unable to verify CustIDs.";
+    $CustIDCK::ErrMsg = "Failed connection to billing DB host!  Unable to verify CustIDs.";
     return 0;
   }