# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1412601471 -7200
# Node ID aebcf858b3b03f47e1880748dfc6190e417c20cc
# Parent  27622a0a492e7c05e6cff85bb5f0f87de3ffbaa0
at job for file removal only when actually selected

diff -r 27622a0a492e -r aebcf858b3b0 upload.pl
--- a/upload.pl	Mon Oct 06 15:00:32 2014 +0200
+++ b/upload.pl	Mon Oct 06 15:17:51 2014 +0200
@@ -124,7 +124,7 @@
           or die "Can't create $dir/$filename: $!\n";
         print {$outfh} <$file>;
 
-        if (my $atfh = new IO::File("|at now + $days days")) {
+        if (not $delete ~~ [qw(d m)]  and my $atfh = new IO::File("|at now + $days days")) {
             print {$atfh}
               "rm -f \"$dir/$filename\"\n",
               "rmdir \"$dir\"\n";