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

Timestamp:

03/08/16 13:54:14 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

"add VRF" action etc. See #54.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -28 +28 @@
         $errstr
         &initIPDBGlobals &connectDB &finish &checkDBSanity
-        &addMaster &touchMaster
+        &addVRF &addMaster &touchMaster
         &listVRF &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -44 +44 @@
                 $errstr
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
-                &addMaster &touchMaster
+                &addVRF &addMaster &touchMaster
                 &listVRF &listSummary &listSubs &listContainers &listAllocations &listForMerge &listFree &listPool
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -640 +640 @@
 #  $dbh->disconnect;
 } # end checkDBSanity
+
+
+## IPDB::addVRF()
+#
+sub addVRF {
+  my $dbh = shift;
+  my $newvrf = shift;
+  my %args = @_;
+
+  $args{comment} = '' if !$args{comment};
+  $args{location} = '' if !$args{location};
+
+  # 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 {
+    # Check if the VRF exists.  Arguably should check for "looks similar", but that gets ugly fast.
+    my $vrfex = $dbh->selectrow_array("SELECT vrf FROM vrfs WHERE vrf=?", undef, $newvrf);
+    die "VRF already exists!\n" if $vrfex;
+
+    # Nothing there yet, so we can insert the new VRF
+    $dbh->do("INSERT INTO vrfs (vrf,comment,location) VALUES (?,?,?)", undef,
+        $newvrf, $args{comment}, $args{location});
+
+    $dbh->commit;
+  };
+  if ($@) {
+    my $msg = $@;
+    eval { $dbh->rollback; };
+    return ('FAIL',$msg);
+  }
+  return ('OK',$newvrf);
+} # end addVRF()