innenjalousien

innenjalousien

Bei den Innenjalousien von Resstende kommt die gesamte Erfahrung eines seit 20 Jahren in diesem Sektor ttigen Unternehmens zum Ausdruck. Leidenschaft, technologisches Know-how und groes Interesse an sthetischen Werten sind die Siegesformel von Resstende bei der Produktion praktischer, robuster und leicht einzubauenden Innenjalousien. Leidenschaft Angefangen von den Stoffen, ber die Kasten bis hin zu den Fhrungsschienen wird jede Komponente extrem sorgfltig entwickelt und hergestellt. Unter zahllosen Modellen an Innenjalousien von Resstende zu whlen heit auch auf einen umfassenden Vor- und Nachverkaufsservice zhlen zu knnen. Dieser beinhaltet u. a. die magerechte Entwicklung von Komponenten oder Jalousien wie den Kundendienst auf der Baustelle im Fall von Einbauproblemen.

Bei den Innenjalousien von Resstende kommt die gesamte Erfahrung eines seit 20 Jahren in diesem Sektor ttigen Unternehmens zum Ausdruck.

innenjalousien

#!/usr/bin/perl -w #$rcs = ' $Id: search.pl,v 1.95 2003/02/24 22:45:42 daniel Exp $ ' ; # Perlfect Search # # Copyright (C) 1999-2003 Giorgos Zervas and # Daniel Naber # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or (at # your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 # USA # Comment in the next two lines to log and show how long searches take: #use Time::HiRes qw (); #my $start_time = [Time::HiRes::gettimeofday]; use CGI; # only comment this in for development: #use CGI::Carp qw(fatalsToBrowser); use Fcntl; use POSIX qw(strftime); # added program path to @INC because it fails to find ./conf.pl if started from # other directory { # block is for $1 not mantaining its value $0 =~ /(.*)(\\|\/)/; push @INC, $1 if $1; } require Perlfect::Template; my $db_package = ""; # To use tainting, comment in the next 2 lines and comment out the next 8 lines. # Note that you also have to add "./" to the filenames in the require commands. #use DB_File; #$db_package = 'DB_File'; package AnyDBM_File; @ISA = qw(DB_File); # You may try to comment in the next line if you don't have DB_File. Still # this is not recommended. #@ISA = qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File); foreach my $isa (@ISA) { if( eval("require $isa") ) { $db_package = $isa; last; } } package main; require 'conf.pl'; require 'tools.pl'; init_config(); # See indexer.pl for a description of the data structures: my %inv_index_db; my %docs_db; my %urls_db; my %sizes_db; my %desc_db; my %content_db; my %titles_db; my %dates_db; my %terms_db; tie %inv_index_db, $db_package, $INV_INDEX_DB_FILE, O_RDONLY, 0755 or die "Cannot open $INV_INDEX_DB_FILE: $!"; tie %docs_db, $db_package, $DOCS_DB_FILE, O_RDONLY, 0755 or die "Cannot open $DOCS_DB_FILE: $!"; tie %urls_db, $db_package, $URLS_DB_FILE, O_RDONLY, 0755 or die "Cannot open $URLS_DB_FILE: $!"; tie %sizes_db, $db_package, $SIZES_DB_FILE, O_RDONLY, 0755 or die "Cannot open $SIZES_DB_FILE: $!"; tie %desc_db, $db_package, $DESC_DB_FILE, O_RDONLY, 0755 or die "Cannot open $DESC_DB_FILE: $!"; tie %content_db, $db_package, $CONTENT_DB_FILE, O_RDONLY, 0755 or die "Cannot open $CONTENT_DB_FILE: $!"; tie %titles_db, $db_package, $TITLES_DB_FILE, O_RDONLY, 0755 or die "Cannot open $TITLES_DB_FILE: $!"; tie %dates_db, $db_package, $DATES_DB_FILE, O_RDONLY, 0755 or die "Cannot open $DATES_DB_FILE: $!"; tie %terms_db, $db_package, $TERMS_DB_FILE, O_RDONLY, 0755 or die "Cannot open $TERMS_DB_FILE: $!"; my (@force, @not, @other); my (@docs, @valid_docs); my %answer; build_char_string(); my %stopwords_hash = load_stopwords(); my @stopwords = keys(%stopwords_hash); my @stopwords_ignored; # stopwords that are in the user's query my $punct = ',.!?:"\'/%()-'; my $query; if( !$ENV{'REQUEST_METHOD'} ) { # we are called on the command line my $pseudo_lang = 'text'; $pseudo_lang = 'qa' if( $ARGV[1] && $ARGV[1] eq 'qa' ); $query = new CGI({'q' => $ARGV[0], 'lang' => $pseudo_lang }); # TODO: add more options } else { # we are called as a CGI $query = new CGI; } main(); exit; sub main { if( $query->param('showurl') && $HIGHLIGHT_MATCHES ) { my $highlight_doc = showdocument(); print $highlight_doc; } else { # initialize everything with empty values (because we might run under mod_perl) @force = (); @not = (); @other = (); @docs = (); @valid_docs = (); %answer = (); if (create_query()) { #if some valid documents exist apply_booleans(); answer_query(); } my $html = cast_template(); if( $ENV{'REQUEST_METHOD'} ) { print "Content-Type: text/html\n\n"; } print $html; log_query(); } } # Highlight the term(s) in a result document: sub showdocument { print "Content-Type: text/html\n\n"; my $content = ""; # security: check if this file was indexed. If not, don't load # it, as this would allow loading attacks on any file (or cross site scripting # if using $HTTP_START_URL) my $url = $query->param('showurl'); my $file = $url; $file =~ s/^$BASE_URL//; if( $HTTP_START_URL && isHTML($file) && $urls_db{$url} ) { # require = check at run time, so people who don't use $HTTP_START_URL # don't need this module require LWP::UserAgent; my $http_user_agent = LWP::UserAgent->new; my $dummy; ($dummy,$dummy,$dummy,$content) = get_url($http_user_agent, $url, 1); if( ! defined($content) ) { $content = "Error: could not retrieve '".cleanup($url)."'\n"; } } elsif( ! $HTTP_START_URL && isHTML($file) && $urls_db{$file} ) { $file = $DOCUMENT_ROOT.'/'.$file; # TODO: make_path() function $file =~ s#/{2,}#/#g; open(INP, $file) or (return "Error: could not open '".cleanup($url)."': $!\n"); undef $/; $content = (); close(INP); } else { $content = "\n"; } my $query_str = cleanup($query->param('q')); $query_str =~ s/[+-]//g; my @terms = split(" ", $query_str); my $ct = 0; foreach my $term (@terms) { # TODO: add some text at top of (Google style)? # fixme: umlaut highlighting! $term = normalize_special_chars($term); if( is_ignored(remove_accents($term)) ) { next; } $content = highlighthtml($term, $content, $HIGHLIGHT_COLORS[$ct]); $ct++; if( $ct >= scalar(@HIGHLIGHT_COLORS) ) { $ct = 0; } } # Remove old tag: $content =~ s///igs; # Insert our own tag: $url = cleanup($url); my ($count_repl) = ($content =~ s//\n\n/is); if( ! defined($count_repl) ) { # maybe the HTML is broken and has no : $content = "\n".$content; } # don't "forget" line breaks in text files: if( $url =~ m/\.txt/i ) { # TODO: find a better solution (using mime-types) $content =~ s/[\r\n]/
\n/gs; } return $content; } # Make sure to replace the term only in the content of the # file, i.e. in that part that's typically visible to the # user (requires