# HG changeset patch # User eric.schmalfuss # Date 1359379765 -3600 # Node ID bc8a3d815645df0f51efe6d26267ff77c134c344 # Parent 109f9cc18906e45db5ca8ca2a78c0c149dd8e31a A few changes for Transport diff -r 109f9cc18906 -r bc8a3d815645 bin/index.html --- /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 @@ + + + + SSL-Zertifikat erneuern + + +

Zertifikat abgelaufen

Voraussetzung ist eine Verbindung ins Internet. Es werden keine Daten gespeichert, das verarbeitende CGI-Script gibt lediglich die eingelesenen Daten aus.

+ + + diff -r 109f9cc18906 -r bc8a3d815645 bin/recieve_a.test --- /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 diff -r 109f9cc18906 -r bc8a3d815645 bin/recieve_n --- /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 diff -r 109f9cc18906 -r bc8a3d815645 bin/recieve_test --- /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 (' +CGI-Feedback

CGI-Feedback vom Programm recieve

'); +foreach (@schluessel){ +print OUT ('

Feldname: '.$schluessel[$x].' Inhalt: '.$values[$x].'
'); +$x++; +} +print OUT (''); +close OUT; diff -r 109f9cc18906 -r bc8a3d815645 bin/send_a.test --- /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); diff -r 109f9cc18906 -r bc8a3d815645 bin/send_n --- /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), "
"; + } + 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); diff -r 109f9cc18906 -r bc8a3d815645 bin/test --- /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