#!/usr/local/gnu/bin/perl
require "./veranstaltungen.ph";
$DATABASE = "veranstaltungen.db";
$LOCKFILE = $DATABASE . ".lock";
# HTML-Header schreiben
print "Content-Type: text/html\n";
print "\n";
print "";
print "Abbruch der Aktion";
print "";
# Datenbank freigeben
if(! -e $LOCKFILE){
print "Datenbank ist freigegeben (Lockdatei existiert nicht mehr) ...
\n";
} elsif (unlink($LOCKFILE)!=1) {
print "Lockfile konnte nicht gelöscht werden ...";
} else {
print "Datenbank wurde wieder freigegeben ...
\n";
}
print "
Zurück zur Administrationsseite
\n";
print "\n";