freebsd-dev/contrib/amd/m4/copy-if-newbig
2003-09-02 15:27:38 +00:00

30 lines
774 B
Perl
Executable File

#!/usr/bin/perl -w
# copy a file if it is both newer and bigger in size
# if copying, first rename older file to .orig
$src = $ARGV[0];
$dst = $ARGV[1];
# dev,ino,mode,nlink,uid,gid,rdev,size,atime,mtime,ctime,blksize,blocks
@srcstat = stat($src);
@dststat = stat($dst);
$srcsize = $srcstat[7];
$srcmtime = $srcstat[9];
$dstsize = $dststat[7];
$dstmtime = $dststat[9];
# copy if src file is bigger and newer
if ($srcsize > $dstsize && $srcmtime > $dstmtime) {
print "mv -f $dst $dst.orig\n";
system("mv -f $dst $dst.orig");
print "cp -p $src $dst\n";
system("cp -p $src $dst");
die "cp command failed" if ($? != 0);
}
# make sure dst file has newer timestamp
if ($srcmtime > $dstmtime) {
print "touch $dst\n";
system("touch $dst");
}
exit(0);