strutture zootecniche

strutture zootecniche

Un allevatore alla ricerca di qualità e affidabilità, scegliendo le strutture zootecniche RotaGuido, sa di affidarsi in mani sicure, a chi da anni coltiva una passione profonda e una dedizione totale al settore. Valutando caso per caso le esigenze di ogni singola azienda, i tecnici e i progettisti realizzano strutture zootecniche e impianti di ultima generazione, utilizzando competenze ingegneristiche, agronomiche, igienico-sanitarie, organizzative e gestionali. Per tutte le strutture zootecniche Rota Guido garantisce un servizio assistenza post vendita esperto e tempestivo, per eventuali problematiche o riparazioni di componenti di impianti.

Strutture zootecniche sono alcuni dei prodotti Rota Guido.

RotaGuido Homepage


#!/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