Quote

mkdir /.ssh: Permission denied
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
ping ende
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
datei ende
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
login ende
Use of uninitialized value in scalar chomp at /var/lib/wwwrun/monitor.pl line 69.
Use of uninitialized value in scalar chomp at /var/lib/wwwrun/monitor.pl line 70.
Use of uninitialized value in scalar chomp at /var/lib/wwwrun/monitor.pl line 71.
Use of uninitialized value in scalar chomp at /var/lib/wwwrun/monitor.pl line 72.
ping ende
mkdir /.ssh: Permission denied
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl.pm line 107.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
datei ende
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 41, <GEN0> line 1.
Use of uninitialized value in concatenation (.) or string at /usr/local/lib/perl5/site_perl/5.8.5/Net/SSH/Perl/SSH2.pm line 47, <GEN0> line 1.
mkdir /.ssh: Permission denied
login ende

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

$cmd= "ls -l";
#$cmd= "id";
$ssh = Net::SSH::Perl->new($server, protocol=>2);
$ssh->login( $user, $passwort );
try {
 #print "Vor cmd\n";
 ($v_stdout, $v_stderr, $v_exit) = $ssh->cmd($cmd);
 #print "Nach cmd\n";
 if ($target eq 'quelle' ) {
  $writedb = `./writedb2.pl 10 \"login_quelle\" 0 \"$intf_name\" \"login.pl\" \"$mail\"`;
  $writedb = `./writedb2.pl 0 4 \"login.pl\" \"$server\"`; # Alles OK
 } else {
  $writedb = `./writedb2.pl 10 \"login_ziel\" 0 \"$intf_name\" \"login.pl\" \"$mail\"`;
  $writedb = `./writedb2.pl 0 4 \"login.pl\" \"$server\"`;
 }

} except {
 $writedb = `./writedb2.pl 0 3 \"login.pl\" \"$server\"`; # Fehler schreiben
 if ("$target" eq "quelle" ) {
  $writedb = `./writedb2.pl 10 \"login_quelle\" 1 \"$intf_name\" \"login.pl\" \"$mail\"`;
 } else {
  $writedb = `./writedb2.pl 10 \"login_ziel\" 1 \"$intf_name\" \"login.pl\" \"$mail\"`;
 }
}
finally {
 $writedb = `./writedb2.pl 0 2 \"login.pl\" \"$intf_name\"`; # Ende schreiben
}

Quote

make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/0-signature....gpg: Signature made Wed Oct 8 16:29:54 2003 CEST using DSA key ID 06D8C374
gpg: requesting key 06D8C374 from x-hkp://pgp.mit.edu:11371 ...
gpg: can't get key from keyserver: Connection refused
gpg: Can't check signature: public key not found
Not in MANIFEST: blibdirs
==> MISMATCHED content between MANIFEST and distribution files! <==
# Failed test (t/0-signature.t at line 18)
# Looks like you failed 1 tests of 1.
t/0-signature....dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
t/00prim.........ok
t/01tag..........ok
t/02seq..........FAILED tests 17-18
Failed 2/18 tests, 88.89% okay
t/03seqof........ok
t/04opt..........ok
t/05time.........ok
t/06bigint.......ok
t/07io...........ok
t/08set..........ok
t/09contr........ok
t/10choice.......ok
t/11indef........ok
t/12der..........ok
t/13utf8.........ok
t/14any..........ok
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/0-signature.t 1 256 1 1 100.00% 1
t/02seq.t 18 2 11.11% 17-18
Failed 2/16 test scripts, 87.50% okay. 3/420 subtests failed, 99.29% okay.
make: *** [test_dynamic] Error 29

Quote

Net::SSH::Perl->new($host, %params)

To set up a new connection, call the new method, which connects to $host and returns a Net::SSH::Perl object.

new accepts the following named parameters in %params:

• identity_files

A list of RSA/DSA identity files to be used in RSA/DSA authentication. The value of this argument should be a reference to an array of strings, each string identifying the location of an identity file. Each identity file will be tested against the server until the client finds one that authenticates successfully.

If you don't provide this, RSA authentication defaults to using $ENV{HOME}/.ssh/identity, and DSA authentication defaults to $ENV{HOME}/.ssh/id_dsa.