htdocs/cgi-bin/send
changeset 14 5a256b08fdc6
parent 11 bd470c2d0a0a
--- 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;