git://git.onelab.eu
/
vsys-scripts.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a07a4271bcf8184eb3e1431945113b9abe843b2d
[vsys-scripts.git]
/
exec
/
goodfences
1
#!/usr/bin/perl
2
3
use strict;
4
5
$|=1;
6
7
my $slicename;
8
my $portnumber;
9
10
11
$slicename = $ARGV[0];
12
$portnumber = <STDIN>;
13
14
chop($portnumber);
15
16
if ($portnumber!~/^\d+$/) {
17
die("$portnumber is not a port number");
18
}
19
20
open CMD,"/sbin/fuser -n tcp $portnumber 2>&1|";
21
22
$_ = <CMD>;
23
24
my @ports;
25
@ports=split;
26
27
if ($#ports > 0) {
28
system("cat /proc/$ports[1]/vinfo");
29
}
30
31
close CMD;