Yup! Apparently the buffering was what was causing the problems! I notice
that Michael also set Perl to unbuffered mode. Thanks!
John
At 2002-08-28 05:56 PM, Mark Bixby wrote:
>Perl output is buffered by default, but traditional MPE output is unbuffered.
>
>You need to tell Perl to use unbuffered output before you do any printing:
>
> select(stdout); $|=1;
>
>The web server is getting confused because the unbuffered output (DISCFREE) is
>hitting the web server before the buffered Content-type: header.
>
>- Mark B.
>
>John Korb wrote:
>
>>Thanks Ron, Michael, and Greg!
>>
>>Hmmm. Progress, but still there are problems. I'm getting a lot of 500
>>errors - "server error" - and the Apache error_log shows a lot of
>>"malformed header=" with the text after the "Malformed header=" either
>>blank or containing garbage.
>>
>>So, I'm off to run more experiments!
>>
>>Thanks again to all for your help!
>>
>>John
>>
>>At 2002-08-28 03:14 PM, you wrote:
>>
>>>Again, thanks to everyone!
>>>
>>>I have a working Perl script. That is, it works if run from the POSIX
>>>shell prompt.
>>>
>>>However, when I invoke it from a web browser and Apache serves it up, the
>>>output of the MPE program apparently goes to the Apache job's $STDLIST
>>>and
>>>not back out to the web browser. For example, when I try:
>>>
>>>#!/usr/local/bin/perl
>>>
>>>print "Content-type: text/html\n\n";
>>>print "<HR><P>\n";
>>>system ("/SYS/PUB/DISCFREE A");
>>>print "<P><HR>\n";
>>>
>>>I see only a horizontal rule, the program header for DISCFREE, and the
>>>seconds horizontal rule. I don't see any of the "DISCFREE A" output.
>>>
>>>I created a "Hello World!" program in a Business Basic and SPLASH! and
>>>if I
>>>replace the "/SYS/PUB/DISCFREE A" with "/SYS/PUB/HELLOWLD" I receive only
>>>the two horizontal rules - no "Hello World!" text.
>>>
>>>Anyone have any ideas as to what is happening here and how to get
>>>around it?
>>>
>>>Thanks!
>>>
>>>John
>>>
>>>* To join/leave the list, search archives, change list settings, *
>>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>>
>>
>>* To join/leave the list, search archives, change list settings, *
>>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>>
>
>
>--
>[log in to unmask]
>Remainder of .sig suppressed to conserve expensive California electrons...
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|