Changeset 623 for trunk

Timestamp:

10/08/14 12:54:56 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Convert main.cgi's sole direct RPC call to use IPDB::_rpc()

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -104 +104 @@
   # Retrieve the list of DNS locations if we've got a place to grab them from
   if ($IPDB::rpc_url) {
-    # Make an object to represent the XML-RPC server.
-    my $server = Frontier::Client->new(url => $IPDB::rpc_url, debug => 0);
-    my $result;
 
     my %rpcargs = (
         rpcuser => $authuser,
-        rpcsystem => 'ipdb',
         group => 1,     # bleh
         defloc => '',
         );
-    $result = $server->call('dnsdb.getLocDropdown', %rpcargs);
+    my $result = IPDB::_rpc('getLocDropdown', %rpcargs);
     $page->param(loclist => $result);
   }