Changeset 506 for trunk/dns-rpc.cgi

Timestamp:

05/07/13 13:46:07 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Add and flesh out RPC getTypelist().
Add an extra bit of flag-overloading in the DNSDB.pm's getTypelist(), so

that a caller can retrieve *only* true forward zone types instead of
including the forward+reverse pseudotypes as well.

File:

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

trunk/dns-rpc.cgi

@@ -63 +63 @@
 #sub getLogEntries {}
         'dnsdb.getRevPattern'   => \&getRevPattern,
-#sub getTypelist {}
+        'dnsdb.getTypelist'     => \&getTypelist,
         'dnsdb.getTypemap'      => \&getTypemap,
         'dnsdb.getReverse_typemap'      => \&getReverse_typemap,
@@ -666 +666 @@
 }
 
-#sub getTypelist {}
+sub getTypelist {
+  my %args = @_;
+  _commoncheck(\%args, 'y');
+
+  $args{selected} = $reverse_typemap{A} if !$args{selected};
+
+  return $dnsdb->getTypelist($args{recgroup}, $args{selected});
+}
 
 sub getTypemap {