#!/usr/bin/perl
# Copyright by Sigrist Consulting GmbH: hp@sigrist.ch - 2002-06-30
# ----------------------------------------------------------------
BEGIN {
  foreach($ENV{'HTTP_HOST'}) {
#    /^dst$/ and $ldir = '/web/dst/', last;
#    $ldir = '/u/web/dstcom/';
    /^dst$/ and $ldir = '/web/dst/', last;
    $ldir = '/home/sites/www.dst-combitool.ch/web/';
  }
  unshift @INC,$ldir.'cgi-local';
  $MY::count::dir = $ldir.'counter/';
  @MY::count::nocount = qw(194.158.28.236);
}

use MY::count;
MY::count::counter($ENV{'QUERY_STRING'});