Changeset 866 for trunk/cgi-bin/main.cgi

Timestamp:

05/02/16 17:59:07 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

main.cgi:

• Don't spew warnings and break the UI when retrieval of the zone list for a netblock fails

IPDB.pm, ipdb-rpc.cgi:

• Fill out rpc_listPool stub in ipdb-rpc.cgi. The first likely consumer may not want the full UI dataset (with description and "deleteme" flag) so the core sub has been extended with an optional flag that defaults to on.

ipdb-rpc.cgi:

• Correct argument validation in rpc_deleteBlock()

File:

• trunk/cgi-bin/main.cgi (modified) (2 diffs)

trunk/cgi-bin/main.cgi

@@ -474 +474 @@
   $page->param(maydel => $IPDBacl{$authuser} =~ /d/);
 
-  my $plist = listPool($ip_dbh, $webvar{pool});
+  my $plist = listPool($ip_dbh, $webvar{pool}, 1);
   $page->param(poolips => $plist);
 } # end showPool
@@ -1111 +1111 @@
     my $revlist = getRevID($ip_dbh, user => $authuser, cidr => $blockinfo->{block},
         location => $blockinfo->{location});
-    $page->param(revlist => $revlist);
+    $page->param(revlist => $revlist) if $revlist;
 
     my $cached;