Changeset 850 for trunk/cgi-bin/ipdb-rpc.cgi

Timestamp:

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

Author:

Kris Deugau

Message:

/trunk

Fill in rpc_deleteBlock() stub

File:

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

trunk/cgi-bin/ipdb-rpc.cgi

@@ -288 +288 @@
 
 
-sub rpc_deleteBlock {}
+sub rpc_deleteBlock {
+  my %args = @_;
+
+  _commoncheck(\%args, 'y');
+
+  _validateInput(\%args);
+
+  if ($args{block} =~ m{^(?:\d+\.){3}\d+(?:/32)?$}) {
+    # deleting a static IP.  retrieve the IP ID based on either the parent or VRF.
+    die "Pool ID or VRF is required\n" if !$args{parent} && !$args{vrf};
+    ($args{block}) = $ip_dbh->selectrow_array(
+        "SELECT id FROM poolips WHERE ip = ? AND ".($args{parent} ? "parent_id = ?" : "vrf = ?"),
+        undef, $args{block}, ($args{parent} ? $args{parent} : $args{vrf}) );
+    warn "passed block $args{block} guessed as $args{block}\n";
+  }
+
+  # snag block info for log
+  my $blockinfo = getBlockData($ip_dbh, $args{block}, $args{type});
+  my ($code,$msg) = deleteBlock($ip_dbh, $args{block}, $args{type}, $args{delfwd}, $args{rpcuser});
+
+  my $authuser = "$args{rpcsystem}/$args{rpcuser}";
+  if ($code eq 'OK' || $code =~ /^WARN/) {
+    syslog "notice", "$authuser deallocated '$blockinfo->{type}'-type netblock ID $args{block} ".
+        "($blockinfo->{block}), $blockinfo->{custid}, $blockinfo->{city}, desc='$blockinfo->{description}'";
+    mailNotify($ip_dbh, 'da', "REMOVED: $disp_alloctypes{$blockinfo->{type}} $blockinfo->{block}",
+# $args{block} useful?  do we care about the block ID here?
+        "$disp_alloctypes{$blockinfo->{type}} $blockinfo->{block} deallocated by $authuser\n".
+        "CustID: $blockinfo->{custid}\nCity: $blockinfo->{city}\n".
+        "Description: $blockinfo->{description}\n");
+  } else {
+    if ($args{type} =~ /^.i$/) {
+      syslog "err", "$authuser could not deallocate static IP ID $args{block} ($blockinfo->{block}): '$msg'";
+    } else {
+      syslog "err", "$authuser could not deallocate netblock ID $args{block} ($blockinfo->{block}): '$msg'";
+    }
+  }
+
+   return $msg;
+} # rpc_deleteBlock()
+
+
 sub rpc_getBlockData {}
 sub rpc_getBlockRDNS {}