tools/find-outdated.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4 use lib 'tools';
   5 require 'utils.pl';
   6 use File::stat;
   7 use File::Spec;
   8 use File::Compare;
   9
  10 sub main {
  11     while (defined(my $rel = <>)) {
  12         chomp $rel;
  13         my $saved = rel2saved($rel);
  14         next if !-e $saved;
  15
  16         my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
  17
  18         my $current_st = stat($abs);
  19         my $saved_st   = stat($saved);
  20
  21         if ($current_st->mtime < $saved_st->mtime &&
  22               compare($abs, $saved) != 0) {
  23             print "U $rel\n";
  24         }
  25     }
  26 }
  27
  28 main();