#!/usr/bin/perl
# Search Engine by MedGi
# -= medgi@caramail.com =-
$SEARCH = $ENV{QUERY_STRING};
$RECH =~s/^search=//o || die "Err0r !";
print "Content-type: text/html\n\n";
print " Recherche de [$SEARCH]\n";
)
{
$FICHIER = $_;
OPEN FICHIER;
while()
{
s/<[^>]+>//go;
print "$FICHIER : ";
print "$_
\n" if /$SEARCH/i;
}
close FICHIER;
}
print "\n";