Thread suchscript geht meistens nicht (6 answers)
Opened by Rocco at 2007-12-03 15:12

Rocco
 2007-12-03 15:12
#103397 #103397
User since
2005-11-18
37 Artikel
BenutzerIn
[default_avatar]
nachdem mir renee schon ein paar mal mit dem suchscript weitergeholfen hat, wieder einmal eine anfrage von mir zum thema.

es geht um die suche auf dieser seite -> http://www.marktgemeinde-seibersdorf.at/start.html

unten das script um das es geht, leider gibt es probleme mit der suche.
sie geht manchmal, aber manchmal auch nicht und wenn sie nicht geht kommt folgende fehlermeldung:

[an error occurred while processing this directive] Die Anfrage kann nicht beantwortet werden, da im Server ein interner Fehler aufgetreten ist. [an error occurred while processing this directive] Fehlermeldung:
Premature end of script headers: search.pl [an error occurred while processing this directive]

ich schätze mal es liegt am server, der zeitweilig zu langsam ist und dann diese fehlermeldung produziert.

kann man das script irgendwie beschleunigen?
oder was kann man sonst machen damit die suche immer funktioniert?

auf die error_logs hab ich leider nicht so ohne weiteres zugriff, da müsste ich beim hoster nachfragen, in dem bereich auf den ich zugriff habe sind keine errorlogs enthalten.

kenn mich auch zuwenig mit caching methoden aus, um diesbezüglich was zu probieren




Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
#!/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.marktgemeinde-seibersdorf.at/';
my $base_url = 'http://www.marktgemeinde-seibersdorf.at/';
my $hp_title = 'Startseite';


# hier noch den Pfad zur Vorlage eintragen
my $template = '/home/netzgrafik/www.marktgemeinde-seibersdorf.at/vorlagen/vorlage_02.html';

# dateien die nicht durchsucht werden sollten
my @unwanted = qw(amadeus.htm);

my @files = ();
find(\&find_files,$basedir);
@files = grep{ my $i = $_; !grep{ $i =~ /\Q$_\E$/ }@unwanted }@files;
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$/);
  push(@files,$File::Find::name) if(-f $File::Find::name && $_ =~ /\.html?$/);
}

sub print_html{
  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~</a></ul><hr align="left" width="100%" size="2" noshade color="#685B24">\n
            <font color="#685B24">Such Information:</font><p>
            <ul>\n<li><b><FONT COLOR=#685B24>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="#685B24">\n~;
                 
                 #<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 or $title =~ /$term/i) {
             (my $local_file =  $html_file) =~ s/\Q$basedir\E//;
             $include{$local_file} = $title;
             last;
         }

          
      }
  }
  return \%include;
}

sub start{
  my ($self,$tag,$attr) = @_;
  if($tag eq 'body'){
      $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($tag eq 'title'){
      $self->{title} = 0;
  }
}  
  
sub umlauts{
  my ($term) = @_;
  $term=~ s/&#8221;/?\;/g;
  $term=~ s/x/?\;/g;
  $term=~ s/&#8211;/?\;/g;
  $term=~ s/\?/?\;/g;
  $term=~ s/&#184;/?\;/g;
  $term=~ s/\?/?\;/g;
  $term=~ s/\?/?\;/g;
  return $term;
}

View full thread suchscript geht meistens nicht