#!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;

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

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DatumZeit;
use HtmlPrint; # das musst Du auch in der htmlprint.pm abändern und unter HtmlPrint.pm abspeichern
use Dateieinausgabe;
use Textfilter;
use Fcntl ':flock';

$| = 1;

my $cgi = CGI->();
my $dz = DatumZeit->new();
my $html = htmlprint -> new();
my $dat = Dateieinausgabe -> new();
my $t_filter = Textfilter-> new();
my $moment = $dz->Aktuell();


my $username = $cgi->param("betreff");
my $usertext = $cgi->param("text");
my $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;

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
my %params = $cgi->Vars();

print $params{Xuser};

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

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

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