I created a form with a 'post' to a cgi script. The cgi script tries to use Net::SSH::Perl to login to the server. It won't complete and returns the following error:
Here is the script that I would like to try (unless I can be told it's better to be done another route - and I'm WAY willing to go there!):Software error: Can't write to /.ssh/known_hosts2: Permission denied at /usr/lib/perl5 +/site_perl/5.8.5/Net/SSH/Perl.pm line 380
Thank you for ANY advice you may offer. Trust me! It is sincerely appreciated! Ronni#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict; print header; print start_html("Thank You"); print h2("Thank You"); my %form; foreach my $p (param()) { $form{$p} = param($p); #print "$p = $form{$p}<br>\n"; } print end_html; my $mypassword; $mypassword = '******'; my $var; my $val; print header; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; #print "${var}=\"${val}\"\n"; } use Net::SSH::Perl; print "<br / > Here is where we try to make the ssh<br / >"; my $ssh = Net::SSH::Perl->new('my_personal_box'); print "<br / >here is the ssh part: $ssh <br / >"; $ssh->login("my_userid", $mypassword); print end_html;
In reply to Net::SSH::Perl - looking for someone to point me in the right direction by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |