Problem mit Net::SSH::Perl - #115720 (Fragen zu Perl-Modulen)

tecker

2008-10-23 16:34

User since
2008-02-26
77 Artikel
BenutzerIn

Ok habs mal getestet und vom Prinzip funktioniert es genauso wie das Skript von mir was ich oben geprstet habe. Problem auch hier ist ... die Passwörter die ich eingebe um sie auf dem Remote-Rechner zu ändern werden bei der EIngabe im Klartext angezeigt.

Code: (dl )

use strict;
use warnings;

use Net::SSH qw(ssh issh sshopen2);

my $command="passwd USERNAME";

issh('USERNAME@HOSTNAME', $command);

Gleiches gilt für

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Net::SSH qw(ssh issh sshopen2);

my $user = "USERNAME";
my $host = "HOSTNAME";
my $cmd = "passwd USERNAME";

sshopen2("$user\@$host", *READER, *WRITER, "$cmd") || die "ssh: $!";

while (<READER>) {
                        chomp();
                        print "$_\n";
                 }

                 close(READER);
                 close(WRITER);

Ich seh schon ich muss weiter an meiner Single-Sign-On Lösung mit openldap basteln :(