Changeset 903

Timestamp:

08/11/25 16:54:19 (5 hours ago)

Author:

Kris Deugau

Message:

/trunk

Committing ad hoc changes: Fill in revID() in dns-rpc.cgi

File:

• trunk/dns-rpc.cgi (modified) (3 diffs)

trunk/dns-rpc.cgi

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2012-2016,2020 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2012-2016,2020-2025 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -52 +52 @@
 #sub revName {
         'dnsdb.domainID'        => \&domainID,
-#sub revID {
+        'dnsdb.revID'           => \&revID,
         'dnsdb.addRDNS'         => \&addRDNS,
 #sub getZoneCount {
@@ -374 +374 @@
 }
 
-#sub revID {}
+=head3 revID
+
+Retrieve the ID for a reverse zone
+
+=over 4
+
+=item revzone
+
+The reverse zone to find the ID for, in CIDR form.
+
+=back
+
+Returns the integer ID of the domain if found.
+
+=cut
+sub revID {
+  my %args = @_;
+
+  _commoncheck(\%args, 'y');
+
+  my $revid = $dnsdb->revID($args{revzone}, $args{location});
+  die $dnsdb->errstr."\n" if !$revid;
+  return $revid;
+}
+