#!/usr/bin/perl $path="texte/"; @fnames=("arzt","berufe","blond","bund","computer","ddr","eriwan", "fies","geschichte","juden","kellner","kinder","kirche","mannfrau", "manta","musiker","schotten","ossi","ostfriesen","polizei","kram", "sport","studenten","tiere","wanderer","zeit","sonstiges"); %Names=("arzt","Arzt","berufe","Berufe","blond","Blondinen","bund", "Bund","computer","Computer","ddr","DDR","eriwan","Sender Eriwan", "fies","Fies!","geschichte","Geschichte","juden","Jüdische Witze", "kellner","Kellner","kinder","Kinder","kirche","Kirche","mannfrau", "Männer und Frauen","manta","Manta","musiker","Musiker","schotten", "Nationalitäten","ossi","ossis und Wessis","ostfriesen","Ostfriesen", "piloten","Piloten","polizei","Polizisten","kram","Schweinskram", "sport","Sportler","studenten","Profs und Studenten","tiere","Tiere", "wanderer","Wanderer","zeit","Zeitgeschehen","sonstiges","Sonstiges"); $i=rand(@fnames); @file=($path,$fnames[$i],".txt"); $random_file = join("",@file); $delimiter = "----------\n"; $del2 = "<>"; open(FILE,"$random_file") || &error('open->random_file',$random_file); while() {push(@FILE,$_);} close(FILE); $phrasen = join('',@FILE); @phrases = split(/$delimiter/,$phrasen); $phrase = rand(@phrases-1); @zwitz = split(/$del2/,$phrases[$phrase]); print "Content-type: text/html\n\n"; print "\nWitz per Zufall V1.01\n"; print "\n","\n"; print ""; print "
"; print "

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

\n"; print "\nDer Zufallswitz"; print " - Kategorie: ",$Names{$fnames[$i]},"\n"; print "\n
\n",$zwitz[3],"\n
"; print "\n\n"; print "Den n\ä\;chsten Witz bitte!\n"; print "\n		Script "; print "by A. Bienert "; print "& R. Bödefeld"; print "\n

\n"; print "

\n\n"; print "\n"; exit; sub error { ($error,$file) = @_; print <<"END_ERROR"; Content-type: text/html ERROR: Random File Unopenable

ERROR: Random File Unopenable

The random file, as specified in the \$random_file perl variable was unopenable.

END_ERROR if (-e $random_file) { print "The file was found on your system, so make sure that it is\n"; print "readable by the web server. This means you will need to\n"; print "execute the following command:

\n";
        print "    chmod 744 $random_file\n";
        print "

\n"; } else { print "The file was not found on your file system. This means that\n"; print "it has either not been created or the path you have specified\n"; print "in \$trrandom_file is incorrect.\n"; } exit; }