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