#!/usr/bin/perl -w ######################### # Version fuer Tripod # für Tripod muss # # fatalsToBrowser unwirksam gemacht werden # # use lib 'C: unwirksam gemacht werden # # das Bild in cgi-bin existieren # # Umgebungsvariablen anpassen # # 'PATH_INFO' erstetzt durch 'REQUEST_URI', ergibt /nica42/cgi-bin/env.pl/vor? # # in Webseite muss stehen /cgi-bin/zaehler.pl/vor?nach/ # zeigt ein Bild #################### use strict; # use CGI::Carp qw(fatalsToBrowser); # use lib 'C:/cgi/andere'; use zaehler; # use lib 'C:/cgi/tripod'; use TripodDate; use vars qw($ZAEHL_FILE $ERROR_FILE $DATUM); $ZAEHL_FILE = "$ENV{'REQUEST_URI'}"; $ZAEHL_FILE =~ /(.*)\/(.*)\?(.*)/; $ZAEHL_FILE = "$2.log"; ini(); Fehlermeldung($ZAEHL_FILE); exit(0); 1;
Make your own free website on Tripod.com