2014-11-23 21:59:30 +00:00
|
|
|
#!/usr/bin/env perl
|
2005-04-25 14:57:28 +00:00
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
2009-12-19 17:20:53 +00:00
|
|
|
use FindBin;
|
2013-04-15 21:56:19 +01:00
|
|
|
use lib $FindBin::Bin. '/../lib';
|
2013-04-16 08:43:14 +01:00
|
|
|
use lib $FindBin::Bin. '/../lib/perl5';
|
2009-12-19 17:20:53 +00:00
|
|
|
use App::ClusterSSH;
|
|
|
|
|
2013-04-15 21:56:19 +01:00
|
|
|
my $app = App::ClusterSSH->new();
|
2014-05-17 17:32:03 +01:00
|
|
|
|
|
|
|
$app->options->add_common_ssh_options;
|
2014-06-07 15:43:03 +01:00
|
|
|
$app->options->add_common_session_options;
|
2010-06-18 22:10:33 +01:00
|
|
|
$app->run();
|
2005-04-25 14:57:28 +00:00
|
|
|
|
2010-06-20 20:23:41 +01:00
|
|
|
1;
|