Redirection PERL

Discussion dans 'Administration d'un site Web' créé par Nitou, 9 Mars 2003.

  1. Nitou
    Nitou WRInaute impliqué
    Inscrit:
    1 Décembre 2002
    Messages:
    696
    J'aime reçus:
    0
    Hello tlm,

    Voila un script de redirection PERL :

    Code:
    #!/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 :cry:

    Quelqu'un aurait la solution ?
     
  2. melmoth
    melmoth WRInaute discret
    Inscrit:
    11 Décembre 2002
    Messages:
    54
    J'aime reçus:
    0
    ton <meta> se mets dans le contenu de la page web. La redirection se fait à coup de 'Location:' dans le header qui est envoyé avant le contenu html.

    Tu ne peut donc pas mettre de code html dedans.
     
  3. Nitou
    Nitou WRInaute impliqué
    Inscrit:
    1 Décembre 2002
    Messages:
    696
    J'aime reçus:
    0
    Il n'y a aucun moyen ?

    J'ai essayer de mettre du HTML avant le location mais pareil
     
  4. melmoth
    melmoth WRInaute discret
    Inscrit:
    11 Décembre 2002
    Messages:
    54
    J'aime reçus:
    0
    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.
     
  5. Nitou
    Nitou WRInaute impliqué
    Inscrit:
    1 Décembre 2002
    Messages:
    696
    J'aime reçus:
    0
    En fait, je ne peux pas mettre ça sur mes pages, je veux juste que les liens qui sont cité dans mes forums et autres passent par la redirection et qu'ils ne soient pas suivi par les robots, donc je ne peux pas faire un robots.txt.
     
  6. Nitou
    Nitou WRInaute impliqué
    Inscrit:
    1 Décembre 2002
    Messages:
    696
    J'aime reçus:
    0
    A place de "Location:" ce n'est pas possible ce genre de syntaxe :

    Code:
    print "<script language='JavaScript'>window.location.href='$url';</script>\n\n";
    :?:
     
  7. Nitou
    Nitou WRInaute impliqué
    Inscrit:
    1 Décembre 2002
    Messages:
    696
    J'aime reçus:
    0
    Bon ben c'est bon, j'ai réussi :D

    Code:
    #!/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;
    }
     
Chargement...
Similar Threads - Redirection PERL Forum Date
redirection de l'accueil vers une langue Référencement international (langues, pays) Jeudi à 16:02
WordPress Refonte des catégories, structure et format des URL, redirections 301 Référencement Google 17 Juillet 2020
Prestashop : annuler une redirection 301 après avoir désactivé une fiche produit Netlinking, backlinks, liens et redirections 10 Juillet 2020
Redirections 301 Problèmes de référencement spécifiques à vos sites 3 Juillet 2020
Redirection 301 sur 445000 url Netlinking, backlinks, liens et redirections 26 Juin 2020
Redirection d'un domaine vers un sous domaine Administration d'un site Web 22 Juin 2020
Redirection sous domaine et pages apres changement de domaine URL Rewriting et .htaccess 2 Juin 2020
Redirection dans .htaccess Développement d'un site Web ou d'une appli mobile 11 Mai 2020
GoogleMyMap Avertissement de redirection YouTube, Google Images et Google Maps 6 Mai 2020
Redirection 301 d'un NDD vers l'accueil de mon site Noms de domaine et référencement 4 Mai 2020
  1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies.
    Rejeter la notice