<%args> $pingserver <%perl> use Net::SSH::Perl; use Math::GMP; use IO::Select; #my $pingserver='172.16.50.4'; #This is for testing purposes only my $pingme ="ping -c1 $pingserver"; my $server=''; #cleaned for posting a question my $username='root'; my $ssh = Net::SSH::Perl->new($server, debug=>1,options =>[ "UserKnownHostsFile /var/www/.ssh/known_hosts2" ]); $ssh->login($username) or die "Login Failed!!!\n"; my ($out, $err, $exit) = $ssh->cmd($pingme);
<% $out %>