# HG changeset patch
# User eric.schmalfuss <eric.schmalfuss@schlittermann.de>
# Date 1359464787 -3600
# Node ID 0ed8b6a9da491ee30808ddeab15bff34a43515f3
# Parent  4bc929b9563fdc8f51a95985eb8dc5010269689f
Beauty changes

diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/index.html
--- a/bin/index.html	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/index.html	Tue Jan 29 14:06:27 2013 +0100
@@ -7,12 +7,20 @@
          <h1>Zertifikat abgelaufen</h1>
          <p>Voraussetzung ist eine Verbindung ins Internet. Es werden keine Daten gespeichert, das verarbeitende CGI-Script gibt lediglich die eingelesenen Daten aus.</p>
          <form action="http://localhost/cgi-bin/send">
-            <p>Firma:<br>
-            <input name="Firma" size="40"></p>
-            <p>E-Mail:<br>
-            <input name="Mail" size="40"></p>
-            <p>Text:<br>
-            <textarea name="Text" rows="5" cols="50"></textarea></p>
+            <table border="0" cellpadding="0" cellspacing="4">
+               <tr>
+                  <td align="right">Firma:</td>
+                  <td><input name="Firma" type="text" size="40">
+                  </tr>
+                  <tr>
+                     <td align="right">Mail:</td>
+                     <td><input name="Name" size="40"></td>
+                  </tr>
+                  <tr>
+                     <td align="right">Test:</td>
+                     <td><input name="Test" type="text" size="40"></td>
+                  </tr>
+               </table>
             <p><input type="submit" value="Formulardaten absenden"></p>
       </form>
    </body>
diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/receive_a.test
--- a/bin/receive_a.test	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/receive_a.test	Tue Jan 29 14:06:27 2013 +0100
@@ -4,17 +4,18 @@
 use warnings;
 use CGI;
 
-my ($input,$q,$key,$wert,$param,%result);
+my ( $input, $q, $key, $wert, $param, %result );
+
 #read(STDIN, $input, $ENV{'CONTENT_LENGTH'})or die "error in read: $!";
-$q=new CGI;
-
-$anhang=$q->param('POSTDATA');
+$q = new CGI;
 
-my @params = split(/&/,$anhang);
+$anhang = $q->param('POSTDATA');
+
+my @params = split( /&/, $anhang );
 
-foreach (@params){
-   ($key,$wert)=split(/=/,$_);
-   $result{$key}=$wert;
+foreach (@params) {
+    ( $key, $wert ) = split( /=/, $_ );
+    $result{$key} = $wert;
 }
 
 # Folgend SSL-Script
diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/receive_n
--- a/bin/receive_n	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/receive_n	Tue Jan 29 14:06:27 2013 +0100
@@ -3,26 +3,31 @@
 use strict;
 use warnings;
 
-my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result);
-my $i=0;
+my (
+    $Daten, $value, $name, $text,  $anhang, $input,
+    $q,     $key,   $wert, $param, %result
+);
+my $i = 0;
 my %Formular;
 my @Formularfelder;
 
-$anhang= $ENV{'QUERY_STRING'};
-read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
+$anhang = $ENV{'QUERY_STRING'};
+read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} );
 &verarbeiten;
+
 sub verarbeiten {
-@Formularfelder = split(/&/, $Daten);
-foreach my $Feld (@Formularfelder) {
-  ($name, $value) = split(/=/, $Feld);
-  $value =~ tr/+/ /;
-  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-  $Formular{$name} = $value;
- }
+    @Formularfelder = split( /&/, $Daten );
+    foreach my $Feld (@Formularfelder) {
+        ( $name, $value ) = split( /=/, $Feld );
+        $value =~ tr/+/ /;
+        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+        $Formular{$name} = $value;
+    }
 }
-my @schluessel=keys(%Formular);
-my @values=values(%Formular);
-open (OUT,">test");
+my @schluessel = keys(%Formular);
+my @values     = values(%Formular);
+open( OUT, ">test" );
 print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
 close OUT;
+
 # Folgend SSL-Script
diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/receive_test
--- a/bin/receive_test	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/receive_test	Tue Jan 29 14:06:27 2013 +0100
@@ -5,41 +5,51 @@
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 
-my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result);
-my $i=0;
+my (
+    $Daten, $value, $name, $text,  $anhang, $input,
+    $q,     $key,   $wert, $param, %result
+);
+my $i = 0;
 my %Formular;
 my @Formularfelder;
 
+$anhang = $ENV{'QUERY_STRING'};
+read( STDIN, $Daten, $ENV{'CONTENT_LENGTH'} );
+print $Daten;
+&verarbeiten;
 
-$anhang= $ENV{'QUERY_STRING'};
-read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
-&verarbeiten;
 sub verarbeiten {
-@Formularfelder = split(/&/, $Daten);
-foreach my $Feld (@Formularfelder) {
-  ($name, $value) = split(/=/, $Feld);
-  $value =~ tr/+/ /;
-  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-  $Formular{$name} = $value;
- }
+    @Formularfelder = split( /&/, $Daten );
+    foreach my $Feld (@Formularfelder) {
+        ( $name, $value ) = split( /=/, $Feld );
+        $value =~ tr/+/ /;
+        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+        $Formular{$name} = $value;
+    }
 }
-my @schluessel=keys(%Formular);
-@schluessel=reverse @schluessel;
-my @values=values(%Formular);
-@values=reverse @values;
-open (OUT,">test");
-print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
-close OUT;
-# Folgend SSL-Script
+my @schluessel = keys(%Formular);
+@schluessel = reverse @schluessel;
+my @values = values(%Formular);
+@values = reverse @values;
+
+# Folgend Test-Script
+
+ 
 
 # Test
