Changeset 276

Timestamp:

03/15/12 16:44:53 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Add revID sub to match domainID for consistency

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -39 +39 @@
         &changeGroup
         &loadConfig &connectDB &finish
-        &addDomain &delZone &domainName &revName &domainID &addRDNS
+        &addDomain &delZone &domainName &revName &domainID &revID &addRDNS
         &getZoneCount &getZoneList
         &addGroup &delGroup &getChildren &groupName
@@ -61 +61 @@
                 &changeGroup
                 &loadConfig &connectDB &finish
-                &addDomain &delZone &domainName &revName &domainID &addRDNS
+                &addDomain &delZone &domainName &revName &domainID &revID &addRDNS
                 &getZoneCount &getZoneList
                 &addGroup &delGroup &getChildren &groupName
@@ -1366 +1366 @@
   return $domid if $domid;
 } # end domainID()
+
+
+## DNSDB::revID()
+# Takes a database handle and reverse zone name
+# Returns the rDNS ID number
+sub revID {
+  $errstr = '';
+  my $dbh = shift;
+  my $revzone = shift;
+  my ($revid) = $dbh->selectrow_array("SELECT rdns_id FROM revzones WHERE revnet=?", undef, ($revzone) );
+  $errstr = $DBI::errstr if !$revid;
+  return $revid if $revid;
+} # end revID()