ABC Référencement

#!/usr/local/bin/perl $datapath = "linkqueries.txt"; $| = 1; use LWP::Simple; read(STDIN, $in, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $in); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $form{$name} = $value; } if ($form{'action'} eq "count") { &count; } else { &main; } sub main { print <<"(END ERROR HTML)"; ABC Référencement (END ERROR HTML) print "\n"; print "\n"; print <<"(END ERROR HTML)"; (END ERROR HTML) print <<"(END ERROR HTML)";

Le compteur de lien permet de vous donner une idée sur le nombre de liens pointants vers un site donnée.

Utilisation :
Dans le champs URL tapez l’URL de votre site web.

Exemple : www.abc-referencement.com

Conseils :
Sélectionnez seulement les outils qui vous intéressent.

Temps moyen de réponse : 6 secondes/outil

(END ERROR HTML) print "Compteur de liens\n"; print "\n"; print "\n"; } print <<"(END ERROR HTML)";


	Premier pas Or Diamant


	Analyse et Expertise Stratégie et Mise en œuvre Résultats et suivie


	24PM CVFM Sos Domaines w3ping


	Contact Emploi Plan du site FAQ Home

Cherchez !!! noms de domaine dans le monde

www.

(END ERROR HTML) exit; sub count { print <<"(END ERROR HTML)"; ABC Référencement (END ERROR HTML) print <<"(END ERROR HTML)"; (END ERROR HTML) $url=&parse($form{'url'}); print <<"(END ERROR HTML)";

Nombre de liens :

(END ERROR HTML) print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; open(FILE,"$datapath"); @engines = ; close(FILE); foreach $engine(@engines){ (my $name,my $link,my $query,my $first,my $last, my $middle)=split(/\@/, $engine); if ($form{"$name"} eq "") {next;} quotemeta($first); quotemeta($last); $query =~ s/\[QUERY\]/$url/ig; my $page=get($query); if ($page eq "") { $found="ERROR";} else { (my $null,$page)=split(m/$first/ig,$page); ($page,$null)=split(m/$last/ig,$page); #enlève to les caractères qui gènent $page=~s/[a-z:)]//ig; $page=~s/<*>//ig; $found=$page; if ($found==''){ $found='0';} } print "\n"; print "\n"; print "\n"; print "\n"; } print "

$url	Nombre de liens
$name	$found

"; } sub parse { my $var = shift(@_); $var =~ tr/+/ /; $var =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; return $var; } print <<"(END ERROR HTML)";


	Premier pas Or Diamant


	Analyse et Expertise Stratégie et Mise en œuvre Résultats et suivie


	24PM CVFM Sos Domaines w3ping


	Contact Emploi Plan du site FAQ Home

Cherchez !!! noms de domaine dans le monde

www.

(END ERROR HTML) exit;