archie/release/B/scripts/rotate

133 lines
3.2 KiB
Plaintext
Raw Permalink Normal View History

2024-05-27 20:18:02 +02:00
#!/bin/sh
#
# Make backup copies of a specified file ( arg. 1 ). A second argument, <n>
# is optional and specifies that you want to keep <file>.0 through <file>.<n>
# as backups. If no number is given then the default, 6, will be used.
#
# - wheelan
#
# Heavily Modified by lucb for compression and presentation. Backwards
# compatible to Bill's version
#
usage () {
cat <<EOC
Usage: $0 [-v] [-d directory] [-c] [-n] file [number]
$0 makes backup copies of a specified file. A second argument,
\`number' is optional and specifies that you want to keep \`file.0'
through \`file.n' as backups. If no number is given then the default
\`9' will be used.
Compressed files [files ending in .Z or .gz] are checked for and moved
appropriately. In addition, if a compressed file is found, the newly
moved file will be compressed. The appropriate compression program is
used.
EOC
exit 2
}
#
# parse the command line arguments:
#
while [ $# -gt 1 ] ; do
case $1 in
-d) shift; directory=$1;;
-c) compression="y";;
-n) compression="n";;
-v) verbose="y" ;;
-x) set -x ;;
-h) usage;; # call the usage funtion
[a-zA-Z0-9]*) break;;
*) # Catch anything that doesn't match the
# previous flags
echo "Unknown option [$1]";
usage;;
esac
shift
done
if [ $# -lt 1 -o $# -gt 2 ] ; then
usage;
fi
if [ ! -f $1 ] ; then
echo "File $1 does not exist"
exit 1
fi
debug()
{
if [ x$verbose = xy ] ; then
echo "$1"
fi
}
index()
{
i=1;
while [ $i -le ${1:-$MIDX} ] ; do
echo -n "$i ";
i=`expr $i + 1`;
done
}
rindex()
{
i=${1:-$MIDX};
while [ $i -gt 0 ] ; do
echo -n "$i ";
i=`expr $i - 1`;
done
}
directory=${directory:-.}
if [ "${directory}" != "." ] ; then
if [ ! -d $directory ] ; then
echo "Can't find directory [$directory]"
exit 2
fi
fi
umask 000
compress=none
for n in `rindex ${2:-9}` ; do
src=${directory}/$1.`expr $n - 1`
dst=${directory}/$1.$n
if [ -d $src -o -f $src ] ; then
/bin/mv -f $src $dst && debug "/bin/mv -f $src $dst"
compress=none
elif [ -f $src.Z ] ; then
/bin/mv -f $src.Z $dst.Z && debug "/bin/mv -f $src.Z $dst.Z"
compress=compress
elif [ -f $src.gz ] ; then
/bin/mv -f $src.gz $dst.gz && debug "/bin/mv -f $src.gz $dst.gz"
compress=gzip
fi
done
# A copy would keep the file permissions the same, but will fill in "holes"
# in the file.
dst=$directory/$1.0
perm=`perl -e '$mode=((stat("'$1'"))[2] & 07777); printf ("%o\n", $mode)'`
mv $1 $dst && debug "mv $1 $dst"
cat /dev/null > $1
chmod $perm $1 && debug "chmod $perm $1"
if [ x${compression:-} = xn ] ; then
debug "No compression requested";
elif [ x${compression:-} = xy ] ; then
gzip $dst && debug "gzip $dst (explicitely)" ;
else
case "$compress" in
"none")
debug "No compression";;
"compress")
compress $dst && debug "compress $dst" ;;
"gzip")
gzip $dst && debug "gzip $dst" ;;
esac
fi