Index: branches/stable/cgi-bin/ipdb.psql
===================================================================
--- branches/stable/cgi-bin/ipdb.psql (revision 90)
+++ branches/stable/cgi-bin/ipdb.psql (revision 91)
@@ -5,5 +5,5 @@
--
--- TOC Entry ID 18 (OID 16556)
+-- TOC Entry ID 22 (OID 16556)
--
-- Name: "plpgsql_call_handler" () Type: FUNCTION Owner: postgres
@@ -13,5 +13,5 @@
--
--- TOC Entry ID 19 (OID 16557)
+-- TOC Entry ID 23 (OID 16557)
--
-- Name: plpgsql Type: PROCEDURAL LANGUAGE Owner:
@@ -217,2 +217,48 @@
GRANT ALL on "allocations" to "ipdb";
+--
+-- TOC Entry ID 18 (OID 92809)
+--
+-- Name: alloctypes Type: TABLE Owner: ipdb
+--
+
+CREATE TABLE "alloctypes" (
+ "type" character(2) DEFAULT '' NOT NULL,
+ "listname" character varying(40) DEFAULT '',
+ "dispname" character varying(40) DEFAULT '',
+ "listorder" integer DEFAULT 0,
+ Constraint "alloctypes_pkey" Primary Key ("type")
+);
+
+--
+-- TOC Entry ID 19 (OID 92809)
+--
+-- Name: alloctypes Type: ACL Owner:
+--
+
+REVOKE ALL on "alloctypes" from PUBLIC;
+GRANT ALL on "alloctypes" to "kdeugau";
+GRANT ALL on "alloctypes" to "ipdb";
+
+--
+-- TOC Entry ID 20 (OID 93964)
+--
+-- Name: cities Type: TABLE Owner: ipdb
+--
+
+CREATE TABLE "cities" (
+ "city" character varying(30) DEFAULT '' NOT NULL,
+ "routing" character(1) DEFAULT 'n' NOT NULL,
+ Constraint "cities_pkey" Primary Key ("city")
+);
+
+--
+-- TOC Entry ID 21 (OID 93964)
+--
+-- Name: cities Type: ACL Owner:
+--
+
+REVOKE ALL on "cities" from PUBLIC;
+GRANT ALL on "cities" to "kdeugau";
+GRANT ALL on "cities" to "ipdb";
+
Index: branches/stable/cgi-bin/main.cgi
===================================================================
--- branches/stable/cgi-bin/main.cgi (revision 90)
+++ branches/stable/cgi-bin/main.cgi (revision 91)
@@ -69,4 +69,6 @@
# Other global variables
my @masterblocks;
+my @citylist;
+my @poplist;
my %allocated; # Count for allocated blocks in a master block
my %free; # Count for free blocks (routed and unrouted) in a master block
@@ -78,8 +80,9 @@
# Use the connectDB function, otherwise we end up confusing ourselves
my $ip_dbh = connectDB;
+my $sth;
# Slurp up the master block list - we need this several places
# While we're at it, initialize the related hashes.
-my $sth = $ip_dbh->prepare("select * from masterblocks order by cidr");
+$sth = $ip_dbh->prepare("select * from masterblocks order by cidr");
$sth->execute;
for (my $i=0; my @data = $sth->fetchrow_array(); $i++) {
@@ -92,4 +95,15 @@
}
+# Initialize the city and poplist arrays
+$sth = $ip_dbh->prepare("select * from cities order by city");
+$sth->execute;
+my $i = 0;
+my $j = 0;
+while (my @data = $sth->fetchrow_array) {
+ $citylist[$i++] = $data[0];
+ if ($data[1] eq 'y') {
+ $poplist[$j++] = $data[0];
+ }
+}
@@ -779,4 +793,5 @@
or croak "Could not open assign.html: $!";
$html = join('',);
+ close HTML;
my $masterlist = "\n";
$html =~ s|\$\$MASTERLIST\$\$|$masterlist|g;
- close HTML;
- }
+ my $pops = '';
+ foreach my $pop (@poplist) {
+ $pops .= "\n";
+ }
+ $html =~ s|\$\$POPLIST\$\$|$pops|g;
+ }
+ my $cities = '';
+ foreach my $city (@citylist) {
+ $cities .= "\n";
+ }
+ $html =~ s|\$\$ALLCITIES\$\$|$cities|g;
print $html;
Index: branches/stable/changes.html
===================================================================
--- branches/stable/changes.html (revision 90)
+++ branches/stable/changes.html (revision 91)
@@ -13,4 +13,9 @@
+
11/30/2004
+
Overhauled the city listings; they should be somewhat more complete now. Still needs a
+mechanism to easily add new cities.
+
+
11/26/2004
Allocating a static IP is now a little different. Use the "Customer Location" field to
Index: branches/stable/fb-assign.html
===================================================================
--- branches/stable/fb-assign.html (revision 90)
+++ branches/stable/fb-assign.html (revision 91)
@@ -7,44 +7,5 @@