Changeset 447 for trunk/dns-rpc.cgi

Timestamp:

01/04/13 17:08:30 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweak RPC handler for updated addRDNS().
Add and fill in getLocDropdown() in RPC handler so that callers
can retrieve a list of locations to pass back when adding or changing
records and reverse zones.

File:

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

trunk/dns-rpc.cgi

@@ -56 +56 @@
         'dnsdb.updateUser'      => \&updateUser,
         'dnsdb.delUser'         => \&delUser,
+        'dnsdb.getLocDropdown'  => \&getLocDropdown,
         'dnsdb.getSOA'          => \&getSOA,
         'dnsdb.getRecLine'      => \&getRecLine,
@@ -160 +161 @@
   _commoncheck(\%args, 'y');
 
-  my ($code, $msg) = DNSDB::addRDNS($dbh, $args{revzone}, $args{revpatt}, $args{group}, $args{state});
-  die $msg if $code eq 'FAIL';
+  my ($code, $msg) = DNSDB::addRDNS($dbh, $args{revzone}, $args{revpatt}, $args{group}, $args{state}, $args{defloc});
+  die "$msg\n" if $code eq 'FAIL';
   return $msg;  # domain ID
 }
@@ -279 +280 @@
 #sub getLocCount {}
 #sub getLocList {}
-#sub getLocDropdown {}
+
+sub getLocDropdown {
+  my %args = @_;
+
+  _commoncheck(\%args);
+  $args{defloc} = '' if !$args{defloc};
+
+  my $ret = DNSDB::getLocDropdown($dbh, $args{group}, $args{defloc});
+  return $ret;
+}
 
 sub getSOA {