#!/usr/bin/perl # # Variablen # $|=1; use strict; my $orig="/home/httpd/htdocs/pinnwand/.guestbook.txt"; my $exlock=2; my $unlock=8; print "Content-type: text/html\n\n"; # # Web-page fuer den Betrachter kreieren # # Kopf print <Pinwand

Pinwand

EOF # Datei ausgeben # if ( open (IN, "<" . $orig) ) { flock(IN, $exlock); print while (); flock(IN, $unlock); close IN; } else { print "Cannot read from data file $orig"; } # # Fuss ausgeben print "\n"; exit 0