in reply to Re^5: Failed System/Exec Call under Right Permission with CGI
in thread Failed System/Exec Call under Right Permission with CGI

Dear McDarren,
So sorry to have to comeback to you again McDarren. I'll try not to trouble you again after this....

I've followed your suggestion. Now I have modified my prn_to_file.pl to take two arguments. It looks like this: 
#!/usr/bin/perl -w
my  $text = $ARGV[0];     
my  $OUTFILE_file_name = $ARGV[1];      # output file name

open ( OUTFILE, '>', $OUTFILE_file_name ) 
    or die "$0 : failed to open output file $OUTFILE_file_name : $!\n"
+;

print OUTFILE "THIS IS YOUR INPUT TEXT: $text\n";


close ( OUTFILE );          # close output file

[download]
And the system call is as follows: 
    my @args = (   # This is line 54
        '/home/myname/public_html/MyTest/prn_to_file.pl', $param1,
        '/home/myname/public_html/MyTest/results/output.txt'
    );

    system(@args) == 0 or die "Code does not work $!";

[download]
But when I run it. It gives this as output in the browser: 
Testing System/Exec function with CGI
This text _should_ be printed to the file : 

foo bar

Software error:

Code does not work Bad file descriptor at /home/myname/public_html/MyT
+est/cgi-bin/test.cgi line 54.

For help, please send mail to the webmaster (webmaster@cheers.com), gi
+ving this error message and the time and date of the error.

[download]


---
neversaint and everlastingly indebted.......

Replies are listed 'Best First'.
Re^7: Failed System/Exec Call under Right Permission with CGI
by McDarren (Abbot) on Jul 20, 2006 at 04:07 UTC
    "So sorry to have to comeback to you again McDarren. I'll try not to trouble you again after this.... "

    You should never feel like you need to apologise for asking advice. That's what SOPW is for :)

    Anyway, this is almost certainly a permissions problem. You need to ensure that the user the webserver runs as has appropriate permission to write to the directory involved.

    Here is an example that I've tested, and works (with appropriate permissions set):

    never.cgi 

    #!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use Cwd;

print header();

my $dir = getcwd;
my $param1 = qq(hello, cruel world. A test;  for \\\$neversaint.);
my @args = (
        "$dir/never1.pl",
        $param1,
        "$dir/test/never.out"
    );

system(@args) == 0 or die "Code does not work:$!";
exit;

    [download]
    ..and the script that is called: 
    #!/usr/bin/perl -w
use strict;
my  $text = $ARGV[0];
my  $outfile = $ARGV[1];

open OUT, ">", $outfile
    or die "$0 : failed to open output file $outfile:$!\n";
print OUT "THIS IS YOUR INPUT TEXT: $text\n";
close OUT;
exit 0;

    [download]
    and after loading the cgi script in my web browser: 
    cat test/never.out
THIS IS YOUR INPUT TEXT: hello, cruel world. A test;  for \$neversaint
+.

    [download]

    Cheers,
    Darren

[reply]
[d/l]
[select]
      McDarren,

      Did you try running "never.cgi" from the browser?
      I tried running "never.cgi" from linux command line. It works.

      But not when I execute from the browser:

      http://mys_server.com/~myname/MyTest/cgi-bin/never.cgi

      [download]
      BTW, I also placed "never.pl" under cgi-bin/.

      Following my msg to you. What's the permission like for your test/ directory?
      I had "chmod 755" for my results/ directory. Is it right?

      And where is the location of your test/ directory ? under this? 
      
 /home/yourname/public_html/somedir/test/

      [download]


      ---
      neversaint and everlastingly indebted.......
[reply]
[d/l]
[select]
        This should tell you what permissions cgi scripts run as: 
         ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) =
+ getpwuid($>);
print "Running as user $name (uid $uid)\n";

        [download]
        It is fairly common for cgi applications to run under a restricted user account.
[reply]
[d/l]

In Section Seekers of Perl Wisdom