Changeset 86 for branches

Timestamp:

11/26/04 17:05:27 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Modified process for allocating a static IP

• POP list now determines city to search for wrt pool location
• City will now be displayed in list of pools

File:

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

branches/stable/cgi-bin/main.cgi

@@ -829 +829 @@
 my $city;       # Shut up Perl's "strict" scoping/usage check.
       $sql = "select * from poolips where available='y' and".
-        " ptype='$base' and city='$webvar{city}'";
+        " ptype='$base' and city='$webvar{pop}'";
     }
 
@@ -840 +840 @@
       $ipcount{$data[0]}++;
     }
+    $sth = $ip_dbh->prepare("select city from allocations where cidr=?");
     foreach my $key (keys %ipcount) {
-      $optionlist .= "<option value='$key'>$key [$ipcount{$key} free IP(s)]</option>\n";
+      $sth->execute($key);
+      my @data = $sth->fetchrow_array;
+      $optionlist .= "<option value='$key'>$key [$ipcount{$key} free IP(s)] in $data[0]</option>\n";
     }
     $cidr = "Single static IP";