Metafree Mudar Para Portugues

[Guest Adriano]

Olá.... peguei o script metafree aqui no scriptbrasil mas ele só busca os resultados do google em ingles...... alguém sabe como se faz pra buscar os resultados em portugues??

tentei mexer aqui, mas ele só busca 10 resultados em portugues...

Obrigado

Abraço

[lukitas]

Olá Adriano,

Você deverá mudar essa linha:

$url="http://www.google.com/search?q=$kwd1&hl=en&safe=off&start=$page&sa=N&num=$results&filter=0";

Para:

$url="http://www.google.com/search?q=$kwd1&hl=pt&safe=off&start=$page&sa=N&num=$results&filter=0";

E essas linhas:

if ($html =~ m#did not match any documents#is) {print &load_template("metasearch_error.html",{ message => "Not found in database", query => $kwd, select => $select});exit;}

$html=~ m#Results <b>(.*?) \- (.*?)</b> of about <b>(.*?)</b>\.#is;

Para:

if ($html =~ m#não encontrou nenhum documento#is) {print &load_template("metasearch_error.html",{ message => "Not found in database", query => $kwd, select => $select});exit;}

$html=~ m#Resultados <b>(.*?) \- (.*?)</b> de <b>(.*?)</b>\.#is;

[Guest Ademar Júnior]

Ae pessoal, como faço para configurar este CGI para rodar?

Estou saindo do ASP E SOU LEIGO EM cgi.

GOSTARIA QUE alguém ME EXP-LICASSE COMO FAÇO PARA CONFIGURAR.

A pasta onde ficam os CGIs no meu servidor se chama cgi-bin

#!/cgi-bin/
##################################################
#
# MetaSearcher 2.0 (basic version search only google)
#                   but you can purchase addons (affiliate search)
#
# (c)-2001, http://www.mycgiscripts.com
#
# Free version (you not allowed to do any modifications in script.
# Modifications in templates is allowed
#
# You can include additional modules here (free and paid).
#
# Input format is
# meta.cgi?query=(search term)
#######################################################
#Configuration section
#How much results?  (only for web search)
$results=20;
#Max Timeout (sec)
$timeout=45;
#Script name
$scriptname="meta.cgi"; #need change in templates too.
####################################3


#For easy script extension

print "Content-type: text/html \n\n";
require "./websearch-google.pl";               #basic search module
eval{ require "./amazonaddon.pl"; };    #For pay modules (search all amazon + all bestsellers list) + your affiliate code
eval{ require "./auctionsaddon.pl"; };  #For pay modules (search auctions + aff program support)
eval{ require "./mp3addon.pl"; };       #For pay modules (search mp3 + aff program)


eval{ &main;};

if ($@) {error("Runtime error : $@, ($!)");}
exit;

Este aquivo aí em cima é o meta.cgi

Se alguém puder me ajudar será de grande valia, pois não entendo absolutamente nada de CGI.

Obrigado a quem se dispor!

[lukitas]

Olá Ademar Júnior,

Primeiramente você terá que modificar a primeira linha do script para:

#!/usr/bin/perl

Terá que dar a permissão 755 (chmod) para todos os arquivos e pastas.

Você pode apagar essas linhas, por que nesse script free não é disponibilizados eles:

eval{ require "./amazonaddon.pl"; }; #For pay modules (search all amazon + all bestsellers list) + your affiliate code

eval{ require "./auctionsaddon.pl"; }; #For pay modules (search auctions + aff program support)

eval{ require "./mp3addon.pl"; }; #For pay modules (search mp3 + aff program)

E deverá mudar essa linha:

require "./websearch-google.pl"; #basic search module

configurando para o caminho interno do arquivo. Você deverá perguntar ao seu servidor qual o caminho interno para Perl. Exemplo:

require "/home/usuario/public_html/cgi-bin/websearch-google.pl"; #basic search module