First off, I assume that you have tried connecting directly using sftp and verified that the remote server is properly configured to use it? I am especially concerned to see this line in your debug output:

            denmark: Remote protocol version 1.99, ...
[download]

Assuming no problems there, it is helpful to look at the code (this is also helpful). The relevant chunk is:

    buffer_put_char(&msg, SSH2_FXP_INIT);
    buffer_put_int(&msg, SSH2_FILEXFER_VERSION);
    send_msg(fd_out, &msg);

    buffer_clear(&msg);

    get_msg(fd_in, &msg);

    /* Expecting a VERSION reply */
[download]

Which indicates that it is hanging while waiting for a version response from the remote machine. Again, I have concerns that the remote machine may not be set up correctly. Do you have debugging info from the server? If you cannot touch it to debug, consider testing sftp connections to your local machine. If those work, you then really have to examine the remote server.

Yes, I can use sftp (via putty's psftp ) and grab the files manually. I'm using a password, not running pageant.

I am not sure how to see debug info from the server; as it is a shared box (I am a guest, I don't control it), I suspect I can't.

I'd rather do this in perl; though if need be, I guess I can use putty batch scrips wrapped in backticks.

Thanks idsfa for any ideas.........

Ask the sysadmin of the remote machine if they would be willing to set up a second sshd on another port with logging cranked up so that you can test. It's worth a shot. Otherwise, you need to step through to find the part that is breaking your code.

Begin at the beginning. First, confirm that you can get Net::SSH::Perl working:

    my $ssh = Net::SSH::Perl->new("host1", protocol=>2, debug=>1);
    $ssh->login("user1", "pass1");

    ($out, $err, $exit) = $ssh->cmd("hostname");
    print "Out: $out$/Err: $err$/Exit: $exit$/";
[download]

If that doesn't return the hostname (modulo any syntax errors ... I didn't test the code), then there is something wrong with the server.

From there, step through the Net::SFTP code until you find the bit that breaks it. (extract follows)

sub do_init {
    my $sftp = shift;
    my $ssh = $sftp->{ssh};

    $sftp->debug("Sending SSH2_FXP_INIT");
    my $msg = $sftp->new_msg(SSH2_FXP_INIT);
    $msg->put_int32(SSH2_FILEXFER_VERSION);
    $sftp->send_msg($msg);

    $msg = $sftp->get_msg;
    my $type = $msg->get_int8;
    if ($type != SSH2_FXP_VERSION) {
        croak "Invalid packet back from SSH2_FXP_INIT (type $type)";
    }
    my $version = $msg->get_int32;
    $sftp->debug("Remote version: $version");

    ## XXX Check for extensions.
}
.
.
.
sub send_msg {
    my $sftp = shift;
    my($buf) = @_;
    my $b = Net::SFTP::Buffer->new;
    $b->put_int32($buf->length);
    $b->append($buf->bytes);
    $sftp->{channel}->send_data($b->bytes);
}
[download]

Good luck bughunting ...

---

My parents just came back from a planet where the dominant life form had no
bilateral symmetry, and all I got was this stupid F-Shirt.

My WinXP didn't even have the ssh port 22 defined in \WINNT\SYSTEM32\Drivers\etc\services.   Then I blew up with "Your vendor has not defined Fcntl macro F_SETFL, used at C:/Perl58/site/lib/Net/ SSH/Perl.pm line 214."

Mine is AS Perl v5.8.0 with Net::SSH::Perl 1.23 from AS and Net::SFTP 0.05 from CPAN.

Having the exact same problem.

Has anyone ever gotten this to work in an windows environment?

Go to control panel and select Security something, and add port 22

Control Panel -> Security Center -> Windows Firewall -> "Exceptions" tab -> Add Port... -> Name: ******* Port number: 22 TCP OK