Parent Directory | Revision Log | Patch
revision 465 by dpavlin, Sun Jan 3 19:32:14 2010 UTC | revision 466 by dpavlin, Sun Jan 3 20:00:05 2010 UTC | |
---|---|---|
# | Line 9 use Data::Dump qw/dump/; | Line 9 use Data::Dump qw/dump/; |
9 | ||
10 | use Net::OpenSSH; | use Net::OpenSSH; |
11 | use Expect; | use Expect; |
12 | use Getopt::Long; | |
13 | ||
14 | my $debug = 0; | my $debug = 0; |
15 | my $timeout = 5; | my $timeout = 5; |
16 | ||
17 | GetOptions( | |
18 | 'debug!' => \$debug, | |
19 | 'timeout=i' => \$timeout, | |
20 | ) or die $!; | |
21 | ||
22 | my ( $uri, $command, $path ) = @ARGV; | my ( $uri, $command, $path ) = @ARGV; |
23 | die "usage: $0 login:passwd\@host show /system1\n" unless $uri && $command; | die "usage: $0 login:passwd\@host show /system1\n" unless $uri && $command; |
24 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |