#!c:/perl/bin/perl -w

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':flock';
$| = 1;
use DatumZeit;
my $DZ = new datumzeit;
use htmlprint;
my $html = htmlprint -> new();
use dateieinausgabe;
my $Dat = dateieinausgabe -> new();
use textfilter;
my $TFilter = textfilter-> new();

my $Moment = $DZ->Aktuell();


my $UserName = '';
my $UserText = '';
my $User = '';

$UserName = $cgi->param("betreff");
$UserText = $cgi->param("text");
$User = $cgi->param("Xuser");

#.....
#Hier wird ein Neuer eintrag in eine Datei getätigt!
#.....

#Jetzt soll nur noch der Script gestartet werden,
#der dann die seite neu lädt/anzeigt.
#Als Paramter bekommt er den Benutzernammen. ($NName)

system("showpage.pl?$NName");

#do(showpage.pl?$NName);
# Bei do gabs folgende fehlermeldung:
#Bareword "showpage" not allowed while "strict subs" in use
#at C:/....../data/newlog.pl line 89.
#Execution of C:/....../data/newlog.pl aborted due to
#compilation errors.


1;