#!/usr/bin/perl

##############################################################################
# Multi-chercheur                    Version 1.02                            # 
# Copyright 1999 Virginie Daoudal    virgie@lecgi.net                        #
# Crée le 20/09/98                   Derniere mofif le 02/07/99              #
##############################################################################
# NOTICE DE COPYRIGHT                                                        #
# Copyright 1999 Virginie Daoudal  Tous droits résérvés.                     #
#                                                                            #
# Multi-chercheur peut être utilisé par toute personne ayant telecharger     #
# le programme sur le site "http://scripts.lecgi.net".                       #
#                                                                            #
# Il est interdit à quiconque de modifier ce script, mis à part les lignes   #
# entre les champs autorisés, sans accord de son créateur.                   #
# Il est interdit de le difuser à titre gratuit ou payant sur internet ou    #
# par n'importe quel autre moyen.                                            #
#                                                                            #
# Pour obtenir ce programme, allez sur le site : http://scripts.lecgi.net/   #
##############################################################################

&lire_form;

# DEBUT DE LA CONFIGURATION
########################################################################

# Quoiqui
if ($Form{'moteur'} eq "1") { $adresse = "http://www.quoiqui.com/cgi-bin/moteur/moteur.cgi?recherche&mc=$mots_cles"; }

# Google
if ($Form{'moteur'} eq "2") { $adresse = "http://www.google.com/search?q=$mots_cles&btnG=Recherche+Google&hl=fr&lr=lang_fr"; }

# C'est Trouvé
if ($Form{'moteur'} eq "3") { $adresse = "http://hot.ctrouve.com/com/recherch.exe?rec=$mots_cles"; }

# Francite
if ($Form{'moteur'} eq "4") { $adresse = "http://recherche.francite.com/cgi-win/recherche.exe?btn_rechercher=Rechercher&name=$mots_cles&voir=webquebec&cs=iso-8859-1&bd=francite";	}

# MSN Search
if ($Form{'moteur'} eq "5") { $adresse = "http://search.msn.fr/results.asp?q=$mots_cles&origq=&RS=CHECKED&FORM=SMCRT&v=1&cfg=SMCINITIAL&nosp=0"; }

# Nomade
if ($Form{'moteur'} eq "6") { $adresse = "http://rechercher.nomade.fr/recherche.asp?f=N&l=L&s=$mots_cles"; }

# La toile du quebec
if ($Form{'moteur'} eq "7") { $adresse = "http://recherche.toile.qc.ca/cgi-bin/recherche?lang=fr&query=$mots_cles"; }

# Voila
if ($Form{'moteur'} eq "8") { $adresse = "http://r.voila.fr/se?dblg=fr&ctx=voila&lg=FR&sev=2&ref=ext&db=web&kw=$mots_cles&"; }  

# Yahoo france
if ($Form{'moteur'} eq "9") { $adresse = "http://search.yahoo.fr/search/fr?p=$mots_cles"; }

# Search Alta Vista
if ($Form{'moteur'} eq "10") { $adresse = "http://www.altavista.com/cgi-bin/query?pg=q&what=web&fmt=d&q=$mots_cles"; }

# Caloga.com
if ($Form{'moteur'} eq "11") { $adresse = "http://fr.web.caloga.com/html/search_result.php?n=30&sel=s&lr=lang_fr&q=$mots_cles"; }

# Search Excite
if ($Form{'moteur'} eq "12") { $adresse = "http://msxml.excite.com/_1_8W5UNM03LLBKZ5__info.xcite/dog/results?otmpl=dog/webresults.htm&qkw=$mots_cles&qcat=web&qk=20&top=1&start=&ver=25220"; }

# Search Hotbot
if ($Form{'moteur'} eq "13") { $adresse = "http://hotbot.lycos.com/?MT=$mots_cles&SM=MC&DV=0&LG=any&DC=10&DE=2&BT=H"; }

# Ouverture
if ($Form{'moteur'} eq "14") { $adresse = "http://www.fr.overture.com/d/search/?type=home&mkt=fr&tm=1&Keywords=$mots_cles"; }

# Search Lawcrawler
if ($Form{'moteur'} eq "15") { $adresse = "http://www.lawcrawler.com/scripts/lc.pl?entry=$mots_cles&sites=wlegal&focus=checked&context=top"; }

# Search Lycos
if ($Form{'moteur'} eq "16") { $adresse = "http://www.fr.lycos.de/cgi-bin/pursuit?matchmode=and&lang=fr&mtemp=main.sites&query=$mots_cles&cat=lycos&x=19&y=10"; }

# ShareLook
if ($Form{'moteur'} eq "17") { $adresse = "http://www.sharelook.fr/sldb/SLDB_db.php?keyword=$mots_cles&suche_starten=Recherche&seite=700001&template=fr_suchen&next_results=0"; }

# Search Metacrawler
if ($Form{'moteur'} eq "18") { $adresse = "http://search.metacrawler.com/texis/search?brand=metacrawler&q=$mots_cles&redirect=&top=1&method=0&rpp=20&hpe=10&region=0&timeout=0&sort=0&theme=classic"; }

# Trouvez.com
if ($Form{'moteur'} eq "19") { $adresse = "http://www.trouvez.com/cgi-bin/cgsearch/cgsearch.cgi?query=$mots_cles"; }

# Search Yahoo!
if ($Form{'moteur'} eq "20") { $adresse = "http://search.yahoo.com/bin/search?p=$mots_cles"; }

print "location: $adresse\n\n";

exit;

# FIN DE LA CONFIGURATION (ne changez pas les lignes ci dessous)
########################################################################

sub lire_form
{
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'})
	{$buffer = "$buffer\&$ENV{'QUERY_STRING'}";}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
	($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	$VALUE{$name} = $value;
      $Form{$name} .= "\0" if (defined($Form{$name}));
      $Form{$name} .= "$value";
      if ($name =~ /start(\d+).*/) { $Form{'start'} = $1; }
}

$mots_cles = $Form{'mots_cles'};

# pas de moteur selectionné
if ($Form{'moteur'} eq "0") { print "Content-type: text/html\n\n"; print "Vous n'avez pas selectionné de moteur de recherche dans la liste.<br><br>Utilisez la touche retour de votre navigateur pour revenir au formulaire.\n"; }
}