# HG changeset patch # User Eric Schmalfuß (prakti) # Date 1360943256 -3600 # Node ID 5a256b08fdc65f09b9d78837f0f8540ec31bddb6 # Parent 2d60fada033ed629af74ddf7dbe699a0275c53a3 kleine änderungen diff -r 2d60fada033e -r 5a256b08fdc6 htdocs/cgi-bin/receive_a.test --- a/htdocs/cgi-bin/receive_a.test Mon Feb 11 09:37:04 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,21 +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 2d60fada033e -r 5a256b08fdc6 htdocs/cgi-bin/receive_n --- a/htdocs/cgi-bin/receive_n Mon Feb 11 09:37:04 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,33 +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 2d60fada033e -r 5a256b08fdc6 htdocs/cgi-bin/receive_test --- a/htdocs/cgi-bin/receive_test Mon Feb 11 09:37:04 2013 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,55 +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'} ); -print $Daten; -&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; - -# Folgend Test-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 2d60fada033e -r 5a256b08fdc6 htdocs/cgi-bin/send --- a/htdocs/cgi-bin/send Mon Feb 11 09:37:04 2013 +0100 +++ b/htdocs/cgi-bin/send Fri Feb 15 16:47:36 2013 +0100 @@ -35,12 +35,12 @@ s/\r\n/\/g; } $requ=join(" ",@req); -open (OUT,">req"); -print OUT "@req"; -close OUT; -open (IN,"; -close IN; +#open (OUT,">req"); +#print OUT "@req"; +#close OUT; +#open (IN,"; +#close IN; my (%error, $ffarbe, $ofarbe, $mfarbe, $rfarbe); if ($cgi->param("firma") eq ''){ $error{firma} = "missing company"; @@ -111,15 +111,15 @@ s/\+/\<2B\>/g; s/\r\n/\n/g; } -my $test='test'; -open( TEST,"> $test" ) or die "Kann $test nicht öffnen: $!\n"; -foreach (sort keys %field) { - print TEST "$_: $field{$_}\n"; -} -print TEST "@req\n"; -print TEST " .:. @req2\n"; -close TEST; -my @Feldnamen = $cgi->param(); +#my $test='test'; +#open( TEST,"> $test" ) or die "Kann $test nicht öffnen: $!\n"; +#foreach (sort keys %field) { +# print TEST "$_: $field{$_}\n"; +#} +#print TEST "@req\n"; +#print TEST " .:. @req2\n"; +#close TEST; +#my @Feldnamen = $cgi->param(); ####################### # Senden der Daten # @@ -146,7 +146,6 @@ unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*"); __END__ -# Test open( HTML, ">/var/www/tmp/$uid.html") or die "$!\n"; print HTML ("Download