1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 |
2 |
3 use warnings; |
3 use warnings; |
4 use strict; |
4 use strict; |
5 use LWP::UserAgent; |
5 use LWP::UserAgent; |
6 use CGI; |
6 use CGI qw(-utf8); |
7 use CGI::Carp qw(fatalsToBrowser); |
7 use CGI::Carp qw(fatalsToBrowser); |
8 use Net::SCP; |
8 use Net::SCP; |
|
9 use Template; |
|
10 use Cwd; |
|
11 use FindBin qw($RealBin); |
|
12 |
|
13 my $cgi = new CGI; |
|
14 |
|
15 if (!$cgi->param(".submit")) { |
|
16 print CGI::header(-type => "text/html", -charset => "utf-8"); |
|
17 |
|
18 my $tt = Template->new({INCLUDE_PATH => "$RealBin/../templates"}) |
|
19 or die "Can't create template object: $Template::ERROR\n"; |
|
20 |
|
21 $tt->process("index.html", { |
|
22 now => time(), |
|
23 error => { firma => "xxx", |
|
24 mail => "so nicht" }, |
|
25 firma => $cgi->param("firma"), |
|
26 }) or die $tt->error(); |
|
27 exit 0; |
|
28 } |
9 |
29 |
10 my ( |
30 my ( |
11 $uid, $cgi, $feld, $feld4, $feld1, $feld2, |
31 $uid, $feld, $feld4, $feld1, $feld2, |
12 $feld3, $get, $url, $ua, $ub, $req |
32 $feld3, $get, $url, $ua, $ub, $req |
13 ); |
33 ); |
|
34 |
14 my $x = 1; |
35 my $x = 1; |
15 $uid = `uuidgen`; |
36 $uid = `uuidgen`; |
16 $uid =~ s/-//g; |
37 $uid =~ s/-//g; |
17 chomp $uid; |
38 chomp $uid; |
18 $cgi = new CGI; |
39 |
19 |
40 |
20 ####################### |
41 ####################### |
21 # Auswerten der Daten # |
42 # Auswerten der Daten # |
22 # des Web-Formulars # |
43 # des Web-Formulars # |
23 ####################### |
44 ####################### |