Changeset 866 for trunk/cgi-bin/IPDB.pm

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/IPDB.pm (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -1216 +1216 @@
   my $dbh = shift;
   my $pool = shift;
+  my $incdesc = shift;
+  $incdesc = 1 if !defined($incdesc);  # extra flag to include description and "deleteme" flag
 
   my $sth = $dbh->prepare("SELECT ip,custid,available,description,type,id".
@@ -1226 +1228 @@
         custid => $custid,
         available => $available,
-        desc => $desc,
-        delme => $available eq 'n',
         parent => $pool,
         id => $id,
         );
+    if ($incdesc) {
+      $row{desc} = $desc;
+      $row{delme} = ($available eq 'n');
+    }
     push @poolips, \%row;
   }