equal
deleted
inserted
replaced
33 my @req =$cgi->param("req"); |
33 my @req =$cgi->param("req"); |
34 foreach (@req){ |
34 foreach (@req){ |
35 s/\r\n/\<n\>/g; |
35 s/\r\n/\<n\>/g; |
36 } |
36 } |
37 $requ=join(" ",@req); |
37 $requ=join(" ",@req); |
38 open (OUT,">req"); |
38 #open (OUT,">req"); |
39 print OUT "@req"; |
39 #print OUT "@req"; |
40 close OUT; |
40 #close OUT; |
41 open (IN,"<req"); |
41 #open (IN,"<req"); |
42 my @req2=<IN>; |
42 #my @req2=<IN>; |
43 close IN; |
43 #close IN; |
44 my (%error, $ffarbe, $ofarbe, $mfarbe, $rfarbe); |
44 my (%error, $ffarbe, $ofarbe, $mfarbe, $rfarbe); |
45 if ($cgi->param("firma") eq ''){ |
45 if ($cgi->param("firma") eq ''){ |
46 $error{firma} = "missing company"; |
46 $error{firma} = "missing company"; |
47 $ffarbe='red'; |
47 $ffarbe='red'; |
48 } |
48 } |
109 s/\=/\<3D\>/g; |
109 s/\=/\<3D\>/g; |
110 s/\%/\<25\>/g; |
110 s/\%/\<25\>/g; |
111 s/\+/\<2B\>/g; |
111 s/\+/\<2B\>/g; |
112 s/\r\n/\n/g; |
112 s/\r\n/\n/g; |
113 } |
113 } |
114 my $test='test'; |
114 #my $test='test'; |
115 open( TEST,"> $test" ) or die "Kann $test nicht öffnen: $!\n"; |
115 #open( TEST,"> $test" ) or die "Kann $test nicht öffnen: $!\n"; |
116 foreach (sort keys %field) { |
116 #foreach (sort keys %field) { |
117 print TEST "$_: $field{$_}\n"; |
117 # print TEST "$_: $field{$_}\n"; |
118 } |
118 #} |
119 print TEST "@req\n"; |
119 #print TEST "@req\n"; |
120 print TEST " .:. @req2\n"; |
120 #print TEST " .:. @req2\n"; |
121 close TEST; |
121 #close TEST; |
122 my @Feldnamen = $cgi->param(); |
122 #my @Feldnamen = $cgi->param(); |
123 |
123 |
124 ####################### |
124 ####################### |
125 # Senden der Daten # |
125 # Senden der Daten # |
126 # via HTTP-POST # |
126 # via HTTP-POST # |
127 ####################### |
127 ####################### |
144 exit 0; |
144 exit 0; |
145 |
145 |
146 unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*"); |
146 unlink grep { -M > 3/(24*36) } glob("/var/www/tmp/*"); |
147 |
147 |
148 __END__ |
148 __END__ |
149 # Test |
|
150 |
149 |
151 open( HTML, ">/var/www/tmp/$uid.html") or die "$!\n"; |
150 open( HTML, ">/var/www/tmp/$uid.html") or die "$!\n"; |
152 print HTML ("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\"><html><head><title>Download</title><meta http_equiv=\"refresh\" content=\"10;URL=http://192.168.0.138/tmp/". $uid . "1.html\"></head><script type=\"text/javascript\"> |
151 print HTML ("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\"><html><head><title>Download</title><meta http_equiv=\"refresh\" content=\"10;URL=http://192.168.0.138/tmp/". $uid . "1.html\"></head><script type=\"text/javascript\"> |
153 <!-- |
152 <!-- |
154 var homepage = 'http://192.168.0.138/tmp/" . $uid . "1.html'; |
153 var homepage = 'http://192.168.0.138/tmp/" . $uid . "1.html'; |
205 else { |
204 else { |
206 $min += 5; |
205 $min += 5; |
207 } |
206 } |
208 |
207 |
209 |
208 |
210 #foreach my $file (@files) { |
209 foreach my $file (@files) { |
211 # if (time() - (stat $file)[9] > 300) { |
210 if (time() - (stat $file)[9] > 300) { |
212 # unlink $file; |
211 unlink $file; |
213 # } |
212 } |
214 # if (-M $file > 3/(24*36)) { |
213 if (-M $file > 3/(24*36)) { |
215 # unlink $file; |
214 unlink $file; |
216 # } |
215 } |
217 #} |
216 } |
218 |
217 |
219 #open( WRITE, "|sudo at now + 5 minutes" ) or die; |
218 open( WRITE, "|sudo at now + 5 minutes" ) or die; |
220 #print WRITE "rm /var/www/$uid*\n"; |
219 print WRITE "rm /var/www/$uid*\n"; |
221 #print WRITE "rm /var/www/download/$uid*\n"; |
220 print WRITE "rm /var/www/download/$uid*\n"; |
222 #close WRITE; |
221 close WRITE; |
223 |
222 |
224 |
223 |