bin/recieve_n
changeset 4 4bc929b9563f
parent 3 bc8a3d815645
child 5 0ed8b6a9da49
--- 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