packaging plastica farmacia
Bormioli Rocco Divisione Plastics è produttore di packaging in plastica per la farmacia. La vasta gamma di packaging in plastica per la farmacia comprende le capsule Child Proof a prova di bambino e Tamper Evident, chiusure a vite con sigillo di garanzia, entrambe disponibili in varie misure, i flaconi per uso oftalmico, i flaconi sciroppo, le pilloliere, i sistemi monodose bevibili, gli accessori e i dosatori di diverse misure e colori.
Bormioli Rocco Plastics è la divisione plastica di Bormioli Rocco Spa. Produce packaging plastica farmacia. I prodotti di punta sono i flaconi PET, i vasi PET per alimenti e i roll-on per deodoranti.
packaging plastica farmacia
#!/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 