tools/find-changed.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     my $found_updated;
  12
  13     while (defined(my $rel = <>)) {
  14         chomp $rel;
  15         my $saved = rel2saved($rel);
  16         next if !-e $saved;
  17
  18         my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
  19
  20         my $current_st = stat($abs);
  21         my $saved_st   = stat($saved);
  22
  23         if ($current_st->mtime > $saved_st->mtime &&
  24               compare($abs, $saved) != 0) {
  25             print "M $rel\n";
  26         }
  27     }
  28
  29     if ($found_updated) {
  30         exit 1;
  31     }
  32 }
  33
  34 main();