On Thu, 13 Jul 2000, William Raffloer wrote:
> I am having 2 problems
>
> 1) on a recently installed Perl5.005_03 system I am using CGI.pm, as
> follows
> #!/myperl/mydir/bin/perl
>
> #use lib '/myperl/mydir/lib/5.005_03' ;
> use CGI qw/:standard/;
> $foo = new CGI;
>
> print header(),
> start_html(-title=>'Wow!',-BGCOLOR=>'wheat'),
> h1({-style=>'Color: red;
> font-family: Comic Sans MS;
> font-size: 50pt;',
> -align=>'CENTER'},
> 'Wow Wow WOWWY, perl5.005_03'),
> 'Look Ma, no hands!',
> p($foo->param(namei)),
> p($foo->param(emaili)),
> p($foo->param(commenti)),
> end_html();
> exec sh env;
>
> The color and font no longer show up...... any one have this problem?
They no longer show up, but they used to? What changed?
> Also I copy the HFS file system ove to another OS390 system and mount in
> the exact same directory format. I try to execute the same Perl scrip
> and get the following message on my web browser.
> Error
>
> The requested item could not be loaded by the proxy.
> Document contains no data
>
> Proxy server at pismh1 on port 8080
>
> This is the exact same script, when I look at my httpd IMWEBSRV started
> task output It looks like there is no header line passed to the web
> server:
> HTLoadScriptResult...Hdr"Content-Type: text/html"
> Content-Type text/html
> HTLoadScriptResult... End of Headers.
>
> Is it because I copied the HFS filesystem as apposed to building the
> Perl5.005_03 on the target system?.
Maybe, but maybe not. The first thing to try is running the script
interactively. That is on the web server system:
cd cgi-bin
perl myscript
Since it has C<use CGI> it will enter an interactive mode that you
should follow the instructions for. Does the output make sense?
I note that the CGI.pm that ships with perl 5.005_03 has the correct
$CRLF for MVS running IBM's web server (are they still calling it
WebSphere now?). However, the escape and unescape routines are not
correct for EBCDIC (not that this should affect your script since
it is not using either escape() or unescape()). There is a patch
for that problem in the perl-mvs web archive.
The other thing to check are the permissions on the files: is there world
read and execute permissions on everything that the other web server needs
to execute?
Good luck.
Peter Prymmer
