sub parse_form {

   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      $FORM{$name} = $value;
   }
}

use CGI;
my $cgi = CGI->new();
my %FORM = $cgi->Vars();

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use HTML::Template::Compiled;
use File::Find;
use HTML::Parser;

my $cgi     = CGI->new();
print $cgi->header(type => 'text/plain');
my %params  = $cgi->Vars();
my $basedir = '/home/netzgrafik/www.lottermoser.at/test/';

my @files = ();
find(\&find_files,$basedir);
my %includes = search($params{terms},\@files);
print_found($params{terms},\%includes);

sub find_files{
    push(@files,$File::Find::name) if(-f $File::Find::name && $_ =~ /\.htm$/);
}

sub print_found{
    my ($terms,$hashref) = @_;
    print $terms," found in:\n";
    foreach my $key(keys(%$hashref)){
        print $key."\n" if($hashref->{$key} eq 'yes');
    }
}

sub search{
    my ($termsstring,$files) = @_;
    my @terms = split(/\s+/,$termsstring);
    
    my $parser = HTML::Parser->new(
                             api_version => 3,
                             start_h     => [\&start,"self,tagname,attr"],
                             text_h      => [\&text,"self,dtext"],
                             end_h       => [\&end,"self,tagname"]);
  
    $parser->{divs} = 0;
    my $string = '';
    my %include;
    for my $html_file(@$files){
        $string = '';
        $parser->parse_file($html_file);

        foreach $term (@terms) {
            $term = umlauts($term);
            if ($string =~ /$term/) {
                $include{$html_file} = 'yes';
                last;
            }
            else {
                $include{$html_file} = 'no';
            }
        }
    }
    return %include;
}

sub start{
    my ($self,$tag,$attr) = @_;
    if($tag eq 'div' && $attr->{class} eq 'scroll'){
        $self->{search} = 1;
    }
    if($tag eq 'div' and $self->{search}){
      $self->{divs}++;
    }
}

sub text{
    my ($self,$dtext) = @_;
    $string .= $dtext if($self->{search});
}

sub end{
    my ($self,$tag) = @_;
    if($tag eq 'div' and $self->{search}){
        $self->{divs}--;
    }
    if($self->{divs} == 0){
        $self->{search} = 0;
    }
}  
      
sub umlauts{
    my ($term) = @_;
    $term=~ s/&”/ä\;/g;
    $term=~ s/¾/Ä\;/g;
    $term=~ s/&–/ö\;/g;
    $term=~ s/÷/Ö\;/g;
    $term=~ s/&¸/ü\;/g;
    $term=~ s/Ð/Ü\;/g;
    $term=~ s/þ/ß\;/g;
    return $term;
}