# HG changeset patch
# User Meredith Howard <mhoward@roomag.org>
# Date 1484708105 18000
# Node ID eeafc178ddc41449bb16c2aac7dbcf34909789f3
# Parent  0938f35f78f963d7e564f28813c032bfb6709bed
add -f for only plain files

diff --git a/bin/archive-dir b/bin/archive-dir
--- a/bin/archive-dir
+++ b/bin/archive-dir
@@ -19,7 +19,8 @@ sub main {
       }
     ],
     ['age|a=i' => "minimum age in days for archival", {default => 60}],
-    ['yes|y'   => "actually move files"],
+    ['files|f' => "operate on plain files only"],
+    ['yes|y'   => "actually move stuff"],
     ['help|h'  => "print usage message and exit", {shortcircuit => 1}],
   );
   print($usage->text), exit if $opt->help;
@@ -37,7 +38,10 @@ sub archive_dir {
   my $age     = $opt->age * 24 * 60 * 60;
 
   for my $child ($dir->children) {
-    next if $child->is_dir && ($child eq $destdir || $child =~ /^(?:\d{4}|\d\d)$/);
+    next if $child->is_dir && (
+      $opt->files || $child eq $destdir || $child =~ /^(?:\d{4}|\d\d)$/
+    );
+    next if $opt->files && $child->basename =~ /^\./;
 
     my $mtime = $child->stat->mtime;
     next unless ($nowish - $mtime) >= $age;