Lines Matching refs:port
81 my $port = $_[1];
86 $port =~ /0+(.+)/;
108 my $port = $_[1];
116 if (($switch_port_count{$port} != $lids_per_port)
122 $port =~ /0+(.+)/;
161 my $port;
174 for $port (@ports) {
175 if (!defined($switch_port_count{$port})) {
176 $switch_port_count{$port} = 0;
179 if ($switch_port_count{$port} == 0) {
180 # If port is down, don't use it in this calculation
181 $ret = is_port_up($iblinkinfo_output, $port);
187 # If port is directly connected to a node, don't use
189 if (is_directly_connected($iblinkinfo_output, $port) == 1) {
194 push(@output_ports, $port);
196 if ($switch_port_count{$port} < $min_usage) {
197 $min_usage = $switch_port_count{$port};
199 if ($switch_port_count{$port} > $max_usage) {
200 $max_usage = $switch_port_count{$port};
212 for $port (@output_ports) {
213 print "Port $port: $switch_port_count{$port}\n";