|
So, hier habt ihr die Möglichkeit euch ein wenig zu amüsieren. Ihr könnt hier Witze beisteuern und sie kommentieren.
Also, keine Scheu und immer her mit den besten Stücken...
Da dies hier das Witzebuch ist, schreibt hier bitte nur Dinge, die damit zu tun haben und geht sonst lieber bitte zum Gästebuch oder zur Plauderecke';
$meldungen[1]='das muss ich los werden...';
$meldungen[2]='zurück zum Witzebuch';
$meldungen[3]='neues Thema';
$meldungen[4]='kein Eintrag im feld, Thema oder Name oder Beitrag zu kurz, bitte ergänzen';
$meldungen[5]='Antwort zum Thema: ';
$meldungen[6]='kein Eintrag im Feld Name oder Beitrag zu kurz, bitte ergänzen';
$meldungen[7]='Beitrag wurde gespeichert ';
$meldungen[8]='hier war wohl noch keiner';
$maxproseite=5; # maximale Anzahl der angezeigten News-Verweise pro seite
#Ab hier der eigentliche Programmablauf
echo ''.$meldungen[0].' ';
if(!$sent) #Seite wird aufgerufen
{
echo ''.$meldungen[1].'';
echo '
';
auslesen(); #kopfdaten auslesen
if(!$daten or count($daten)<1) # noch keine Daten vorhanden
echo '
'.$meldungen[8];
else
zeige_news(); #Kopfdaten anzeigen
}
elseif($sent and ($sent=="neu" or $sent=="save")) # Vorgang ausgewählt
{
echo ''.$meldungen[2].'';
echo '
';
if($sent=="save") #Neueingaben gemacht
{
if($thema=="" or strlen($Beitrag)<10 or $autor=="") #kein thema oder Beitrag zu kurz oder kein Name
{
echo $meldungen[4];
Beitragform(); # formular erneut aufrufen
exit;
}
##eingebene Daten ok, daten speichern
$Datum=date("d.m.y.H.i.s"); #erstelldatum
$Datum_a=date("d.m.y H:i:s");
$kennung="mess_".strtr($Datum,".","_"); #datensatzkennung vergeben
if(file_exists($mesdat)) #kopfdatendatei schon vorhanden
$tempdat=fopen($mesdat,"a"); #zum schreiben öffenen Datensatz anhängen
else
$tempdat=fopen($mesdat,"w"); #erstelln zum schreiben öffnen 1.datensatz schreiben
#Daten eintragen
fputs($tempdat,$kennung. "*|*".stripslashes(nl2br(htmlspecialchars(autor))). "*|*" .$Datum_a. "*|*" .stripslashes(nl2br(htmlspecialchars($thema)))."*|**|*\n");
fclose($tempdat);# dateihandle schließen
#Dateiinhalt schreiben
if(!$htmlok)
$Beitrag=stripslashes(nl2br(htmlspecialchars($Beitrag)));
else
$Beitrag=$Beitrag;
$txt=' Thema:'.stripslashes(nl2br(htmlspecialchars($thema))).'
';
$txt=$txt.''.$Datum_a.'
';
$txt=$txt.'message:
'.$autor.' schrieb:
';
$txt=$txt.''.$Beitrag.'
';
$txt=$txt.'antwort schreiben
';
$tempdat=fopen($kennung.".htm","w"); #datei anhand der Kennung erzeugen und Beitragstext eintragen
fputs($tempdat,$txt);
fclose($tempdat);
echo $meldungen[7];
exit;
}
Beitragform(); # formular aufrufen
}
##################
elseif($sent and ($sent=="antw" or $sent=="antwsave")) # Vorgang ausgewählt
{
echo ''.$meldungen[2].'';
echo '
';
if($sent=="antwsave") #Neueingaben gemacht
{
if(strlen($Beitrag)<10 or $autor=="") # Beitrag zu kurz oder kein Name
{
echo $meldungen[6];
Beitragform(); # formular erneut aufrufen
exit;
}
##eingebene Daten ok, daten speichern
$Datum_a=date("d.m.y H:i:s");
#Daten eintragen
#Dateiinhalt schreiben
if(!$htmlok)
$Beitrag=stripslashes(nl2br(htmlspecialchars($Beitrag)));
else
$Beitrag=$Beitrag;
$txt='Reply:'.stripslashes(nl2br(htmlspecialchars($thema))).'
';
$txt=$txt.''.$Datum_a.'
';
$txt=$txt.'message:
'.$autor.' schrieb:
';
$txt=$txt.''.$Beitrag.'
';
$tempdat=fopen($satznummer.".htm","a"); #datei anhand der Satznummer öffnen und Beitragstext eintragen
fputs($tempdat,$txt);
fclose($tempdat);
echo $meldungen[7];
exit;
}
$altthema="";
auslesen();
for($i=0;$i< count($daten);$i++)
{
if($daten[$i][0]==$satznummer)
$altthema=$daten[$i][3];
}
Beitragform(); # formular aufrufen
}
?>
'.$meldungen[3].'';
$sent="save";
}
else
{
if($thema=="")
$thema=$altthema;
$sent="antwsave";
echo ''.$meldungen[5].$thema.' ';
}
?>
Seite:';
for($i=1;$i<=$szahl;$i++)
{
if($i!=$szpara)
echo ' '.$i.' ';
else
echo $i;
}
#darstellen der bisherigen Beiträge
echo ' von '.$szahl.'';
echo '
';
for($i=$startwert;$i<=$endwert;$i++)
{
include($data[$i][0].".htm");
echo '
';
}
}
?>
|
|
