new layout - make room for slice-space stuff

[vsys-scripts.git] / root-context / exec / goodfences

diff --git a/root-context/exec/goodfences b/root-context/exec/goodfences
new file mode 100755 (executable)
index 0000000..88c44e1
--- /dev/null
+++ b/root-context/exec/goodfences
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+
+$|=1;
+
+my $slicename;
+my $portnumber;
+
+
+$slicename = $ARGV[0];
+$portnumber = <STDIN>;
+
+chop($portnumber);
+
+if ($portnumber!~/^\d+$/) {
+        die("$portnumber is not a port number");
+}
+
+open CMD,"/sbin/fuser -n tcp $portnumber 2>&1|";
+
+$_ = <CMD>;
+
+my @ports;
+@ports=split;
+
+if ($#ports > 0) {
+        system("cat /proc/$ports[1]/vinfo");
+        print "Please refer to http://planetflow.planet-lab.org/lookupslice.php to obtain the name corresponding to this slice.";
+}
+
+close CMD;