tomes
25-06-2002, 19:08
Folgendes *prob*, ich wollte Net::SSH::Perl in ein cgi- Script einbauen.
-----snip-----
#!/usr/bin/perl -w
#
#
####################
# Biblioteken
####################
$|=1;
use strict;
use CGI qw/ :form :cgi/;
use POSIX;
use Net::SSH::Perl;
my $cgi = new CGI;
####################
# Variable
####################
my $host = "tomes";
my $cmd = "ls -l";
my $user = "xxxxxx";
my $pass = "xxxxxx";
####################
# http Document ausgeben
####################
print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>SSH Test</title>
</head>
<body bgcolor=#00C8FF>
<font face=arial size=3 color=blue>
Test mit Net-SSH-Perl
<hr>
";
my $session = Net::SSH::Perl->new($host);
$session->login($user,$pass);
my @ssh = $session->cmd($cmd);
print "command ist: <br>\n";
for (@ssh)
{
print $_,"<br>\n";
}
print "</body>\n</html>\n";
-----snap-----
So sieht das Script ersteinmal aus. Wenn es ausgefuehrt wird bekomme ich in der /httpd/error_log folgende Fehlermeldung:
mkdir /.ssh: Permission denied at /usr/lib/perl5/site_perl/5.6.1/Net/SSH/Perl/Util/Hosts.pm line 50
Wenn man das ganze auf der Shell ausfuehrt, klappt es !
Wo liegt der (Denk)Fehler ?
T;o)Mes:(
-----snip-----
#!/usr/bin/perl -w
#
#
####################
# Biblioteken
####################
$|=1;
use strict;
use CGI qw/ :form :cgi/;
use POSIX;
use Net::SSH::Perl;
my $cgi = new CGI;
####################
# Variable
####################
my $host = "tomes";
my $cmd = "ls -l";
my $user = "xxxxxx";
my $pass = "xxxxxx";
####################
# http Document ausgeben
####################
print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>SSH Test</title>
</head>
<body bgcolor=#00C8FF>
<font face=arial size=3 color=blue>
Test mit Net-SSH-Perl
<hr>
";
my $session = Net::SSH::Perl->new($host);
$session->login($user,$pass);
my @ssh = $session->cmd($cmd);
print "command ist: <br>\n";
for (@ssh)
{
print $_,"<br>\n";
}
print "</body>\n</html>\n";
-----snap-----
So sieht das Script ersteinmal aus. Wenn es ausgefuehrt wird bekomme ich in der /httpd/error_log folgende Fehlermeldung:
mkdir /.ssh: Permission denied at /usr/lib/perl5/site_perl/5.6.1/Net/SSH/Perl/Util/Hosts.pm line 50
Wenn man das ganze auf der Shell ausfuehrt, klappt es !
Wo liegt der (Denk)Fehler ?
T;o)Mes:(