#!/usr/bin/perl -w use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use strict; my $pfad = "../../httpdocs/data/"; my $FN_blog = $pfad."liste.csv"; my $ts = time(); ########## Alte Einträge einlesen my @alte_zeilen = read_file($FN_blog); #enthält Zeilen der Blogdatei print "Content-type: text/html\n\n"; ########### Ausgabe an Browser und in Datei print < Brennsuppe - Liste ekliger Wörter

Liste ekliger Wörter

Letzter Eintrag:

HTMLANFANG print "

$alte_zeilen[0]

"; if(param()) { unshift @alte_zeilen,$ts."\t".param('Eintrag')."\n"; } my $neu_eintrag = ''; foreach(@alte_zeilen) { $neu_eintrag .= $_; } print <Neuer Eintrag:

[Zurück zur Homepage]

HTMLENDE write_file($FN_blog,$neu_eintrag); sub read_file{ open(F, $_[0]) || error("Can't open file $_[0]: $!"); my @data = ; close F; return @data; } sub write_file{ open(F, ">".$_[0]) || error("Can't open file $_[0]: $!"); print F $_[1]; close F; } sub error{ print "Content-type: text/html\n\n"; print $_[0]; }