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:
    671
    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:
    671
    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:
    671
    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:
    671
    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:
    671
    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
Page d'accueil et redirection Netlinking, backlinks, liens et redirections 21 Novembre 2022
Redirections 301 sans effet. Débuter en référencement 18 Octobre 2022
Pages pas indexées en erreur type "Page avec redirection" Débuter en référencement 18 Octobre 2022
Comme gérer les pages avec une double redirection ? Crawl et indexation Google, sitemaps 14 Octobre 2022
Faut-il éviter d'avoir trop de redirections 301 en SEO ? Référencement Google 14 Octobre 2022
Search Console Indexation "page avec redirection" Crawl et indexation Google, sitemaps 6 Octobre 2022
Planethoster - redirection http vers https non fonctionnelle URL Rewriting et .htaccess 21 Septembre 2022
Suppression de langues, quelle redirection faire ? Netlinking, backlinks, liens et redirections 13 Septembre 2022
URLs indexées malgré redirection Problèmes de référencement spécifiques à vos sites 5 Août 2022
Search Console Erreur liée à des redirections Problèmes de référencement spécifiques à vos sites 5 Juillet 2022
Erreur liée à des redirections Débuter en référencement 15 Juin 2022
WordPress Redirections pour changement de domaine et structure de langues Référencement international (langues, pays) 12 Juin 2022
redirection plusieurs Url vers une page URL Rewriting et .htaccess 10 Juin 2022
Redirection 301 Débuter en référencement 29 Mai 2022
Redirection pertinente? Problèmes de référencement spécifiques à vos sites 26 Mai 2022
Redirection 404 via le .htaccess / pb avec les liens relatifs Débuter en référencement 5 Mai 2022
WordPress Petit souci de redirection htaccess URL Rewriting et .htaccess 3 Mai 2022
problème de redirection non souhaitée Administration d'un site Web 28 Avril 2022
Redirection nom de domaine vers site web principal Référencement Google 28 Avril 2022
Erreur liée à des redirections sur Google Search Console Problèmes de référencement spécifiques à vos sites 23 Mars 2022