",$form[3],"

#!/usr/bin/perl # Pfad zu /cgi-bin $path="/srv/www/vhosts/kraehseite.de/cgi-bin/"; # Extra-Werbebloecke, d.h. Seiten ohne L4L-Banner @Werbung=("blond","mannfrau"); # Titel-Hash vorbereiten %Titel=("arzt","Die Götter in Weiss", "berufe","Verschiedene Berufsgruppen", "blond","Blondinenwitze", "bund","Bundeswehr-Witze", "computer","Computer- und Programmierer-Witze", "ddr","Witze aus der ehemaligen DDR", "eriwan","Anfragen an den Sender Eriwan", "fies","Fiese Witze!", "geschichte","Was früher so passierte", "juden","Jüdische Witze", "kellner","Kneipen- und Kellnerwitze", "kinder","Kindermund", "kirche","Religion und Kirche", "kram","Schweinskram", "mannfrau","Männer und Frauen", "manta","Mantawitze", "musiker","Musiker- und Orchesterwitze", "ossi","Ossis und Wessis", "ostfriesen","Ostfriesenwitze", "piloten","Neulich auf dem Flugplatz", "polizei","Polizisten und Politessen", "schotten","Nationalitäten", "sonstiges","Unzuordenbares", "sport","Sportler- und Sportwitze", "studenten","Professoren und Studenten", "tiere","Fabeln (Tierliches \;\-\)", "wanderer","Da kam ein Wanderer des Wegs", "zeit","Das \"letzte\" aus dem Zeitgeschehen"); # Namen-Hash vorbereiten %Names=("Arzt","arzt","Berufe","berufe","Blondinen","blond", "Bund","bund","Computer","computer","DDR","ddr", "Sender Erewan","eriwan","Fies!!!","fies2", "Geschichte","geschichte","Jüdische Witze","juden", "Kellner","kellner","Kinder","kinder","Kirche","kirche", "Männer und Frauen","mannfrau","Manta","manta", "Musiker","musiker","Nationalitäten","schotten", "Ossis und Wessis","ossi","Ostfriesen","ostfriesen", "Piloten","piloten","Polizisten","polizei", "Schweinskram","kram", "Sportler", "sport", "Profs und Studenten","studenten","Tiere","tiere", "Wanderer","wanderer","Zeitgeschehen","zeit", "Sonstiges","sonstiges","in english","english"); # Einlesen der Formulardaten if($ENV{'REQUEST_METHOD'} eq 'GET') { $Daten = $ENV{'QUERY_STRING'}; @Formularfelder = split(/&/, $Daten); foreach $Feld (@Formularfelder) { ($name, $value) = split(/=/, $Feld); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $form[$i] = $name; $i++; $form[$i] = $value; $i++; } } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; @form=("nr",0,"sparte",$Names{$FORM{'sparte'}}); } } $ipaddr=$ENV{'REMOTE_ADDR'}; # Ausgabe $textfilename=$path."texte/".$form[3].".txt"; $delimiter = "----------\n"; open(FILE,"<".$textfilename); @FILE = ; close(FILE); $wtext = join('',@FILE); @witze = split(/$delimiter/,$wtext); $numspa = int((@witze-1)/20); if ($form[1]<$numspa) {$obergr=($form[1]+1)*20-1;} else {$obergr=@witze-1;} print "Content-type:text/html\n\n\n"; print "\n",$form[3],"\n"; print "\n\n"; print ""; print ""; print ""; # Werbebloecke # private Werbung for (@Werbung) { if ($_ eq $form[3]) { print "\n

\n
Sponsor der Krähseite"; $m=1; } } if (($form[3] eq "fies2")||($form[1] == -1)) { print "WARNUNG"; print " !!!\n

Der Inhalt der folgenden "; print "Seite wird von manchen Leuten als geschmacklos, teilweise "; print "auch als beleidigend empfunden.\nIch möchte dazu "; print "bemerken, dass ich keinen der folgenden Witze als "; print "Verherrlichung der in ihnen angesprochenen Tatsachen "; print "verstanden wissen will - wer freut sich schon \n"; print "wirklich über Fieses?!\n

Vielmehr geht es "; print "hierbei um den vielgerühmten schwarzen Humor, "; print "ausgeschlossen davon sind natürlich rassistische, "; print "gewaltverherrlichende und verbrechensfördernde Witze "; print "derartige Sachen werden hier nicht gezeigt.

\n"; print "Ich bitte, von \"flame mails\" abzusehen, da ich der Meinung "; print "bin, dass das Fehlen dieser Kategorie einen falschen (weil "; print "unehrlichen und unvollständigen) Eindruck von der "; print "deutschen \"Witzlandschaft\" vermittelt,\n und gerade die "; print "Vollständigkeit ist eines der erklärten Ziele "; print "dieser Sammlung.

\nBedenken Sie bitte auch, dass "; print "Witze eine Ausdrucksform des "einfachen" "; print "Menschen sind, um auf Missstände in der "; print "Gesellschaft hinzuweisen; ich bitte, die Witze in "; print "diesem Sinne aufzufassen.

\n Einige der folgenden "; print "Witze sind für Personen unter 18 Jahren ungeeignet! "; print "

\n"; print ""; print " $\"Ja,$ \n"; print ""; print "

\n"; } elsif ($form[3] eq "english") { open(FILE,"/home/kraehseite_de/www/ewitze.html"); @LINES = ; close(FILE); $string = join(' ',@LINES); print $string; } else { print "\n"; print "

",$Titel{$form[3]},"

\n"; foreach $j (0..$numspa) { if ($j==$form[1]) { print " ",$form[1]+1," "; } else { print " ",$j+1," \n"; } } print "
\n"; print "

\n"; print "\n \n"; print "\n"; print "

\n"; # Abfrage, ob Punktzahl fuer die laufende Sparte schon vergeben wurde $fn=$path."daten/".$form[3].".txt"; $deli1="--\n"; $deli2="<>"; open(FILE,"<".$fn || die print $textfilename," nicht gefunden!\n"); @dat=; close(FILE); $wtext=join('',@dat); @votes=split(/$deli1/,$wtext); $i=0; until (($feld[0] eq $ipaddr) || $i>@votes) { @feld = split(/$deli2/,$votes[$i]); $i++; } if ($feld[0] eq $ipaddr) { $a=(0,0,0,0); if ($feld[1]!=0) {$a[0]=1;} if ($feld[2]!=0) {$a[1]=1;} if ($feld[3]!=0) {$a[2]=1;} if ($feld[4]!=0) {$a[3]=1;} } else {$a=(0,0,0,0);} # Splitten in Platzierung, Punkte, etc. # anz[0] - Vortagsplatz # anz[1] - 1000er Punkte # anz[2] - Gesamtpunkte # anz[3] - Witztext foreach $i (20*$form[1]..$obergr) { $del2="<>"; @anz=split(/$del2/,$witze[$i]); print ""; print "\n\n\n"; print "\n\n

\n "; print $i+1,". (",$anz[0],".)"; print " ",$anz[1]," Punkte

\n"; print "\n

"; if ($a[0]==0) { print "(+3) ";} else {print "(+3) ";} if ($a[1]==0) { print "(+2) ";} else {print "(+2) ";} if ($a[2]==0) { print "(+1) ";} else {print "(+1) ";} if ($a[3]==0) { print "(-1) ";} else {print "(-1) ";} print "

\n"; print "

",$anz[3],"

"; print "

\n
\n"; } foreach $j (0..$numspa) { if ($j==$form[1]) { print " ",$form[1]+1," "; } else { print " ",$j+1," \n"; } } } print "

\n\n\n";