Changeset 156 for branches

Timestamp:

02/07/05 12:00:47 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Updated CustIDCK.pm and checkcusts.pl with new billing server
due to old machine being rather unstable.

Location:

branches/stable/cgi-bin

Files:

• CustIDCK.pm (modified) (2 diffs)
• checkcusts.pl (modified) (1 diff)

branches/stable/cgi-bin/CustIDCK.pm

@@ -36 +36 @@
   my $dbh;
   eval {
-    local $SIG{ALRM} = sub { die "failed connection to billing!!" };
+    local $SIG{ALRM} = sub { die "failed connection to newbilling!!" };
     alarm 3;    # 3-second timeout.  This may be too aggressive.
 
     eval {
-      $dbh = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
-      die "failed connection to billing!!" if !$dbh;
+      $dbh = DBI->connect ("DBI:Pg:host=newbilling;dbname=custids", "cidcheck", "c1dch4ck");
+      die "failed connection to newbilling!!" 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.
@@ -49 +49 @@
   };
   alarm 0;      # avoid race conditions.  May not be needed here.  (Hah!)
-  if ($@ && $@ !~ /failed connection to billing!!/) {
+  if ($@ && $@ !~ /failed connection to newbilling!!/) {
     $CustIDCK::Error = 1;
-    $CustIDCK::ErrMsg = "Failed connection to billing DB host!  Unable to verify CustIDs.";
+    $CustIDCK::ErrMsg = "Failed connection to newbilling DB host!  Unable to verify CustIDs.";
     return 0;
   }

branches/stable/cgi-bin/checkcusts.pl

@@ -26 +26 @@
 
 ($dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
-$IDH = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
+$IDH = DBI->connect ("DBI:Pg:host=newbilling;dbname=custids", "cidcheck", "c1dch4ck");
 $sth = $dbh->prepare("select cidr,custid from searchme where not (custid='6750400') ".
         "and not (custid='STAFF') order by cidr");