Changeset 885 for trunk/cgi-bin

Timestamp:

07/21/16 16:34:59 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Add quick and dirty allocation-finder sub to RPC script

File:

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

trunk/cgi-bin/ipdb-rpc.cgi

@@ -450 +450 @@
   return $result;
 } # rpc_getBackupList()
+
+
+sub rpc_findAllocation {
+  my %args = @_;
+
+  _commoncheck(\%args, 'n');
+
+  die "IP to search for required\n" if !$args{ip} || $args{ip} !~ /^\d+\.\d+\.\d+\.\d+$/;
+
+  my $sql = "SELECT cidr,custid,type FROM searchme WHERE cidr >>= ?";
+  # first, check if it's even on our network
+  my $isours = $ip_dbh->selectall_arrayref($sql." AND type = 'mm'", undef, $args{ip});
+  die $ip_dbh->errstr."\n" if $ip_dbh->err;  # do we care?
+  die "IP not on our network\n" if !@$isours;
+
+  # now, find the specific allocation
+  my $result = $ip_dbh->selectall_arrayref($sql." AND NOT type LIKE '_m' ORDER BY cidr DESC",
+    { Slice => {} }, $args{ip});
+  die $ip_dbh->errstr."\n" if $ip_dbh->err;
+
+  return $result;
+} # rpc_findAllocation()