Mercurial Mercurial > hg > ius > caca / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed
authoreric.schmalfuss <eric.schmalfuss@schlittermann.de>
Tue, 29 Jan 2013 09:48:10 +0100
changeset 4 4bc929b9563f
parent 3 bc8a3d815645
child 5 0ed8b6a9da49
Renamed
bin/receive_a.test file | annotate | diff | comparison | revisions
bin/receive_n file | annotate | diff | comparison | revisions
bin/receive_test file | annotate | diff | comparison | revisions
bin/recieve_a.test file | annotate | diff | comparison | revisions
bin/recieve_n file | annotate | diff | comparison | revisions
bin/recieve_test file | annotate | diff | comparison | revisions 
--- /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
--- /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
--- /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 ('<!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;
--- 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
--- 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
--- 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 ('<!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;
ius/caca