#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = CGI->new;

my @date = localtime();

print $q->header;
print $q->start_html('Kerstins Adventskalender');
print $q->h1('Adventskalender für meinen Schatz Kerstin');

my $day = @date[3];
my $month = @date[4] + 1;
my $year = @date[5] + 1900;

if ( length($month) == 1 ) {
	$month = "0$month";
}

print "<ul>\n";

if ( $month ne "12" ) {
	exit 1;
}

if ( $year ne "2010" ) {
	exit 1;
}

if ( !$q->param() ) {
	for ( my $i = 1; $i <= 24; $i++ ) {
		my $d = $i;
		$d = "0$d" if length($d) == 1;
		print "<li><a href=\"index.pl?day=$d\">$d.12.</a></li>\n" if $d <= $day;
	}
}
elsif ( $q->param() ) {
	my $selday = $q->param('day');
	my $special_auth = $q->param('specialauth');
	
	print '<p><a href="index.pl">Zur&uuml;ck</a></p>' . "\n";
	
	if ( ($selday > $day) && !($special_auth eq "54cd") ) {
		print "<p>Na na na! Wer ist denn hier so neugierig?</p>\n";
		exit 1;
	}
	
	if ( $selday eq "01" ) {
		print "<p>Ich habe auf meine Art gebastelt und nach einiger Zeit war der Kalender fertig...</p>\n";
		print "<p>Hinter dem ersten T&uuml;rchen verbergen sich drei Worte: <b>Ich liebe dich!</b></p>\n";
	}
	elsif ( $selday eq "02" ) {
		print "<p>Hallo kleine Maus, teile dir ein K&uuml;sschen aus, als Geschenk, dass ich an dich denk!</p>\n";
	}
	elsif ( $selday eq "03" ) {
		print "<p>B&auml;rchen gr&uuml;&szlig;t dich aus der Ferne und will dir sagen ich habe dich gerne. Ich denke so oft an dich am Tag, du musst mir glauben, dass ich dich mag!</p>\n";
	}
	elsif ( $selday eq "04" ) {
		print "<p>F&uuml;r die Welt bist du irgendjemand, f&uuml;r irgendjemand bist du die Welt.</p>\n";
	}
	elsif ( $selday eq "05" ) {
		print "<p>Diese Spruch hier kommt von Herzen deshalb werde ich nicht scherzen. Ich mail dich an und es macht piep, ich hab dich n&auml;mlich ganz doll lieb!</p>\n";
		print "<p align=\"center\"><img src=\"http://storage.dithmar-net.de/kadvent/weihnachtsmann_sack_nikolaus.gif\"></p>\n";
	}
	elsif ( $selday eq "06" ) {
		print "<p>Die ganze Welt m&ouml;chte ich f&uuml;r Dich knuddelbunt anmalen. Du bist das Beste, was mir je passieren konnte!</p>\n";
	}
	elsif ( $selday eq "07" ) {
		print "<p>Wenn ich zaubern k&ouml;nnte w&uuml;rde ich es regnen lassen. Die Sonne w&uuml;rde dann einen Regenbogen malen. Auf dem liefe ich dann ganz schnell zu dir. Ich liebe dich!</p>\n";
	}
	elsif ( $selday eq "08" ) {
		print "<p>F&uuml;r dunkle Stunden w&uuml;nsche ich Dir die Eigenschaften der Sonnenblume, die ihr Gesicht dem Licht zuwendet, damit die Schatten hinter sie fallen.</p>\n";
	}
	elsif ( $selday eq "09" ) {
		print "<p>Das Tier mit der roten Nase ist ein Rentier und kein Hase.</p>\n";
	}
	elsif ( $selday eq "10" ) {
		print "<p>Ein Spruch f&uuml;r diesen Tage heuer,<br/>der war mir doch ein bisschen teuer.<br/>Drum' m&ouml;cht' ich Dir in K&uuml;rze sagen,<br/>und hoffe es bringt Wohlbehagen:<br/>";
		print "Ich liebe Dich, so soll es sein<br/>und fertig ist mein kleiner Reim.</p>\n";
	}
	elsif ( $selday eq "11" ) {
		print "<p>Nichts ist kostbarer als Du f&uuml;r mich, darum nicht nur f&uuml;r heute: Ich liebe Dich.</p>\n";
	}
	elsif ( $selday eq "12" ) {
		print "<p>Vielleicht gibt es sch&ouml;nere Zeiten; aber diese ist die unsere.</p>\n";
	}
	elsif ( $selday eq "13" ) {
		print "<p>Das Fest der Hoffnung und des Lichtes, es r&uuml;ckt nun n&auml;her Tag f&uuml;r Tag, Geborgenheit und Gl&uuml;ck verspricht es, Vertrauen, was auch kommen mag.</p>\n"
	}
	elsif ( $selday eq "14" ) {
		print "<p>Die Liebe allein versteht das Geheimnis, andere zu beschenken und dabei selbst reich zu werden.</p>\n";
	}
	elsif ( $selday eq "15" ) {
		print "<p>Der einzige Mensch, der sich vern&uuml;nftig benimmt, ist mein Schneider.";
		print " Er nimmt jedesmal neu Ma&szlig;, wenn er mich trifft, w&auml;hrend alle anderen immer die alten Ma&szlig;st&auml;be anlegen in der Meinung,";
		print " sie pa&szlig;ten auch heute noch.</p>\n";
	}
	elsif ( $selday eq "16" ) {
		print "<h3>Advent</h3>\n";
		print "<p>Advent das ist die stille Zeit,<br/>die Tage schnell verrinnen.<br/>Das Fest der Liebe ist nicht weit,<br/>fangt an euch zu besinnen!</p>\n";
		print "<p>Es gab wohl manchmal Zank und Streit<br/>ihr habt euch nicht vertragen,<br/>vergesst das Jetzt und seid bereit,<br/>euch wieder zu vertragen.</p>\n";
		print "<p>Denn denk nicht nur an's eigene Gl&uuml;ck,<br/>du solltest danach streben,<br/>und anderen Menschen auch ein St&uuml;ck<br/>von deiner Liebe geben.</p>\n";
		print "<p>Der eine w&uuml;nscht sich Ruhm und Geld,<br/>die W&uuml;nsche sind verschieden.<br/>Ich w&uuml;nsche f&uuml;r die ganze Welt<br/>nur Einigkeit und Frieden.</p>\n";
	}
	elsif ( $selday eq "17" ) {
		print "<h3>Christkindlein</h3>\n";
		print "<p>Christkindlein, ich will artig sein,<br/>bring mir was aufs Tellerlein.<br/>N&uuml;sse, &Auml;pfel, eins, zwei, drei,<br/>auch ein P&uuml;ppchen sei dabei!<br/>";
		print "Christkindlein, mach mich fromm,<br/>dass ich in den Himmel komm!</p>\n";
	}
	elsif ( $selday eq "18" ) {
		print "<h3>Weihnachtsmann</h3>\n";
		print "<p>Weihnachtsmann, sei so gut,<br/>stecke ein die gro&szlig;e Rut.<br/>Kommst von drau&szlig;en aus dem Wald,<br/>da ist es finster und auch kalt.<br/>";
		print "Drumm las dich ruhig bei uns nieder<br/>und w&auml;rme deine Glieder.<br/>Doch Weihnachtsmann bedenke,<br/>wir m&ouml;chten auch Geschenke.</p>\n";
	}
	elsif ( $selday eq "19" ) {
		print "<p>Im Advent, der Zeit der Lichter,<br/>wird ein jeder schnell zum Dichter,<br/>denn in dieser stillen Zeit,<br/>reicht ein leises Wort sehr weit.</p>\n";
	}
	elsif ( $selday eq "20" ) {
		print "<p>Mit dieser Nachricht, meine S&uuml;&szlig;e,<br/>schick' ich Dir ganz liebe Gr&uuml;&szlig;e<br/>und m&ouml;chte Dir von Herzen sagen,<br/>was gilt nicht nur in diesen Tagen:</p>";
		print "<p><b>Ich liebe Dich!</b></p>";
	}
	elsif ( $selday eq "21" ) {
		print "<p>Ich w&uuml;nsch' mir ein Geschenk, an das ich immer denk. Doch es gibt ja Dich, das ist schon genug f&uuml;r mich.</p>\n";
	}
	elsif ( $selday eq "22" ) {
		print "<p>Zeit der Mu&szlig;e, Zeit der Ruhe,<br/>in der man sich was Gutes tue<br/>und beizeiten nicht vergisst,<br/>dass bald Weihnachten ist.</p>\n";
	}
	elsif ( $selday eq "23" ) {
		print "<p>When the snow falls wunderbar<br/>And the children happy are,<br/>When the Glatteis on the street,<br/>And we all a Gl&uuml;hwein need,<br/>Then you know, es ist soweit:<br/>";
		print "She is here, the Weihnachtszeit</p>";
		
		print "<p>Every Parkhaus is besetzt,<br/>Weil die people fahren jetzt<br/>All to Kaufhof, Mediamarkt,<br/>Kriegen nearly Herzinfarkt.<br/>Shopping hirnverbrannte things<br/>And the Christmasglocke rings.</p>";
		
		print "<p>Mother in the kitchen bakes<br/>Schoko-, Nuss- and Mandelkeks<br/>Daddy in the Nebenraum<br/>Schm&uuml;cks a Riesen-Weihnachtsbaum.<br/>He is hanging off the balls,<br/>Then he from the Leiter falls...<br/>";
		print "Finally the Kinderlein<br/>To the Zimmer kommen rein<br/>And it sings the family<br/>Schauerlich: \"Oh, Chistmastree!\"</p>";
		
		print "<p>And the jeder in the house<br/>Is packing the Geschenke aus.<br/>Mama finds unter the Tanne<br/>Eine brandnew Teflon-Pfanne,<br/>Papa gets a Schlips and Socken,<br/>Everybody does frohlocken.<br/>";
		print "President speaks in TV,<br/>All around is Harmonie,<br/>Bis mother in the kitchen runs:<br/>Im Ofen burns the Weihnachtsgans.<br/>And so comes die Feuerwehr<br/>With Tat&uuml;, tata daher,<br/>";
		print "And they bring a long, long Schlauch<br/>And a long, long Leiter auch.<br/>And they schrei - \"Wasser marsch!\",<br/>Christmas now is in the ...</p>";
		
		print "<p>Merry Christmas, merry Christmas,<br/>Hear the music, see the lights,<br/>Frohe Weihnacht, Frohe Weihnacht,<br/>Merry Christmas allerseits.</p>";
	}
	elsif ( $selday eq "24" ) {
		print "<p>Gr&uuml;ner Kranz mit roten Kerzen,<br/>Lichterglanz in allen Herzen.<br/>Nun ist heilig Abend nicht mehr fern,<br/>ach wie hab ich Dich doch gern!</p>\n";
		print "<p><b>Frohe Weihnachten!</b></p>\n";
		print "<p align=\"center\"><img src=\"http://storage.dithmar-net.de/kadvent/weihnachtsbaum2.gif\"></p>\n";
	}
	
}

print "</ul>\n";

print $q->end_html;