I checked, the permissions on the local and remote machine are OK.
Still cannot understand why this simple script:

cc:/sftp/test#
# cat test_sftp.cgi
#!/usr/bin/perl -w

use strict;
use warnings;
use Net::SFTP;

my $file       = 'TEST.txt';
my $server     = 'X.X.X.X';
my $user       = 'user';
my $sftp;
my %args       = ( ssh_args => { user            => 'user',
                                 identity_files  => [ '/root/.ssh/id_r
+sa' ],
                                 debug           => 1
                               }
);


$sftp = Net::SFTP->new($server, %args)
     or die "could not open connection to $server\n";

$sftp->put($file, $file) or die "could not upload $file\n";

exit;
[download]

cc:/sftp/test# perl test_sftp.cgi
cc: Reading configuration data /root/.ssh/config
cc: Reading configuration data /etc/ssh_config
cc: Allocated local port 1023.
cc: Connecting to X.X.X.X, port 22.
cc: Remote protocol version 2.0, remote software version 4.0.7.1 SSH S
+ecure Shell Windows NT Server
cc: Net::SSH::Perl Version 1.34, protocol version 2.0.
.inux.ch.bluee.net: No compat match: 4.0.7.1 SSH Secure Shell Windows 
+NT Server
cc: Connection established.
cc: Sent key-exchange init (KEXINIT), wait response.
cc: Algorithms, c->s: 3des-cbc hmac-sha1 none
cc: Algorithms, s->c: 3des-cbc hmac-sha1 none
cc: Entering Diffie-Hellman Group 1 key exchange.
cc: Sent DH public key, waiting for reply.
cc: Received host key, type 'ssh-dss'.
cc: Host 'X.X.X.X' is known and matches the host key.
cc: Computing shared secret key.
cc: Verifying server signature.
cc: Waiting for NEWKEYS message.
cc: Send NEWKEYS.
cc: Enabling encryption/MAC/compression.
cc: Sending request for user-authentication service.
cc: Service accepted: ssh-userauth.
cc: Trying empty user-authentication request.
cc: Authentication methods that can continue: gssapi,publickey,passwor
+d.
cc: Next method to try is publickey.
cc: Trying pubkey authentication with key file '/root/.ssh/id_rsa'
cc: Login completed, opening dummy shell channel.
cc: channel 0: new [client-session]
cc: Requesting channel_open for channel 0.
cc: channel 0: open confirm rwindow 100000 rmax 16384
cc: channel 1: new [client-session]
cc: Requesting channel_open for channel 1.
cc: Sending subsystem: sftp
cc: Requesting service subsystem on channel 1.
cc: channel 1: open confirm rwindow 100000 rmax 16384
[download]

works and send a file without any problems, but if change this script to:

my $file       = '/sftp/test/TEST.txt';
[download]

then cannot send due to the following problem:

...............................................................
...............................................................
...............................................................
cc: Sending subsystem: sftp
cc: Requesting service subsystem on channel 1.
cc: channel 1: open confirm rwindow 100000 rmax 16384
Couldn't get handle: Permission denied at test_sftp.cgi line 21
could not upload /sftp/test/TEST.txt
[download]

In both cases the file is in the same directory where the script is and the path is 100% correct.
There is no permission problem, the script cannot handle path.

greetings
chris

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.