--- 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/\<n\>/g;
}
$requ=join(" ",@req);
-open (OUT,">req");
-print OUT "@req";
-close OUT;
-open (IN,"<req");
-my @req2=<IN>;
-close IN;
+#open (OUT,">req");
+#print OUT "@req";
+#close OUT;
+#open (IN,"<req");
+#my @req2=<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 ("<!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\">
@@ -207,18 +206,18 @@
}
-#foreach my $file (@files) {
-# if (time() - (stat $file)[9] > 300) {
-# unlink $file;
-# }
-# if (-M $file > 3/(24*36)) {
-# unlink $file;
-# }
-#}
+foreach my $file (@files) {
+ if (time() - (stat $file)[9] > 300) {
+ unlink $file;
+ }
+ if (-M $file > 3/(24*36)) {
+ unlink $file;
+ }
+}
-#open( WRITE, "|sudo at now + 5 minutes" ) or die;
-#print WRITE "rm /var/www/$uid*\n";
-#print WRITE "rm /var/www/download/$uid*\n";
-#close WRITE;
+open( WRITE, "|sudo at now + 5 minutes" ) or die;
+print WRITE "rm /var/www/$uid*\n";
+print WRITE "rm /var/www/download/$uid*\n";
+close WRITE;