Error

#!/usr/bin/perl use strict; use warnings; use IPC::Open3; use Symbol; my $input = ''; my $_env = { 'SCRIPT_NAME' => '', 'SERVER_NAME' => 'my.site.example.com', 'HTTP_REFERER' => 'https://myother.site.example.com/', 'HTTP_ACCEPT_ENCODING' => 'gzip, deflate', 'PATH_INFO' => '/index.cgi', 'HTTP_CONNECTION' => 'Keep-Alive', 'REQUEST_METHOD' => 'GET', 'HTTP_ACCEPT' => '*/*', 'HTTP_UA_CPU' => 'x86', 'SERVER_SOFTWARE' => 'Apache', 'REMOTE_USER' => 'mylogonid', 'AUTH_TYPE' => 'Basic', 'HTTP_CLIENT_IP' => '112.113.114.115', 'HTTP_USER_AGENT' => 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 1.1.4322; MS-RTC LM 8)', 'QUERY_STRING' => '', 'SERVER_PORT' => '443', 'HTTP_COOKIE' => '', 'HTTP_ACCEPT_LANGUAGE' => 'en-us', 'REMOTE_ADDR' => '123.124.125.126', 'SERVER_PROTOCOL' => 'HTTP/1.1', 'GATEWAY_INTERFACE' => 'CGI/1.1', 'HTTP_HOST' => 'my.site.example.com', 'PATH_TRANSLATED' => '/content/my.site.example.com/proxy.cgi/index.cgi' }; # save the calling applications environment my $env_snapshot = { %ENV }; # merge a CGI-style environment foreach my $key (keys(%{$_env})) { if (!exists($ENV{$key})) { $ENV{$key} = $_env->{$key}; } } #my $cmd = '/home2/servicing' . ($ENV{'PATH_INFO'} || '/index.cgi'); my $cmd = '/tmp/testprog.sh'; my $dir = `dirname $cmd`; chomp $dir; # If PROG_STDERR isn't initialized then open3 treats it as a false # value and sends STDERR to STDOUT. Dumb default behavior; I'm using open3 # because I want to capture that output! my $PROG_STDERR = gensym(); print "Executing $cmd\n"; my $pid = open3(my $PROG_STDIN, my $PROG_STDOUT, $PROG_STDERR, 'cd ' . $dir . ' && ' . $cmd) or die $@; print "PROG_STDIN: $PROG_STDIN, tell(PROG_STDIN): " . tell($PROG_STDIN) . "\n"; if ($input) { print $PROG_STDIN $input or die "Error sending data to STDIN: $!"; } close($PROG_STDIN); waitpid $pid, 0; print "PROG_STDOUT: $PROG_STDOUT, tell(PROG_STDOUT): " . tell($PROG_STDOUT) . "\n"; my $output = join('', <$PROG_STDOUT>) or die "Error reading data from STDOUT: $!"; close($PROG_STDOUT); print "output: $output\n"; print "PROG_STDERR: $PROG_STDERR, tell(PROG_STDERR): " . tell($PROG_STDERR) . "\n"; my $error = join('', <$PROG_STDERR>) or die "Error reading data from STDERR: $!"; close($PROG_STDERR); print "error: $error\n"; # restore our environment %ENV = %{ $env_snapshot }; ##

##

#!/bin/sh

exec ./testprog.pl

##

##

#!/usr/bin/perl

print "Sleeping for 3 seconds\n";
sleep 3;

print "Sleeping for 5 seconds\n";
sleep 5;

print STDERR "The sky is falling.\n";

##

##

Executing /tmp/testprog.sh
PROG_STDIN: GLOB(0x17f250), tell(PROG_STDIN): -1
PROG_STDOUT: GLOB(0x17f268), tell(PROG_STDOUT): -1
output: Sleeping for 3 seconds
Sleeping for 5 seconds

PROG_STDERR: GLOB(0x17f220), tell(PROG_STDERR): -1
error: The sky is falling.

##

##

Executing /home2/servicing/index.cgi
PROG_STDIN: GLOB(0x17f274), tell(PROG_STDIN): -1
PROG_STDOUT: GLOB(0x17f28c), tell(PROG_STDOUT): -1
output: Content-type: text/html



  Error







Your attempt to log onto website failed.  This is due to a problem NOT related to correctly keying your User ID and Password.

In order to access our secure websites, please report this event to   at
customer_service@sample.com or 111-111-1111. 
We will research the problem and assist you with your data and transaction needs.

Thank you for your assistance.





PROG_STDERR: GLOB(0x17f244), tell(PROG_STDERR): -1
Error reading data from STDERR: Illegal seek at test_servicing_request.pl line 74.