> -----Original Message-----
> From: Kyle Babich [mailto:[EMAIL PROTECTED]]
> Sent: Monday, June 24, 2002 4:09 PM
> To: [EMAIL PROTECTED]
> Subject: Displaying Problems
> 
> 
> For the following the syntax is correct but when I try to open it 
> nothing displays, what should I change?

There are some errors. The following patch shows what I had
to change to make it run:

3c3
< use CGI::Pretty qw/ :standard /;
---
> use CGI::Pretty qw/ :standard tbody /;
60c60
<       -bordercolor => "\#000000"
---
>       -bordercolor => "\#000000",
67c67
<    Font({
---
>    font({

> 
> #!/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]

Reply via email to