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

Timestamp:

11/08/12 17:56:36 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move last-modified-change for master blocks to
IPDB.pm. See #34.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -26 +26 @@
         %IPDBacl %aclmsg
         &initIPDBGlobals &connectDB &finish &checkDBSanity
-        &addMaster
+        &addMaster &touchMaster
         &listSummary &listMaster &listRBlock &listFree &listPool
         &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -40 +40 @@
                 %IPDBacl %aclmsg
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
-                &addMaster
+                &addMaster &touchMaster
                 &listSummary &listMaster &listRBlock &listFree &listPool
                 &getMasterList &getTypeList &getPoolSelect &findAllocateFrom
@@ -301 +301 @@
   }
 } # end addMaster
+
+
+## IPDB::touchMaster()
+# Update last-changed timestamp on a master block.
+sub touchMaster {
+  my $dbh = shift; 
+  my $master = shift;
+
+  local $dbh->{AutoCommit} = 0;
+  local $dbh->{RaiseError} = 1;
+
+  eval {
+    $dbh->do("UPDATE masterblocks SET mtime=now() WHERE cidr = ?", undef, ($master));
+    $dbh->commit;
+  };
+
+  if ($@) {
+    my $msg = $@;
+    eval { $dbh->rollback; };
+    return ('FAIL',$msg);
+  }
+  return ('OK','OK');
+} # end touchMaster()