From f188fc19c9f8fca18e7d1826d05e81ac5084f254 Mon Sep 17 00:00:00 2001
From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Thu, 7 May 2009 14:50:15 +0000
Subject: [PATCH]

---
 exec/goodfences | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 exec/goodfences

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;
-- 
2.43.0