diff -r 73d827714711 -r a915e7231d63 htdocs/cgi-bin/send_n --- a/htdocs/cgi-bin/send_n Tue Feb 05 14:01:36 2013 +0100 +++ b/htdocs/cgi-bin/send_n Tue Feb 05 15:58:11 2013 +0100 @@ -3,19 +3,40 @@ use warnings; use strict; use LWP::UserAgent; -use CGI; +use CGI qw(-utf8); use CGI::Carp qw(fatalsToBrowser); use Net::SCP; +use Template; +use Cwd; +use FindBin qw($RealBin); + +my $cgi = new CGI; + +if (!$cgi->param(".submit")) { + print CGI::header(-type => "text/html", -charset => "utf-8"); + + my $tt = Template->new({INCLUDE_PATH => "$RealBin/../templates"}) + or die "Can't create template object: $Template::ERROR\n"; + + $tt->process("index.html", { + now => time(), + error => { firma => "xxx", + mail => "so nicht" }, + firma => $cgi->param("firma"), + }) or die $tt->error(); + exit 0; +} my ( - $uid, $cgi, $feld, $feld4, $feld1, $feld2, + $uid, $feld, $feld4, $feld1, $feld2, $feld3, $get, $url, $ua, $ub, $req ); + my $x = 1; $uid = `uuidgen`; $uid =~ s/-//g; chomp $uid; -$cgi = new CGI; + ####################### # Auswerten der Daten #