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

Timestamp:

10/08/15 17:49:27 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Update IP assignment update and IP delete for backup data. See #52.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -1841 +1841 @@
         my ($code,$rmsg) = initPool($dbh, "$newblock", $binfo->{type}, $binfo->{city}, 'normal', $args{block});
         die $rmsg if $code eq 'FAIL';
+      }
+    }
+
+    # check on the backup data first.  we may need to tweak the main update's parameters.
+    if (!defined($args{ignorebk})) {
+      if ($args{backupfields}) {
+        my @bkfields;
+        my @bkvals;
+        for my $bk (qw(brand model type src user vpass epass)) {
+          if ($binfo->{"bk$bk"} ne $args{"bk$bk"}) {
+            push @bkfields, "bk$bk = ?";
+            push @bkvals, $args{"bk$bk"};
+          }
+        }
+        $dbh->do("UPDATE backuplist SET ".join(',', @bkfields)." WHERE backup_id = ?",
+            undef, @bkvals, $binfo->{hasbk})
+            if @bkfields;
+##todo: keep historic changes for $timeperiod, by adding a backref ID field, and on updates adding a new backup
+# record instead of updating the existing one.  should probably check if new==old so we don't do needless updates
+# in that case...
+      } else {
+        if ($binfo->{hasbk}) {
+          # had backup data, no longer checked - delete backup entry
+          $dbh->do("DELETE FROM backuplist WHERE backup_id = ?", undef, $binfo->{hasbk});
+          $sql .= " = ?, backup_id";
+          push @vallist, 0;
+        }
       }
     }
@@ -2740 +2767 @@
       $msg = "Unable to deallocate $disp_alloctypes{$binfo->{type}} $cidr";
       $pinfo = getBlockData($dbh, $binfo->{parent_id}, 'b');
-##fixme: VRF and rdepth
       $dbh->do("UPDATE poolips SET custid = ?, available = 'y',".
         "city = (SELECT city FROM allocations WHERE id = ?),".
-        "description = '', notes = '', circuitid = '', vrf = ? WHERE id = ?", undef,
+        "description = '', notes = '', circuitid = '', vrf = ?, backup_id = 0".
+        " WHERE id = ?", undef,
         ($pinfo->{custid}, $binfo->{parent_id}, $pinfo->{vrf}, $id) );
+      $dbh->do("DELETE FROM backuplist WHERE backup_id = ?", undef, $binfo->{hasbk})
+          if $binfo->{hasbk};
       $dbh->commit;
     };