Re^4: Net::SFTP::Foreign mod perl

Taking your suggestion, I took permissions out of the equation and just did an $sftp-ls() and print to the log what it found there and it's not even reading that.

my $sftp = Net::SFTP::Foreign->new(host =>$host, password => $password
+, user => $username, ssh_cmd => 'ssh', more => [-v], port=>22); # or 
+die "Cannot connect to $@";                     
warn( "#######################  Connected  #######################\n")
+;

#$sftp->put("file.txt", "file.txt", copy_perm => 0);#  or die "Cannot 
+connect to $@";                                                      
+                                                
my @files = $sftp->ls();

foreach my $f ( @files )
{
    foreach my $file_ref ( @{$f} )
    {
        print "Found file: " . $file_ref->{'filename'} . "<br>\n";
    }
}
[download]

I do agree that ENV vars do have something to do with this, but haven't seen anything here or off of a google search to tell me which ones it would be. Again thank you for your suggestions.

Comment on Re^4: Net::SFTP::Foreign mod perl Download Code

Replies are listed 'Best First'.
Re^5: Net::SFTP::Foreign mod perl by perrin (Chancellor) on May 21, 2009 at 21:20 UTC
I'm thinking the permissions problem would be happening during the connection, not on the FTP server. It's trying to use ssh credentials, so maybe it can't find the right key file or an enclosing directory is group-writable. SSH is finicky about that. For %ENV stuff, just print out what it is under CGI and under mod_perl and look for differences.	[reply]