#!/usr/bin/perl ############################################################# # Administration # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # Autor: Helmut Walter # E-Mail: webmaster@inspire-net.de # Webseite: http://www.inspire-world.de ############################################################# use CGI::Carp qw(fatalsToBrowser); # Dateiflock use Fcntl qw(:DEFAULT :flock); use DBI; # Falls MySQL Nutzung auskommentieren use lib "routinen/module/"; use Archive::FRWtools; if ($ENV{"REQUEST_METHOD"} eq 'GET') { $query = $ENV{'QUERY_STRING'}; } else { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } @pairs = split(/&/, $query); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($FORM{$name}) { $FORM{$name} = $FORM{$name}.",".$value; } else { $FORM{$name} = $value; } } ############################################################## # Name des Programms $progname = "out.cgi"; # Benoetigte Dateien einbinden require "setup/setup.pl"; require "routinen/module/scriptlibrary.pl"; # Toplisteneintrags ID $site = datensaver($FORM{'site'}); $site =~ s/[^0-9]//g; &verbinden; my $toplistendaten = $prefix . "toplisten"; my $sth = $dbh->prepare("SELECT toplist_id, inhaber_id, linkurl, hitin, hitout FROM $toplistendaten WHERE toplist_id = '$site' LIMIT 1"); my $tld = $sth->execute or die DBI->errstr; @zieldaten = $sth->fetchrow_array(); my $summetld = $tld eq "0E0" ? 0 : $tld; $sth->finish; # Wenn Daten OK if ($summetld == 1) { my $toplistendaten = $prefix . "toplisten"; my $sth = $dbh->prepare("UPDATE $toplistendaten SET hitout = hitout + 1 WHERE toplist_id = '$site'"); $sth->execute or die DBI->errstr; $sth->finish; $dbh->disconnect; if (-e "$htmlpfad/tl/$zieldaten[1]/daten/renew.txt") { @rntime = FRWtools::DateialsZeile("$htmlpfad/tl/$zieldaten[1]/daten/renew.txt"); $jetzt = time(); if ($jetzt > $rntime[0]) { require "routinen/toplist.pl"; &toplistgen($zieldaten[1]); } } print "Location: $zieldaten[2]\n\n"; exit; # Wenn Fehler } else { print "Content-type: text/html\n\n"; print qq~
Fehler! |
Die angeforderte URL konnte nicht gefunden werden. Bitte schließen Sie das Fenster um zur vorigen Seite zurückzukehren. |