I have a web service that need to get "stuff" from the system and is 
using the following subroutine to retrieve info.


sub systeminfo { 
  if (open(FROMADMIN,"-|")) {   # parent
    undef local $/;
    my $rv = <FROMADMIN>;       # get response
    close FROMADMIN;
    return $rv;
  }
  else {
    unless (open STDERR, '>&STDOUT') {
      print STDERR "can't dup STDERR to STDOUT: $!";
      exit 1;
    }
    my($command,$stdin) = @_;
    open(ADMIN,'|'. $command);
    print ADMIN $stdin
        if $stdin;
    close ADMIN;
    exit 0;
  }
}


This works fine for command line exection and from cgi but fails in 
modperl (apache 1x).

The problem is that the initial read pipe apparently fails to open 
under modperl. 

Is there a workaround for this? or am I just missing something 
simple?

Michael
[EMAIL PROTECTED]


-- 
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html

Reply via email to