#-----------------------------------------# # PHP Meta Search Engine # # # # by Ericson C. Smith (2001) # # under the GPL # # esconsult1@yahoo.com # # # # If you need new to add new engines, # # I can do this for a small fee to cover # # my busy time! $US 25 to add each eng. # # Just e-mail me at the above address # # with the name of the site and a # # description of the results to be parsed.# # Turnaround is normally in a few hours! # # # # I can also make this over to completely # # integrate within your site. # # # #-----------------------------------------# print "
|
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
(.*?)<\/A> (.*?)<\/A>
/";
$eng[0]['strip'] = "\n";
$eng[1]['url'] = "http://www.alltheweb.com/search?cat=web&lang=spanish&query=$q";
$eng[1]['name'] = "AllTheWeb";
$eng[1]['reg'] = '/
/i';
$eng[1]['strip'] = "\n";
$eng[2]['url'] = "http://altavista.com/sites/search/web?q=$q&enc=&es=XX&search=Search";
$eng[2]['name'] = "Altavista";
$eng[2]['reg'] = "/(.*?)<\/A>.*?
(.*?)
/i";
$eng[2]['strip'] = "\n";
$eng[3]['url'] = "http://search.msn.com.mx/results.asp?ba=(0.0)0&co=(0.10)4.1..2.1.4.1&FORM=SMCRT&RS=CHECKED&q=$q&v=1&un=doc";
$eng[3]['name'] = "MSN";
$eng[3]['reg'] = "/(.*?)<\/A>
(.*?)
.*?size8>(.*?)<\/span>/i";
$eng[4]['strip'] = "\n";
}
else{ # Cualquier idioma
$eng[0]['url'] = "http://www.google.com/search?q=$q&hl=en&lr=&safe=off&start=0&sa=N";
$eng[0]['name'] = "Google";
$eng[0]['reg'] = "/
/";
$eng[0]['strip'] = "\n";
$eng[1]['url'] = "http://www.alltheweb.com/search?cat=web&lang=any&query=$q";
$eng[1]['name'] = "AllTheWeb";
$eng[1]['reg'] = '/
/i';
$eng[1]['strip'] = "\n";
$eng[2]['url'] = "http://altavista.com/sites/search/web?q=$q&enc=&kl=XX&search=Search";
$eng[2]['name'] = "Altavista";
$eng[2]['reg'] = "/(.*?)<\/A>.*?
(.*?)
/i";
$eng[2]['strip'] = "\n";
$eng[3]['url'] = "http://search.msn.com/results.asp?ba=(0.0)0&co=(0.10)4.1..2.1.4.1&FORM=MSNH&RS=CHECKED&q=$q&v=1";
$eng[3]['name'] = "MSN";
$eng[3]['reg'] = "/(.*?)<\/A>
(.*?)
.*?size8>(.*?)<\/span>/i";
$eng[4]['strip'] = "\n";
$eng[5]['url'] = "http://google.yahoo.com/bin/query?p=$q&hc=1&hs=4";
$eng[5]['name'] = "Yahoo";
$eng[5]['reg'] = "/href.*?\*(.*?)\">(.*?)
.*?<\/b>(.*?)
/i";
$eng[5]['strip'] = "\n";
}
$urls = array();
$out = array();
$y=0;
reset($eng);
while(list(,$c )= each($eng)){
#foreach($eng as $c){
$text1 = join("",file($c['url']));
if($c[strip]) $text1 = ereg_replace($c[strip],"",$text1);
preg_match_all($c['reg'],$text1,$matches);
$num = count($matches[0]);
for($x=0;$x<$num;$x++) {
$url = strip_tags($matches[1][$x]);
$title = strip_tags($matches[2][$x]);
$description = strip_tags($matches[3][$x]);
$engine = $c[name];
if($out["$url"]){
$out["$url"][engine] .= ", $engine";
}
else{
$out["$url"][title] = $title;
$out["$url"][description] = $description;
$out["$url"][engine] = $engine;
}
$y++;
}
}#rof
$secs = time() - $start;
print "$y resultados encontrados en $secs segundos.
";
print "";
#print "
";
print "
";
#print_r($out);
#print "
";
while(list($url,$rec) = each($out))
{
extract($rec);
print "
$description
$url
$engine
";
}
print "
Other Sponsors electrical connectors, Mangosteen Juice, real estate short sale, Jupiter FL real estate, |
Furniture Markdown Great Deals on furniture - Free Shipping! |
Y-Net Wireless Internet Denver area high speed wireless privider. |
|
Dog House Technologies Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet. |