Lines Matching refs:port
55 my $port = $_[1];
61 print(" GUID $addr port $port:");
72 my $data = `smpquery $extra_params -G portinfo $addr $port`;
75 if ($line =~ /^# Port info: Lid (\w+) port.*/) { $lid = $1; }
79 my $hr = $IBswcountlimits::link_ends{"$addr"}{$port};
83 $lid, $port,
92 $lid, $port, $width, $speed);
103 my $port = $_[1];
108 my $data = `perfquery $extra_params -G $addr $port` ||
109 die "'perfquery $extra_params -G $addr $port' FAILED.\n";
146 print " -r report port configuration information\n";
154 print " -P <ca_port> use selected channel adaptor port for queries\n";