Lines Matching refs:protocol
247 my $protocol = shift(@_);
249 if ($protocol ne 'ip' && $protocol ne 'ipv6')
251 print "Invalid protocol: $protocol\n";
252 print "protocol must be 'ip' or 'ipv6'\n\n";
255 $command = "show $protocol bgp $Form{'arg'}";
277 my $protocol = shift(@_);
279 if ($protocol ne 'ip' && $protocol ne 'ipv6')
281 print "Invalid protocol: $protocol\n";
282 print "protocol must be 'ip' or 'ipv6'\n\n";
285 $command = "show $protocol bgp summary";
302 my $protocol = shift(@_);
303 if ($protocol ne 'ip' && $protocol ne 'ipv6')
305 print "Invalid protocol: $protocol\n";
306 print "protocol must be 'ip' or 'ipv6'\n\n";
309 $command = "show $protocol route $Form{'arg'}";