diff options
Diffstat (limited to 'contrib/amd/m4/copy-if-newbig')
-rwxr-xr-x | contrib/amd/m4/copy-if-newbig | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/contrib/amd/m4/copy-if-newbig b/contrib/amd/m4/copy-if-newbig deleted file mode 100755 index 3438c52..0000000 --- a/contrib/amd/m4/copy-if-newbig +++ /dev/null @@ -1,29 +0,0 @@ -#!/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); |