Changeset 506 for trunk

Timestamp:

05/07/13 13:46:07 (12 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.

Location:

trunk

Files:

• DNSDB.pm (modified) (1 diff)
• dns-rpc.cgi (modified) (2 diffs)

trunk/DNSDB.pm

@@ -4115 +4115 @@
     # default;  forward zone types.  technically $type eq 'f' but not worth the error message.
     $sql .= "stdflag=1 OR stdflag=2";
+    $sql .= " AND val < 65280" if $recgroup eq 'fo';  # An extra flag to trim off the pseudotypes as well.
   }
   $sql .= " ORDER BY listorder";

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 {