Intégration css avec un script cgi

Version imprimable

Bonjour :)

Mon script CGI se compose d'une petite fonction qui permet d'intégrer le style css à ma page. Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
sub include_css_style {
  $content = '<style type="text/css" media="screen">', "\n";
  $content .= 'body {', "\n";
  $content .= 'margin:150px;', "\n";
  $content .= 'padding:0px;', "\n";
  $content .= 'font-family: "tahoma", "verdana", "arial", "helvetica";', "\n";
  $content .= 'font-size:80%;', "\n";
  $content .= 'color:#666666;', "\n";
  $content .= '}', "\n";
  $content .= '#error {', "\n";
  $content .= 'margin:0 auto 0 auto;', "\n";
  $content .= 'padding:10px;', "\n";
  $content .= 'width:370px;', "\n";
  $content .= 'text-align:left;', "\n";
  $content .= 'font-size:8pt;', "\n";
  $content .= 'background-color:#EEEEEE;', "\n";
  $content .= '}', "\n";
  $content .= '#error h1 {', "\n";
  $content .= 'margin-top:5px;', "\n";
  $content .= 'margin-bottom:10px;', "\n";
  $content .= 'font-size:10pt;', "\n";
  $content .= 'color:#333333;', "\n";
  $content .= '}', "\n";
  $content .= '#error a {', "\n";
  $content .= 'color:#DC298D;', "\n";
  $content .= '}', "\n";
  $content .= '#error a:hover {', "\n";
  $content .= 'color:#FFFFFF;', "\n";
  $content .= 'background-color:#DC298D;', "\n";
  $content .= 'text-decoration:none;', "\n";
  $content .= '}', "\n";
  $content .= '</style>', "\n";
  print $content;	
}

Lorsque la fonction est appelée, le style css est appliqué mais si je visualise la source de ma page, je m'aperçois que le style css est affiché sur une seul ligne. Ce qui veut dire que tout mes \n sont supprimés. D'où ma question, existe-t-il un moyen pour les préserver ?

Merci :mrgreen:

06/09/2007, 01h16
Olivier Regnier

Je pense avoir trouvé. Ce n'est pas une virgule mais un point. Cela ressemble au langage PHP :mrgreen:

Aaargg... Bon ton problème vient de la virgule qui n'affecte pas à $content, mais en premier lieu, cette fonction ressemble vraiment à de la patée pour chat...
Remplaçons tout ça par un Heredoc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 sub include_css_style { print <<EOS; <style type="text/css" media="screen"> body { margin:150px; padding:0px; font-family: "tahoma", "verdana", "arial", "helvetica"; font-size:80%; color:#666666; } #error { margin:0 auto 0 auto; padding:10px; width:370px; text-align:left; font-size:8pt; background-color:#EEEEEE; } #error h1 { margin-top:5px; margin-bottom:10px; font-size:10pt; color:#333333; } #error a { color:#DC298D; } #error a:hover { color:#FFFFFF; background-color:#DC298D; text-decoration:none; } </style> EOS }
(j'ai demandé la colorisation en HTML parce que le forum colorise mal les heredoc)

ou au moins passons nous des $content intermédiaires inutiles :
Code:

1 2 3 4 5 6 sub include_css_style { my $content = '<style type="text/css" media="screen">'. "\n" . "body {\n" . "margin:150px;\n" . "padding:0px;\n" # etc...
--
Jedaï

Merci beaucoup pour ton code. Effectivement mon code est un peut cracra :aie:

Actuellement, je regarde la documentation à cette adresse afin de ne plus d'obtenir du code genre:
Code:

1 2 3 print "Content-type: text/html\n\n"; print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'. "\n"; print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >'. "\n";
Je cherche le moyen d'insérer les lignes ci-dessus :?
Je vais également intégrer directement le css dans mon script. Dans la doc, cette partie est très bien expliquée.

Merci :mrgreen:

Citation:
Envoyé par Olivier Regnier
Merci beaucoup pour ton code. Effectivement mon code est un peut cracra :aie:

Actuellement, je regarde la documentation à cette adresse afin de ne plus d'obtenir du code genre:
Code:

1 2 3 print "Content-type: text/html\n\n"; print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'. "\n"; print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >'. "\n";
Je cherche le moyen d'insérer les lignes ci-dessus :?
Bonne idée, il vaut mieux et de loin utiliser le module CGI pour faire du CGI en Perl. ;)
Les lignes que tu montres sont affichées par :
Code:

1 2 3 4 5 6 use CGI qw/:standard/; print header, start_html(-title => "titre du document", -lang => 'fr',), ;
header() s'occupe du header CGI et par défaut il retourne :

Code:

"Content-type: text/html; charset=ISO-8859-1\n\n"

Evidemment on peut rajouter des champs d'en-tête, regarde l'aide sur cette fonction pour plus d'information.

start_html affiche tout le début de l'HTML jusqu'à <body>, c'est là qu'on spécifie la feuille CSS, les bibliothèques de script, les éventuelles balises meta, le titre du document, etc...
Je crois que les versions actuelles de CGI.pm émettent du XHTML 1.0 strict par défaut, mais tu peux lui spécifier d'autre version au besoin.

--
Jedaï

Bonjour :)

J'avance doucment et j'obtiens du moins je l'espère un code propre :mouarf:

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/bin/perl -w
 
use strict;                                 # Vérifie la validité des variables my
use warnings;                               # Affiche les erreurs
 
use CGI qw/:standard :html3/;               # Chargement des fonctions standards de CGI
use CGI::Pretty qw( :html3 );               # Génère du code HTML propre et indenté				
 
# Déclaration des variables
my $page_403 = new CGI;
 
print header(),                             # Création l'entête HTTP
 
      # Démarre le HTML
	  start_html(
			-title => '403, Interdit',
			-lang  => 'fr',
			-meta  => {'robots'=>'noindex, follow'}, 
			-style => {'src'=>'/global.css'},			
			),
 
 			# Contenu de la page HTML
			$page_403 -> div ({-id=>'error'},
			$page_403 -> h1 ('403, Interdit'),
			$page_403 -> p ("Vous n'avez pas la permision d'accéder à cet URL de votre navigateur.". "\n",
			$page_403 -> br.br,"Visitez",
			$page_403 -> a ({href=>"/"},"monsite.fr"), "ou consulter le",
			$page_403 -> a ({href=>"/sitemap"},"plan du site"),".")),
 
	 # Fin du HTML
	 end_html();
 
# Fin du script

J'ai une questions à savoir, est-il possible de modifier l'ordre des différents éléments qui composent le header. Par exemple, placer cette ligne:

Code:

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

avant celle-ci:

Code:

1
2
 
<link rel="stylesheet" type="text/css" href="/global.css" />

J'ai un autre soucis au niveau du lien suivant:

Code:

$page_403 -> a ({href=>"/sitemap"},"plan du site"),".")),

à la fin de "plan du site" il y a un espace entre site et le caractère "." qui ne doit pas être inclus dans le lien.
Je cherche dans la doc :oops: