Insérer un favicon via un script CGI

**Olivier Regnier** · 02/09/2008, 12h53

Bonjour

Actuellement, je développe une page web via CGI et je souhaiterai ajouter un favicon.

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
#!/usr/bin/perl -w
 
use strict;
use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
print $cgi->header(
                    -charset=>'iso-8859-1'
                  ),
      $cgi->start_html(
                           -lang=>'en',
                           -title=>'Olivier Regnier',
                           -meta=>{'distribution'=>'global',
                                   'resource-type'=>'document',
                                   'description'=>'the main oregnier page',
                                   'keywords'=>'oregnier,openbsd'
                                  },
                           -style=>{-src=>'/main.css'},
                        );
print $cgi->end_html();

J'ai essayé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

-rel=>{'shortcut icon',-href=>'/favicon.ico'},

mais j'obtiens un hash

Un petit coup de main s'il vous plaît ?

Merki

**djibril** · 02/09/2008, 14h31

Mauvaise nouvelle. J'avais essayé de trouver une façon de faire dans tous les sens mais je n'y suis jamais arrivé. Et après quelques fouille dans les scripts module CGI, je me suis aperçu que le code n'a rien prévu pour.
Donc la seule solution pour mettre une favicon, c'est de créer toi même l'entete de ta page de la sorte par ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  my $header_favicon = <<"HEADER";
  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html><head>
      <META http-equiv="content-type" content="text/html; charset=ISO-8859-1">
      <META http-equiv="Content-Language" content="fr-en">
      <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
      <link rel="stylesheet" type="text/css" href="/main.css">
      <link rel="icon" type="XXXX" href="/favicon.ico">
      <SCRIPT LANGUAGE="Javascript" type="text/javascript"  src="toto.js"></script>
      <title>$titre</title>
      </head><body>
 
HEADER
  print $header_favicon;

**Olivier Regnier** · 02/09/2008, 16h39

J'ai trouvé la réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
print $cgi->header(
                    -charset=>'iso-8859-1',
                    -cookie=>$new_cookie
                  ),
 
      $cgi->start_html(
                        -lang=>'en',
                        -title=>'Olivier Regnier',
                        -meta=>{'distribution'=>'global',
                                'resource-type'=>'document',
                                'description'=>'the main oregnier page',
                                'keywords'=>'oregnier,openbsd'
                               },
                        -head=>
                        [ Link({-rel=>'shortcut icon',-href=>'/favicon.ico'}), ],
                        -style=>{-src=>'/main.css'},
                      );

@++

**djibril** · 03/09/2008, 11h15

et ça marche

**djibril** · 21/10/2008, 12h36

ça fonctionne chez toi?
Moi j'ai un message comme quoi la procédure Link n'existe pas.

**Jedai** · 21/10/2008, 16h06

Envoyé par djibril

ça fonctionne chez toi?
Moi j'ai un message comme quoi la procédure Link n'existe pas.

Tu as essayé en mettant "$cgi->" devant, ou en important le tag ":standard" pour CGI ?

--
Jedaï

**djibril** · 21/10/2008, 16h21

Et beh, sacré jedai

.
Merci pour ta réponse.

Voici ce que j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
-head=>
                        [ $cgi->Link({-rel=>'shortcut icon',-href=>'/favicon.ico'}),

et c'est maintenant OK. Avec le tag :standard, ça ne donnait rien.

En tout cas, nulle part dans la doc on ne spécifié de rajouter $cgi>Link.

Merci

Insérer un favicon via un script CGI

Web Perl

Discussions similaires

Partager

Partager