-type => 'text/plain'

-type => 'text/html'

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use warnings;
use CGI;
use File::Find;
use HTML::Parser;

my $cgi     = CGI->new();
print $cgi->header(-type => 'text/html');
my %params  = $cgi->Vars();
my $string  = '';
my $title      = '';
my $basedir = '/home/netzgrafik/www.lottermoser.at/test/';
my $base_url = 'http://www.lottermoser.at/';
my $hp_title = 'Alu - Lottermoser';

# hier noch den Pfad zur Vorlage eintragen
my $template = '';

my @files = ();
find(\&find_files,$basedir);
my ($includes) = search($params{terms},\@files,$basedir);
print_html($base_url,$template,$hp_title,$params{terms},$includes);

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

sub print_found{
   my ($base,$template,$title,$terms,$hashref) = @_;

    my $content = '';
    {
        local $/;
        open(my $fh,'<',$template) or die $!;
        $content = <$fh>;
        close $fh;
    }

    my $html = '<ul>';
    for my $key(keys(%$hashref)){
        $html .= '<li><a href="'.$base.$key.'">'.$hashref->{$key}."</li>\n";
    }
    $html .= qq~</ul><hr align="left" width="100%" size="2" noshade color="#00007F">\n
             <font color="#00007F">Such Information:</font><p>
             <ul>\n<li><b><FONT COLOR=#00007F>Suchbegriff:</FONT></b>~;

   $html.= join(", ",split(/\s+/,$terms));

   $html .= qq~<li><a href="$base">$title</a>\n</ul>
                  <hr align="left" width="100%" size="2" noshade color="#00007F">
                  <a href="http://www.netzgrafik.com/">netzgrafik.com</a>.\n~;

    $content =~ s/\$Titel/$title/;
    $content =~ s/\$Message/$html/;

    print $content;
}

sub search{
   my ($termsstring,$files,$basedir) = @_;
   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 %include;
   for my $html_file(@$files){
       $string = '';
       $title = '';
       $parser->parse_file($html_file);

       foreach my $term (@terms) {
           $term = umlauts($term);

           # hier wurde noch das "i" angefügt für "ignore case" also
           # matching ohne Berücksichtigung von Groß- und Kleinschreibung

           if ($string =~ /$term/i) {
               (my $local_file =  $html_file) =~ s/\Q$basedir\E//;
               $include{$html_file} = $title;
               last;
           }
       }
   }
   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}++;
   }
   if($tag eq 'title'){
       $self->{title} = 1;
   }
}

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

sub end{
   my ($self,$tag) = @_;
   if($tag eq 'div' and $self->{search}){
       $self->{divs}--;
   }
   if($self->{divs} == 0){
       $self->{search} = 0;
   }
   if($tag eq 'title'){
       $self->{title} = 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;
}

           if ($string =~ /$term/i) {
              (my $local_file =  $html_file) =~ s/\Q$basedir\E//;
              $include{$html_file} = $title;
              last;
          }

           if ($string =~ /$term/i) {
              (my $local_file =  $html_file) =~ s/\Q$basedir\E//;
              $include{$local_file} = $title;
              last;
          }

if($tag eq 'title'){
      $self->{title} = 1;
      $tag->{search} = 1;
  }