From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Thu, 7 May 2009 14:50:15 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: vsys-scripts-0.95-1~4
X-Git-Url: http://git.onelab.eu/?p=vsys-scripts.git;a=commitdiff_plain;h=f188fc19c9f8fca18e7d1826d05e81ac5084f254

---

diff --git a/exec/goodfences b/exec/goodfences
new file mode 100755
index 0000000..a07a427
--- /dev/null
+++ b/exec/goodfences
@@ -0,0 +1,31 @@
+#!/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");
+}
+
+close CMD;