Changeset 852 for trunk

Timestamp:

04/13/16 18:18:54 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add an RPC sub to export a list of "devices to be backed up" per long-ago
request

File:

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

trunk/cgi-bin/ipdb-rpc.cgi

@@ -88 +88 @@
         'ipdb.getCityList'      => \&rpc_getCityList,
         'ipdb.getAvailableStatics'      => \&rpc_getAvailableStatics,
+        'ipdb.getBackupList'    => \&rpc_getBackupList,
 };
 
@@ -409 +410 @@
   return $ret;
 } # rpc_getAvailableStatics()
+
+
+sub rpc_getBackupList {
+  my %args = @_;
+
+  _commoncheck(\%args, 'n');
+
+  # grab the whole waffle.
+  my $sql = "SELECT backup_id, bkbrand, bkmodel, bktype, bkport, bksrc, bkuser, bkvpass, bkepass, ip FROM backuplist";
+  my $result = $ip_dbh->selectall_arrayref($sql, { Slice => {} });
+  die $ip_dbh->errstr if !$result;
+
+  return $result;
+} # rpc_getBackupList()