#!/usr/bin/perl
use Time::Local;
use CGI;
print CGI::header();
#open(tst, ">tst.html");
#print "Content-type: text/plain\n\n";
#print tst "Content-type: text/plain\n\n";

$addr=$ENV{'REMOTE_ADDR'};

open (DAT, "./home.html");
@website=<DAT>;
close (DAT);

foreach $web (@website) {
	if ($web =~ /hster Caipiabend/) {
		$nextcaipiabend=$web;
		($dummy, $nextca)=split (/\,/, $web);
		($tag, $monatjahr)=split (/\./, $nextca);
		($dummy, $monat, $jahr)=split (/\ +/, $monatjahr);
		$monat=~s/ //g;
		$jahr=~s/ //g;
		$tag=~s/ //g;
		if ($monat eq "Januar") {
			$mon=0;
		}
		if ($monat eq "Februar") {
			$mon=1;
		}
		if ($monat =~/rz/) {
			$mon=2;
		}
		if ($monat eq "April") {
			$mon=3;
		}
		if ($monat eq "Mai") {
			$mon=4;
		}
		if ($monat eq "Juni") {
			$mon=5;
		}
		if ($monat eq "Juli") {
			$mon=6;
		}
		if ($monat eq "August") {
			$mon=7;
		}
		if ($monat eq "September") {
			$mon=8;
		}
		if ($monat eq "Oktober") {
			$mon=9;
		}
		if ($monat eq "November") {
			$mon=10;
		}
		if ($monat eq "Dezember") {
			$mon=11;
		}
		$jahr=substr($jahr, 0, 4);


		$nextca=timelocal(0,0,20,$tag,$mon,$jahr);
		last;

	}
}

#	$rechner=$nextca-time();
#	$diffday=$rechner/86400;
#	$diffday=$diffday . "a";
#	($diffday)=split(/\./, $diffday);
#	$rest=$rechner-$diffday*86400;

	$rest=$nextca-time()-600;
	$diffstd=$rest/3600;
	$diffstd=$diffstd . "a";
	($diffstd)=split(/\./, $diffstd);
	$diffstd=~s /a//;
	$rest=$rest-$diffstd*3600;

	$diffmin=$rest/60;
	$diffmin=$diffmin . "a";
	($diffmin)=split(/\./, $diffmin);
	$diffmin=~s/a//;
	$diffsek=$rest-$diffmin*60;

	if ($diffstd== 1) {
	$std="Stunde";
	}
	else { $std="Stunden" };

	if ($diffday == 1) {
		$day="Tag";
	}
	else { $day="Tage"; }

	if ($diffmin == 1) {
		$min="Minute";
	}
	else { $min="Minuten"; }

	if ($diffsek == 1) {
		$sek="Sekunde";
	}
	else { $sek="Sekunden"; }
	
	$zahl=int(rand(2));

	if ($zahl == 1) {
		$zahl=int(rand(312));
		$verzeichnis="spruch";
		$text="Zufallszungenbrecher";
	}
	else {
		$zahl=int(rand(220));
		$verzeichnis="fakten";
		$text="Fakt";
	}

	open (DAT, "./$verzeichnis/$zahl.txt");
	$spruch=<DAT>;
	close(DAT);

	$spruch=" $text Nr.$zahl: $spruch";


foreach $web (@website) {
#	chomp($web);
	if ($web=~ /hster Caipiabend/) {
		$web=~s/\<\/marquee\>/\.\.\.$spruch\.\.\.noch $diffstd $std, $diffmin $min und $diffsek $sek bis zum Caipiabend\<\/marquee\>/;
	}
#	print tst $web;
	print $web;
}

close(tst);

open(LOG, ">>./../logs/stati.txt");
$zugriff++;
print LOG localtime() . "\t$addr\n";
close(LOG);
