Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
 |
 |
9 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
 my ($self,$tag,$attr) = @_;
 if($tag eq 'div' && $attr->{class} eq 'scroll'){
   $self->{search} = 1;
 }
QuoteQuantifier follows nothing in regex; marked by <-- HERE in m/? <-- HERE / at /home/netzgrafik/www.marktgemeinde-seibersdorf.at/scripts/search.pl line 139.
 $term=~ s/?/?\;/g;
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
#!/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.lottermoser.at/vorlage/vorlage.htm';
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_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="#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">\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 '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/x
/?\;/g;
 $term=~ s/&–/?\;/g;
 $term=~ s/?/?\;/g;
 $term=~ s/&¸/?\;/g;
 $term=~ s/?/?\;/g;
 $term=~ s/?/?\;/g;
 return $term;
}
![[Homepage]](/battie/theme/default/homepage.gif)
$term=~ s/\?/?\;/g;
$term=~ s/\?/?\;/g;
1
2
3
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
sub find_files{
push(@files,$File::Find::name) if(-f $File::Find::name && $_ =~ /\.htm$/);
}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
sub start{
my ($self,$tag,$attr) = @_;
if($tag eq 'div' && $attr->{class} eq 'scroll'){
$self->{search} = 1;
}
if($tag eq 'div' and $self->{search}){ # DIESEN PART LÖSCHEN ?
$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){ # DIESEN PART LÖSCHEN ?
$self->{search} = 0;
}
if($tag eq 'title'){
$self->{title} = 0;
}
}
push(@files,$File::Find::name) if(-f $File::Find::name && $_ =~ /\.html?$/);
1
2
3
4
5
6
7
8
# dateien die nicht durchsucht werden sollen
my @unwanted = qw(test.html index.html);
my @files = ();
find(\&find_files,$basedir);
@files = grep{ my $i = $_; !grep{ $_ eq $i }@unwanted }@files;
my ($includes) = search($params{terms},\@files,$basedir);
print_html($base_url,$template,$hp_title,$params{terms},$includes);
@files = grep{ my $i = $_; !grep{ $_ eq $i }@unwanted }@files;@files = grep{ my $i = $_; !grep{ $i =~ /\Q$_\E$/ }@unwanted }@files;
|
|
9 Einträge, 1 Seite |
![[Powered by Battie]](/battie/img/powered.png)
