Net-SSH-Perl

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Minor test cleanups.

1.31 2008.10.02

    - New co-maintainer, Greg Sabino Mullane (TURNSTEP).
    - Prevent t/03-packet.t from hanging due to high file descriptor.
      (altblue at n0i.net, rt.cpan.org #6101)
    - Skip some tests if Math::GMP not installed (e.g. from choosing only 
      protocol 2 in Makefile.PL) (Greg Sabino Mullane, reported in 
      rt.cpan.org #25152)
    - If ENV{HOME} is not set, use getpwuid. If both fail and the dir 
      is needed, we croak. (Greg Sabino Mullane, expanded from patch 
      by dgehl at inverse.ca in rt.cpan.org #25174)
    - Fix incorrect logical/bitwise AND mixup (Peter.Haydon at uk.fujitsu.com, 
      rt.cpan.org #31490)
    - Allow empty stdin for SSH2 (rcp at rcable.co.uk, rt.cpan.org #32730)
    - Adjust terminal dimensions dynamically if Term::ReadKey is available
      (john at sackheads.org, rt.cpan.org #34874)

1.30  2005.10.12
    - Fix for local *READ/*WRITE tie problem in open2 function (Bas van

Changes  view on Meta::CPAN

    - Handle::SSH1::READ now looks to see if we have already hit EOF
      (ie. we have received exit status packet); if so, returns 0.
    - Added SSH1::send_data, which allows register_handler callbacks
      to be written that will (hopefully) work for both SSH-1 and
      SSH-2.

1.20  2001.07.11
    - A read on an open2 tied filehandle that indicates a closed connection
      will now return 0 bytes instead of causing a fatal error. Thanks to
      Anthony Ball for the reasoning and the fix.
    - getpwuid is now called in an eval, so on systems that do not
      support it, it will not cause a fatal error. Thanks to Shaun
      Bramley for the spot.
    - Bug with "BatchMode no" in a config file overriding interactive => 1
      in the constructor is now fixed. Thanks to Doug Wilson for the spot.
    - Tildes ('~') in IdentityFile config file directive were not being
      expanded to $ENV{HOME} as they should have been. This is now
      fixed. Thanks to Doug Wilson for the spot.
    - Doug Wilson pointed out that it was impossible to use an open
      SSH-1 and SSH-2 handle at the same time, because of the way
      Buffer worked (setting method globs on import). This has now been

eg/cmd.pl  view on Meta::CPAN

    printf "    [%d] %s\n", $ciph, Net::SSH::Perl::Cipher::name($ciph);
}
printf "Enter a number: [%d] ", Net::SSH::Perl::Cipher::id('IDEA');
chomp(my $c = <STDIN>);
print "\n";
my $ssh = Net::SSH::Perl->new($host || $this_host,
    port => $port || 'ssh',
    cipher => Net::SSH::Perl::Cipher::name($c),
    debug => 1);

my $this_user = $ENV{USERNAME} || scalar getpwuid($<);
print "Enter your username on that host: [$this_user] ";
chomp(my $user = <STDIN>);

use Term::ReadKey;

print "And your password: ";
ReadMode('noecho');
chomp(my $pass = ReadLine(0));
ReadMode('restore');
print "\n";

eg/pssh-keygen  view on Meta::CPAN

    }

    my $pass = $opts{N};
    unless ($pass) {
        $pass = _read_passphrase("Enter new passphrase (empty for no passphrase): ");
        my $again = _read_passphrase("Enter same passphrase again: ");
        die "Pass phrases do not match. Try again.\n"
            unless $pass eq $again;
    }
    use Sys::Hostname;
    my $comment = getpwuid($<) . '@' . hostname;

    $key->write_private($keyfile, $pass);
    chmod 0600, $keyfile or die "Can't chmod $keyfile to 0600: $!";
    debug("Your identification has been saved in $keyfile.");

    my $pub = write_public($keyfile, $key, $comment);
    debug("Your public key has been saved in $pub.");

    debug("The key fingerprint is:");
    debug($key->fingerprint);

lib/Net/SSH/Perl.pm  view on Meta::CPAN

sub client_version_string { $_[0]->{client_version_string} }
sub server_version_string { $_[0]->{server_version_string} }

sub _current_user {
    if ( $^O eq 'MSWin32' ) {
        return _current_user_win32();
    }

    my $user;
    eval { $user = scalar getpwuid $> };
    return $user;
}

sub _init {
    my $ssh = shift;

    my %arg = @_;
    my $user_config = delete $arg{user_config}
      || catfile($ENV{HOME} || $ENV{USERPROFILE}, '.ssh', 'config');
    my $sys_config  = delete $arg{sys_config}

t/99-spellcheck.t  view on Meta::CPAN

eof
EOF
et
eval
everyone's
executables
filehandle
filehandles
FILENO
fujitsu
getpwuid
getservbyname
GMP
GPL
hmac
HMAC
hostfile
HostKeyAlgorithms
html
http
IdentityFile