--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/index.html Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,19 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+ <head>
+ <title>SSL-Zertifikat erneuern</title>
+ </head>
+ <body>
+ <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>
+ <p><input type="submit" value="Formulardaten absenden"></p>
+ </form>
+ </body>
+</html>
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/recieve_a.test Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use CGI;
+
+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');
+
+my @params = split(/&/,$anhang);
+
+foreach (@params){
+ ($key,$wert)=split(/=/,$_);
+ $result{$key}=$wert;
+}
+
+# Folgend SSL-Script
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/recieve_n Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+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'});
+&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;
+ }
+}
+my @schluessel=keys(%Formular);
+my @values=values(%Formular);
+open (OUT,">test");
+print OUT ("\@schluessel: @schluessel\n\@values: @values\n");
+close OUT;
+# Folgend SSL-Script
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/recieve_test Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
+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'});
+&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;
+ }
+}
+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
+
+# 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++;
+}
+print OUT ('</body></html>');
+close OUT;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/send_a.test Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+require LWP::UserAgent;
+require CGI;
+require CGI::Carp qw(fatalsToBrowser);
+
+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");
+print TEST ("@param");
+close TEST;
+
+exit(0)
+
+#$url='http://192.168.0.144/cgi-bin/recieve';
+
+#$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');
+
+#$ua->request($req);
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/send_n Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use LWP::UserAgent;
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+
+my ($cgi, $firma, $mail, $text, $url, $ua, $req);
+$cgi = new CGI;
+
+# Auswerten der Daten.
+$firma=$cgi->param('AnwenderName');
+$text=$cgi->param('Kommentartext');
+open(TEST,">test");
+print TEST ("$firma ;:; $text");
+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();
+
+
+$url='http://192.168.0.144/cgi-bin/recieve';
+
+$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=$firma&Mail=$text");
+
+$ua->request($req);
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/test Mon Jan 28 14:29:25 2013 +0100
@@ -0,0 +1,1 @@
+ ;:;
\ No newline at end of file