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

Timestamp:

10/08/15 17:09:51 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add device-backup fields to pool IP assignment. See #52.

• allocateBlock() in IPDB.pm
• new assignment page

Refine CSS hiding space-gobbling fields so it can be used multiple places

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -1467 +1467 @@
                 undef, ($args{parent}) );
       }
-      $dbh->do("UPDATE poolips SET custid = ?, city = ?,available='n', description = ?, notes = ?, ".
-        "circuitid = ?, privdata = ?, vrf = ?, rdns = ? ".
+
+      # backup
+      my $backupid = 0;
+      if ($args{backup}) {
+        my $sql = "INSERT INTO backuplist (";
+        my @bkvals;
+        for my $bk (qw(brand model type port src user vpass epass)) {
+          if ($args{"bk$bk"}) {
+            $sql .= "bk$bk,";
+            push @bkvals, $args{"bk$bk"};
+          }
+        }
+        $sql .= "ip) VALUES (".('?,' x scalar(@bkvals))."?)";
+        $dbh->do($sql, undef, @bkvals, $args{cidr});
+        ($backupid) = $dbh->selectrow_array("SELECT currval('backuplist_backup_id_seq')");
+      }
+
+      # finally assign the IP
+      $dbh->do("UPDATE poolips SET custid = ?, city = ?, available='n', description = ?, notes = ?, ".
+        "circuitid = ?, privdata = ?, vrf = ?, rdns = ?, backup_id = ? ".
         "WHERE ip = ? AND parent_id = ?", undef,
                 ($args{custid}, $args{city}, $args{desc}, $args{notes},
-                $args{circid}, $args{privdata}, $args{vrf}, $args{rdns},
+                $args{circid}, $args{privdata}, $args{vrf}, $args{rdns}, $backupid,
                 $args{cidr}, $args{parent}) );