Hmm, a perl syntax checks out, but the script seemingly dies when ran? One
thing I've found and don't yet fully understand, is it seems like when
importing other modules the perl check doesn't seem to catch undeclared subs
despite use strict- any ideas?
Either way, I digress- basic things but, A) I'd check the webserver logs-
usually theres some info in there at least of what happened, B) and I'd try
running the script via the terminal- it'll require a little bit of
modification to it (aka, hardcode $c to a value for testing), but I've used
it time and time again to find exactly how and where a script that has passed
syntax checking is doing something that leads to its death...
On a seperate note- I'd tend to agree with the other poster- while the CGI
module is indispensible, it seems like some parts of it are overkill- a base
example would be existance of a paragraph method- a method that returns a
'<p>'.
Either way, good luck with it.
~Brian
On Monday 24 June 2002 15:09, Kyle Babich wrote
> For the following the syntax is correct but when I try to open it
> nothing displays, what should I change?
>
> #!/usr/bin/perl -wT
> use strict;
> use CGI::Pretty qw/ :standard /;
> $CGI::DISABLE_UPLOADS = 1;
> $CGI::POST_MAX = 512 * 1024;
>
> print header ( "text/html" );
>
> my $date = localtime;
>
> my $c = param('c');
> my $content = "c";
>
> if ($c eq "h") {
> $content = qq{\n};
> } elsif ($c eq "eh") {
> $content = qq{\n};
> } elsif ($c eq "hd") {
> $content = qq{\n};
> } elsif ($c eq "p") {
> $content = qq{\n};
> } elsif ($c eq "c") {
> $content = qq{\n};
> } elsif ($c eq "su") {
> $content = qq{\n};
> }
>
> my @nav = ("Home","E-Mail Hosting","Help
> Desk","Policies","Contact","Signup");
>
> my @loc = ("index.cgi?c=h","index.cgi?c=eh","index.cgi?c=hd","index.cgi?
> c=p",
> "index.cgi?c=c","index.cgi?c=su");
>
> print start_html(
> -title => "IMAP.cc E-Mail Hosting",
> -head => Link(
> {
> -rel => "stylesheet",
> -type => "text/css",
> -href => "style.css"
> }
> ),
> ),
> body( -bgcolor => "\#FFFFFF" ),
> table({
> -width => "95\%",
> -cellspacing => "0",
> -cellpadding => "0",
> -border => "1",
> -bordercolor => "\#000000"},
> tbody(
> Tr(
> td( {-width => "100\%"},
> table({
> -width => "100\%",
> -cellspacing => "0",
> -cellpadding => "1",
> -border => "1",
> -bordercolor => "\#000000"
> -align => "center"},
> tbody(
> Tr(
> td( {-width => "100\%",
> -bgcolor => "\#000000",
> -align => "center"},
> Font({
> -face => "Verdana, Arial, Times New Roman",
> -size => "4",
> -color => "\#FFFFFF"},
> "IMAP.cc"
> )
> ),),),),),),),),
> end_html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
