Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: CGI.pm idiosyncrasy?

by hackmare (Pilgrim)
on May 30, 2001 at 16:49 UTC ( #84232=note: print w/replies, xml ) Need Help??


in reply to CGI.pm idiosyncrasy?

You have a misplaced body tag which is nonsensical in the start_html context Try this program (note that it doesnt send xhtml).

(Tested on solaris with perl5.0503)

Script:

#!/usr/bin/perl
use CGI;
use strict;
my $p = new CGI;
print $p->header;
print $p->start_html(-title=>'Welcome to 0.0.0.0!',
                     -author=>'ronan@hackmare.com',
                     -base=>{href => 'http://0.0.0.0/cgi-bin/dir/'},
                     -meta=>{'keywords'=>'pharoah secret mummy',
                               'copyright'=>'Hackmarish Things Happening'},
                     -style=>{'src'=>'/styles/style1.css'},
		     -dtd=>1,
                     -BGCOLOR=>'blue',
		     -vlink => 'black');
print $p->p('Is this what you want?');
print $p->end_html;

Returns:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML><HEAD><TITLE>Welcome to 0.0.0.0!</TITLE>
<LINK REV=MADE HREF="mailto:ronan%40hackmare.com">
<BASE HREF="http://localhost/perlmonk.pl">
<META NAME="keywords" CONTENT="pharoah secret mummy">
<META NAME="copyright" CONTENT="Hackmarish Things Happening">
<LINK REL="stylesheet" HREF="/styles/style1.css">
</HEAD><BODY BGCOLOR="blue" VLINK="black"><P>Is this what you want?</P></BODY></HTML>

This code was adapted from the CGI.pm html POD
--hackmare

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://84232]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2022-05-18 04:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (68 votes). Check out past polls.

    Notices?