Select Code to Download

my $Usage = "usage: volume root_dir subvol timeframe dateformat keep\n
+";
@ARGV == 6 or die $Usage;  # we need six arguments
...
  $date_format_arg,        # to comment
  $snaps_to_keep_arg,      # what they are about
) = @ARGV;

sub create_snapshot_name { 

...
      
  sprintf "day=%02d_%02d_%04d,time=%02d:%02d",@fields,$yr,$hr,$min;
}

This script should not be used by the end user.

exec "pod2man $0" if -t; # display manual page if invoked from termina
+l