my $routed = $rec->{routedTo}{serviceName};
$localhost ne $routed or die "$ip is already routed to $localhost!\n";
-
grep {$ip eq $_} ips() or die "$ip is is not installed on $localhost!\n";
- require Data::Dumper;
- die Data::Dumper::Dumper([$localhost,$routed,$rec]);
+
+ require Data::Dumper; die Data::Dumper::Dumper([$localhost,$routed,$rec]);
+
local $_ = _query("/ip/$ip/move",'POST',{'to' => $localhost});
print JSON::encode_json($_);
exit;