diff -r 892a4fac1939 -r 2f11b54a69fe htdocs/cgi-bin/send_n --- a/htdocs/cgi-bin/send_n Tue Jan 29 15:36:24 2013 +0100 +++ b/htdocs/cgi-bin/send_n Tue Feb 05 08:05:54 2013 +0100 @@ -6,8 +6,14 @@ use CGI; use CGI::Carp qw(fatalsToBrowser); -my ( $cgi, $feld, $feld1, $feld2, $feld3, $url, $ua, $req ); -my $x = 0; +my ( + @feld, $uid, $cgi, $feld, $feld4, $feld1, $feld2, + $feld3, $get, $url, $ua, $ub, $req +); +my $x = 1; +$uid = `uuidgen`; +$uid =~ s/-//g; +chomp $uid; $cgi = new CGI; ####################### @@ -15,13 +21,30 @@ # des Web-Formulars # ####################### -$feld1 = $cgi->param('Firma'); # FIXME: mueller & meier +$feld1 = $cgi->param('Firma'); # FIXED $feld2 = $cgi->param('Name'); $feld3 = $cgi->param('Test'); - -#open( TEST, ">test" ) or die "Kann Handle nicht oeffnen!\n$!"; -#print TEST ("$feld1 ;:; $feld2 ;:; $feld3"); -#close TEST; +$feld4 = $cgi->param('req'); +$feld1 =~ s/\&/\<26\>/g; +$feld1 =~ s/\=/\<3D\>/g; +$feld1 =~ s/\%/\<25\>/g; +$feld1 =~ s/\+/\<2B\>/g; +$feld2 =~ s/\&/\<26\>/g; +$feld2 =~ s/\=/\<3D\>/g; +$feld2 =~ s/\%/\<25\>/g; +$feld2 =~ s/\+/\<2B\>/g; +$feld3 =~ s/\&/\<26\>/g; +$feld3 =~ s/\=/\<3D\>/g; +$feld3 =~ s/\%/\<25\>/g; +$feld3 =~ s/\+/\<2B\>/g; +$feld4 =~ s/\&/\<26\>/g; +$feld4 =~ s/\=/\<3D\>/g; +$feld4 =~ s/\%/\<25\>/g; +$feld4 =~ s/\+/\<2B\>/g; +$feld4 =~ s/\r\n/\n/g; +open( TEST, ">test" ) or die "Kann Handle nicht oeffnen!\n$!"; +print TEST ("$feld1 ;:; $feld2 ;:; $feld3 ;:; $feld4"); +close TEST; my @Feldnamen = $cgi->param(); ####################### @@ -32,12 +55,54 @@ $url = 'http://192.168.0.144/cgi-bin/receive'; $ua = LWP::UserAgent->new; $ua->env_proxy; -$ua->timeout(10); +$ua->timeout(20); +$ua->show_progress; $req = HTTP::Request->new( "POST", $url ); $req->header( 'Content-Type' => 'text/html' ); -$req->content("Name=$feld1&Mail=$feld2&Test=$feld3"); +$req->accept_decodable; +$req->content("ID=$uid&Name=$feld1&Mail=$feld2&Test=$feld3&req=$feld4"); $ua->request($req); +open( HTML1, ">/var/www/$uid" . "1.html" ); +print HTML1 ( +'
Klicken Sie bitte auf den Link um ihre Datei zu Downloaden oder anzuzeigen.
Zum Speichern des Inhaltes klicken Sie den Link mit der rechten Maustaste an und wählen "Ziel speichern unter..."
Ihr Download steht in kürze bereit!
Sie werden in 10 sekunden automatisch Weitergeleitet.
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte hier
Ihr Download steht in kürze bereit!
Sie werden in 10 sekunden automatisch Weitergeleitet.
Sollte die automatische Weiterleitung nicht funktionieren, klicken Sie bitte hier