# HG changeset patch # User eric.schmalfuss # Date 1359449290 -3600 # Node ID 4bc929b9563fdc8f51a95985eb8dc5010269689f # Parent bc8a3d815645df0f51efe6d26267ff77c134c344 Renamed diff -r bc8a3d815645 -r 4bc929b9563f bin/receive_a.test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/receive_a.test Tue Jan 29 09:48:10 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 bc8a3d815645 -r 4bc929b9563f bin/receive_n --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/receive_n Tue Jan 29 09:48:10 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 bc8a3d815645 -r 4bc929b9563f bin/receive_test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/receive_test Tue Jan 29 09:48:10 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 bc8a3d815645 -r 4bc929b9563f bin/recieve_a.test --- a/bin/recieve_a.test Mon Jan 28 14:29:25 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,20 +0,0 @@ -#!/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 bc8a3d815645 -r 4bc929b9563f bin/recieve_n --- a/bin/recieve_n Mon Jan 28 14:29:25 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,28 +0,0 @@ -#!/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 bc8a3d815645 -r 4bc929b9563f bin/recieve_test --- a/bin/recieve_test Mon Jan 28 14:29:25 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,45 +0,0 @@ -#!/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;