-my $x=0;
-open (OUT,">/var/www/index.html");
-print OUT ('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"><head>
-<title>CGI-Feedback</title><body><h1>CGI-Feedback vom Programm  <i>recieve</i></h1>');
-foreach (@schluessel){
-print OUT ('<p><B>Feldname: </B>'.$schluessel[$x].' <B> Inhalt: </B>'.$values[$x].'<br>');
-$x++;
+my $x = 0;
+open( OUT, ">/var/www/index.html" );
+print OUT (
+'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US"><head>
+<title>CGI-Feedback</title><body><h1>CGI-Feedback vom Programm  <i>recieve</i></h1>'
+);
+foreach (@schluessel) {
+    print OUT ( '<p><B>Feldname: </B>'
+          . $schluessel[$x]
+          . ' <B> Inhalt: </B>'
+          . $values[$x]
+          . '<br>' );
+    $x++;
 }
 print OUT ('</body></html>');
 close OUT;
diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/send_a.test
--- a/bin/send_a.test	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/send_a.test	Tue Jan 29 14:06:27 2013 +0100
@@ -6,27 +6,27 @@
 require CGI;
 require CGI::Carp qw(fatalsToBrowser);
 
-my ($cgi, $firma, $mail, $text, $url, $ua, $req);
+my ( $cgi, $firma, $mail, $text, $url, $ua, $req );
 $cgi = new CGI;
 
 # Auswerten der Daten.
 #$firma=$cgi->param('Firma');
 #$mail=$cgi->param('Mail');
 #$text=$cgi->param('Text');
-my @param=$cgi->param();
-open(TEST,">test");
+my @param = $cgi->param();
+open( TEST, ">test" );
 print TEST ("@param");
 close TEST;
 
 exit(0)
 
-#$url='http://192.168.0.144/cgi-bin/recieve';
+  #$url='http://192.168.0.144/cgi-bin/recieve';
 
-#$ua=LWP::UserAgent->new;
-#$ua->env_proxy;
+  #$ua=LWP::UserAgent->new;
+  #$ua->env_proxy;
 
-#$req=HTTP::Request->new("POST",$url);
-#$req->header('Content-Type' => 'text/html');
-#$req->content('Firma=Wir&Mail=mail');
+  #$req=HTTP::Request->new("POST",$url);
+  #$req->header('Content-Type' => 'text/html');
+  #$req->content('Firma=Wir&Mail=mail');
 
-#$ua->request($req);
+  #$ua->request($req);
diff -r 4bc929b9563f -r 0ed8b6a9da49 bin/send_n
--- a/bin/send_n	Tue Jan 29 09:48:10 2013 +0100
+++ b/bin/send_n	Tue Jan 29 14:06:27 2013 +0100
@@ -6,37 +6,62 @@
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 
-my ($cgi, $firma, $mail, $text, $url, $ua, $req);
+my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req );
+my $x = 0;
 $cgi = new CGI;
 
-# Auswerten der Daten.
-$firma=$cgi->param('AnwenderName');
-$text=$cgi->param('Kommentartext');
-open(TEST,">test");
-print TEST ("$firma ;:; $text");
-close TEST;
+#######################
+# Auswerten der Daten #
+# des Web-Formulars   #
+#######################
+
+$feld1 = $cgi->param('Firma');
+$feld2 = $cgi->param('Name');
+$feld3 = $cgi->param('Test');
+
+#open( TEST, ">test" ) or die "Kann Handle nicht oeffnen!\n$!";
+#print TEST ("$feld1 ;:; $feld2 ;:; $feld3");
+#close TEST;
 my @Feldnamen = $cgi->param();
 
-print $cgi->header(),
-      $cgi->start_html(-head=>$cgi->meta({-http_equiv=>'REFRESH',-content=>'5;URL=http://192.168.0.144/index.html'})),$cgi->title('CGI-Feedback'),
-      $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('send'));
-      foreach my $Feld (@Feldnamen) {
-         print $cgi->strong('Feldname: '),
-               $Feld,
-               $cgi->strong(', Inhalt: '),
-               $cgi->param($Feld), "<br>";
-            }
-            print $cgi->end_html();
+#######################
+# Senden der Daten    #
+# via HTTP-POST       #
+#######################
 
-
-$url='http://192.168.0.144/cgi-bin/recieve';
-
-$ua=LWP::UserAgent->new;
+$url = 'http://192.168.0.144/cgi-bin/receive';
+$ua  = LWP::UserAgent->new;
 $ua->env_proxy;
 $ua->timeout(10);
+$req = HTTP::Request->new( "POST", $url );
+$req->header( 'Content-Type' => 'text/html' );
+$req->content("Name=$feld1&Mail=$feld2&Test=$feld3");
+$ua->request($req);
 
-$req=HTTP::Request->new("POST",$url);
-$req->header('Content-Type' => 'text/html');
-$req->content("Name=$firma&Mail=$text");
+#######################
+# Erstellen einer     #
+# Feedback-Seite zum  #
+# Test mit Weiter-    #
+# leitung             #
+#######################
 
-$ua->request($req);
+print $cgi->header('CGI-Feedback'),
+  $cgi->start_html(
+    -head => $cgi->meta(
+        {
+            -http_equiv => 'REFRESH',
+            -content    => '5;URL=http://192.168.0.144/index.html'
+        }
+    ),
+    -title => 'CGI-Feedback'
+  ),
+  $cgi->h1( 'CGI-Feedback vom Programm ', $cgi->i('send') );
+
+foreach my $Feld (@Feldnamen) {
+    print $cgi->strong('Feldname: '),
+      $Feld,
+      $cgi->strong(', Inhalt: '),
+      $cgi->param($Feld), "<br>";
+}
+print $cgi->end_html();
+__END__