#!/usr/bin/perl
use CGI;
# wywolanie funkcji do dekodowania danych z formularza
CGI::ReadParse(*form);
# zamiana 'niebezpiecznych' znakow " na \"
$search = $form{'slowo'};
$search =~ s/"/\\"/g;
@files=`grep -li "$search" *.html`;
# Wypisanie na wyjscie kodu HTML, czyli strony www
print "Content-type: text/html; charset=ISO-8859-2\n\n";
print "Wyniki wyszukiwania\n";
print "Wyniki wyszukiwania
\n";
if ($#files == -1) {
print "Nie znaleziono żadnego pliku zawierającego tekst ",
$form{'slowo'},"\n";
} else {
print "Znaleziono ",$#files+1," plików zawierających tekst ",
$form{'slowo'},"\n";
print "
\n";
foreach $file (@files) {
chop($file);
print '- ',$file,"\n";
}
print "
\n";
}
print "\n";