Changeset 135 for trunk/cgi-bin/IPDB.pm

Timestamp:

01/26/05 15:30:30 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Merge bugfixes from /branches/stable r130:134

File:

• trunk/cgi-bin/IPDB.pm (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -203 +203 @@
 ##err Need better handling here;  what if there's no free IPs when this sub gets called?
       my @data = $sth->fetchrow_array;
-      my $cidr = $data[1];
+      $cidr = $data[1];  # $cidr is already declared when we get here!
 
       $sth = $dbh->prepare("update poolips set custid='$custid',".
@@ -545 +545 @@
   $mailer->to($recip);
   $mailer->data("From: \"IP Database\" <ipdb\@example.com>\n",
+        "To: $recip\n",
         "Date: ".strftime("%a, %d %b %Y %H:%M:%S %z",localtime)."\n",
         "Subject: {IPDB} $subj\n",