/[pxelator]/bin/smclp.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/smclp.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    
Legend:
Removed from v.465  
changed lines
  Added in v.466
  ViewVC Help
Powered by ViewVC 1.1.26