Lines Matching refs:cmd
47 my $cmd = join (' ', @ARGV);
55 $t->cmd ($login_pass);
57 $t->cmd (String => 'en',
59 $t->cmd ($enable_pass);
61 $t->cmd ('conf t') if "$opt_c";
63 if ($cmd)
65 docmd ($t, $cmd);
78 chomp ($cmd = <>);
79 if (!defined ($cmd))
84 exit (0) if ($cmd eq 'q' || $cmd eq 'quit');
86 docmd ($t, $cmd) if $cmd !~ /^\s*$/;
94 my ($t, $cmd) = @_;
95 my @lines = $t->cmd ($cmd);
101 print "USAGE: $0 [-l LOGIN_PASSWORD] [-e ENABLE_PASSWORD] [-z|-b|-o|-r|-h] [<cmd>]\n",