Hola:
Ya también instalé el buscador y no me funciona, me da el mismo mensaje de que "se encontraron los siguientes resultados", creo tener todo en orden, esta es mi liga
http://www.artecinema.com.mx/buscador.htmlMi proveedor de hosting me dio esta información:
Your site is hosted on clust03.powweb.com.
ServerName:
http://artecinema.com.mx Temp URL:
http://arte1623.temp.powweb.com Secure URLs:
https://arte1623.secure.powweb.comhttps://artecinemacommx.secure.powweb.comUse the SSL URL you prefer. Both URL's go to your site.
CGI: Enabled User: arte1623
CGI allows you to run scripts written in perl, php, or another program language to create dynamic content for your website.
Document Root: /www/a/r/artecinema.com.mx/htdocs
Actual Path: /www/a/arte1623/htdocs
The Document Root/actual path is useful to know when configuering CGI scripts and cron jobs.
Logs: This information is now in site tools.
FrontPage: [ Install ]
*****
Y mi código del cgi es el siguiente:
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
my $query = param("query");
my $root_dir = '/www/a/artecinema.com.mx/htdocs';
my $url_dir = 'http://artecinema.com.mx';
print header();
print start_html();
print "\n<p>Para la búsqueda $query, estos resultados se encontraron:</p>\n<ol>\n";
undef $/;
find( sub {
return if($_ =~ /^\./);
return unless($_ =~ /\.htm(l)?/i);
stat $File::Find::name;
return if -d;
return unless -r;
open(FILE, "< $File::Find::name") or return;
my $string = <FILE>;
close (FILE);
return unless ($string =~ /\Q$query\E/i);
my $page_title = $_;
if ($string =~ /<title>(.*?)<\/title>/is){
$page_title = $1;
}
my $int_dir = $File::Find::dir;
$int_dir =~ s/$root_dir//i;
my $url = $url_dir . $int_dir . "/" . $_;
print "<li><a href=\"$url\">$page_title</a></li>\n";
}, $root_dir);
print "</ol>\n";
print end_html();
exit(1);
****
Ojalá alguien me pueda orientar pues el buscador nomás no arroja ningún resultado