Hi ,
I tested the following and it works.
use CGI qw(:standard);
my $query = new CGI;
$| = 1; # don't buffer output
print header;
print start_html;
print "some html tags\n";
print end_html;
it will generate :
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>Untitled Document</TITLE>
</HEAD><BODY>some html tags
</BODY></HTML>
thanks
Michael
On Wed, 28 Aug 2002 17:12:18 -0400, John Korb <[log in to unmask]> 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
