Redirection PERL
7 messages
• Page 1 sur 1
Consultez la formation à Google Analytics de WebRankInfo / Ranking Metrics
- Nitou
- WRInaute impliqué

- Messages: 929
- Inscription: 1 Déc 2002
Redirection PERL
Hello tlm,
Voila un script de redirection PERL :
J'aimerai y ajouter un <META NAME="robots" CONTENT="noindex,nofollow">
Mais ne connaissant rien au PERL, je m'y perd
Quelqu'un aurait la solution ?
Voila un script de redirection PERL :
- Code: Tout sélectionner
#!/usr/bin/perl
@date = localtime(time); $date[4]++;
$Time = "$date[4]/$date[3]/$date[5]";
$Query_File = $ENV{QUERY_STRING};
$Query_File =~ s/%([0-9A-F][0-9A-F])/pack("C",oct("0x$1"))/ge;
$Query_File =~ tr/+/ /;
($url) = split(/\&/,$Query_File);
if ($url =~ /=/) {
($name, $url) = split(/=/, $url);
}
if ($url =~ /^(ht|f)tp:\/\//) {
print "Location: $url\n\n";
} else {
&Error("Erreur, votre url doit commencée par http:// ou ftp://\n");
}
sub Error {
my($ErrorText) = @_;
print "Content-type: text/html\n\n";
print "Erreur : ".$ErrorText;
exit;
}
J'aimerai y ajouter un <META NAME="robots" CONTENT="noindex,nofollow">
Mais ne connaissant rien au PERL, je m'y perd
Quelqu'un aurait la solution ?
-

melmoth - WRInaute discret

- Messages: 73
- Inscription: 11 Déc 2002
Nitou a écrit:Il n'y a aucun moyen ?
J'ai essayer de mettre du HTML avant le location mais pareil
Ben si tu mets du texte avant le Location, celui ci sera considéré comme du contenu et plus comme un header http, donc cela ne sert a rien.
Utilises soit robots.txt pour dire ce que les robots peuvent suivre et indexer, soit le meta dans chacune des pages.
- Nitou
- WRInaute impliqué

- Messages: 929
- Inscription: 1 Déc 2002
A place de "Location:" ce n'est pas possible ce genre de syntaxe :

- Code: Tout sélectionner
print "<script language='JavaScript'>window.location.href='$url';</script>\n\n";
- Nitou
- WRInaute impliqué

- Messages: 929
- Inscription: 1 Déc 2002
Bon ben c'est bon, j'ai réussi
- Code: Tout sélectionner
#!/usr/bin/perl
@date = localtime(time); $date[4]++;
$Time = "$date[4]/$date[3]/$date[5]";
$Query_File = $ENV{QUERY_STRING};
$Query_File =~ s/%([0-9A-F][0-9A-F])/pack("C",oct("0x$1"))/ge;
$Query_File =~ tr/+/ /;
($url) = split(/\&/,$Query_File);
if ($url =~ /=/) {
($name, $url) = split(/=/, $url);
}
if ($url =~ /^(ht|f)tp:\/\//) {
print "Content-type: text/html\n\n";
print "<html>\n<head>\n<META NAME='robots' CONTENT='noindex,nofollow'>\n</head>\n<body>\n<script language='JavaScript'>window.location.href='$url';</script>\n</body>\n</html>\n";
} else {
&Error("Erreur, votre URL doit commencée par http:// ou ftp://\n");
}
sub Error {
my($ErrorText) = @_;
print "Content-type: text/html\n\n";
print "Erreur : ".$ErrorText;
exit;
}
7 messages
• Page 1 sur 1
Formation recommandée sur ce thème :
Formation Google Analytics : en 2 jours, apprenez comment exploiter l'essentiel des possibilités de l'outil de mesure d'audience de Google. Formation animée par les experts Google Analytics de Ranking Metrics.
Tous les détails sur le site Ranking Metrics : programme, prix, dates et lieux, inscription en ligne.
Lectures recommandées sur ce thème :
- Test de lien (type de redirection)
Cet outil vous permet de tester la validité d'un lien pour le référencement. Il vous indique la nature du lien (lien en dur, redirection bien gérée par les moteurs ou redirection mal gérée par les moteurs).
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invités
