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

Timestamp:

03/11/16 15:14:08 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Add "delete VRF" confirmation and action pages. Refine link from showvrf
template since a VRF is a completely different type of entity than a
netblock. See #54.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -28 +28 @@
         $errstr
         &initIPDBGlobals &connectDB &finish &checkDBSanity
-        &addVRF &getVRF &addMaster &touchMaster
+        &addVRF &getVRF &deleteVRF &addMaster &touchMaster
         &listVRF &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -44 +44 @@
                 $errstr
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
-                &addVRF &getVRF &addMaster &touchMaster
+                &addVRF &getVRF &deleteVRF &addMaster &touchMaster
                 &listVRF &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -688 +688 @@
   return $dbh->selectrow_hashref("SELECT comment,location FROM vrfs WHERE vrf = ?", {Slice=>{}}, $vrf);
 } # end getVRF()
+
+
+## IPDB::deleteVRF()
+#
+sub deleteVRF {
+  my $dbh = shift;
+  my $vrf = shift;
+
+  # Allow transactions, and raise an exception on errors so we can catch it later.
+  # Use local to make sure these get "reset" properly on exiting this block
+  local $dbh->{AutoCommit} = 0;
+  local $dbh->{RaiseError} = 1;
+
+  eval {
+    $dbh->do("DELETE FROM vrfs WHERE vrf = ?", undef, $vrf);
+    $dbh->commit;
+  };
+  if ($@) {
+    my $msg = $@;       # not much complexity here just yet.
+    return ('FAIL',$msg);
+  }
+
+  return ('OK','OK');
+} # end deleteVRF()