Net::SSH::Perl - How to set remote default file permissions

[Joe]

When I manually execute a script with Net::SSH:erl to run a remote
program, the output file has a permission "660"; When I use a web
server to execute the script (the script uses my user account identity/
pass), the remote output file has a permission "600".

How can I make the script to set a default remote file permission
(like "644") so the web server can read the results back? I tried:
($stdout, $stderr, $exit) = $ssh->cmd("umask 022; script");
and it didn't work.

Thanks in advance!

Joe

 

[Joe]

When I manually execute a script with Net::SSH:erl to run a remote
program, the output file has a permission "660"; When I use a web
server to execute the script (the script uses my user account identity/
pass), the remote output file has a permission "600".

How can I make the script to set a default remote file permission
(like "644") so the web server can read the results back? I tried:
($stdout, $stderr, $exit) = $ssh->cmd("umask 022; script");
and it didn't work.

Well, a reply to myself - I accomplished this by
($stdout, $stderr, $exit) = $ssh->cmd("script; chmod 644 'outfile'");

Joe

 

[J. Gleixner]

Well, a reply to myself - I accomplished this by
($stdout, $stderr, $exit) = $ssh->cmd("script; chmod 644 'outfile'");

Probably better to have 'script' do the chomd, just in case 'outfile'
ever changes within 'script'.