--- 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>
--- 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
--- 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
--- 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;
--- 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);
--- 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__