From owner-freebsd-questions@FreeBSD.ORG Fri Sep 7 00:00:03 2007 Return-Path: Delivered-To: freebsd-questions@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 0F7F516A418 for ; Fri, 7 Sep 2007 00:00:03 +0000 (UTC) (envelope-from oregnier@oregnier.net) Received: from 30.mail-out.ovh.net (30.mail-out.ovh.net [213.186.62.213]) by mx1.freebsd.org (Postfix) with SMTP id 7C4A713C4A6 for ; Fri, 7 Sep 2007 00:00:02 +0000 (UTC) (envelope-from oregnier@oregnier.net) Received: (qmail 27928 invoked by uid 503); 6 Sep 2007 23:33:45 -0000 Received: (QMFILT: 1.0); 06 Sep 2007 23:33:45 -0000 Received: from b7.ovh.net (HELO mail93.ha.ovh.net) (213.186.33.57) by 30.mail-out.ovh.net with SMTP; 6 Sep 2007 23:33:45 -0000 Received: from b0.ovh.net (HELO queue-out) (213.186.33.50) by b0.ovh.net with SMTP; 6 Sep 2007 23:33:20 -0000 Received: from mac76-2-82-241-6-173.fbx.proxad.net (HELO ?127.0.0.1?) (postmaster@oregnier.net@82.241.6.173) by ns0.ovh.net with SMTP; 6 Sep 2007 23:33:18 -0000 Message-ID: <46E08E3B.7050407@oregnier.net> Date: Fri, 07 Sep 2007 01:33:15 +0200 From: Olivier Regnier User-Agent: Thunderbird 2.0.0.6 (Windows/20070728) MIME-Version: 1.0 To: freebsd-questions@freebsd.org Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Ovh-Remote: 82.241.6.173 (mac76-2-82-241-6-173.fbx.proxad.net) X-Ovh-Local: 213.186.33.20 (ns0.ovh.net) X-Spam-Check: DONE|H 0.5/N Subject: CGI with html X-BeenThere: freebsd-questions@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: User questions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 07 Sep 2007 00:00:03 -0000 Hi everyone, I try to write CGI scripts but i have a problem on my screen. Here is my CGI code # ------------------------------------ #!/usr/bin/perl use strict; use warnings; # MODULES use CGI qw(:standard); # VARIABLES my $style = get_style(); # HTML PAGE print header, start_html ( -title => '403, Interdit', -style => {-code => $style }, ), end_html; # CSS style sub get_style { my $content = "body {\n" . "margin:150px;\n" . "padding:0px;\n" . "padding:0px;\n" . 'font-family: "tahoma", "verdana", "arial", "helvetica";'. "\n" . "font-size:80%;\n" . "color:#666666;\n" . "}\n" . "#error {\n" . "margin:0 auto 0 auto;\n" . "padding:10px;\n" . "width:370px;\n" . "text-align:left;\n" . "font-size:8pt;\n" . "background-color:#EEEEEE;\n" . "}\n" . "#error h1 {\n" . "margin-top:5px;\n" . "margin-bottom:10px;\n" . "font-size:10pt;\n" . "color:#333333;\n" . "}\n" . "#error a {\n" . "color:#DC298D;\n" . "}\n" . "#error a:hover {\n" . "color:#FFFFFF;\n" . "background-color:#DC298D;\n" . "text-decoration:none;\n" . "}\n"; return $content; } # ------------------------------------ and here is the result in html: # ------------------------------------ 403, Interdit # ------------------------------------ I would like to have this dtd: and this meta code, is not at the good place. Logically he is before CSS style. Can you help me please ? Sorry for my english. Thank you in advance. Olivier