4 if [ "x$1" = "x-n" ]; then
5 diffonly=1; diffsparse=0; shift
6 elif [ "x$1" = "x-nq" ]; then
7 diffonly=1; diffsparse=1; shift
9 diffonly=0; diffsparse=-1
12 if [ $# != 0 ]; then echo >&2 "usage: ./${0##*/} [-n]"; exit 1; fi
16 if [ x"`whoami`" != x"$OURUSER" ]; then
17 echo >&2 "$0 must be run as $OURUSER, skipping"
21 # procmail insists on g-w
24 find -name '*.IN[O1]' ! -path '*/skeleton/*' -exec perl -e '
29 $d =~ s/\.IN([O1])$//;
30 my $overwrite= ($1 eq 'O');
32 open F, "< $f" or die "$f $!";
33 open G, "> $g" or die "$g $!";
34 stat F or die "$f $!";
35 my $mode= (stat F)[2];
38 exists($ENV{$1}) ? $ENV{$1} : die "$1 undef at $f:$.\n"
45 chmod 0755, $g or die "$g $!";
50 print "Would create $d\n";
51 } elsif ('$diffsparse' && !$overwrite) {
52 print "Not reporting on $d as would not overwrite.\n";
54 system "diff -u $d $g";
56 } elsif ($overwrite) {
57 rename $g, $d or die "$g $d $!";
62 die "$g $d $!" unless $!==&EEXIST;