#!/bin/sh
#
# tgz [destination [source...] ]
#
# Make a gzip'd tar archive $1 (or stdout) out of specified files
# (or, if not specified, from everything in the current directory)
#
# Requires gzip in the user's path.
#
# Requires gnu tar (or something close) in the user's path
# due to use of --exclude, --totals and -S.
#
# 1994/02/19	DCN	Created
# 1994/12/01	DCN	Cleanup and major improvements
#
# Copyright (C) 1994 David C. Niemi (niemi@tuxers.net)
# The author requires that any copies or derived works include this
# copyright notice; no other restrictions are placed on its use.
#

set -e
set -u

Error ()
{	echo "Error: $0: ${@-}." >&2
	exit 1
}

if [ $# = 0 ]; then
	dest=
	src=.
	tar cvf - . | gzip -9v
	exit 0
elif [ $# = 1 ]; then
	dest=$1
	src=.
else
	dest=$1
	shift
	src="${@-}"
fi

case $dest in
"" | . | .. | */ | */. | */.. )
	echo "Usage: $0: [destination [source...] ]" >&2
	exit 1
	;;
*.t?z | *.?z | *.z | *.Z | *.tz | *.tz? )
	;;
*)
	dest=${dest}.tgz	## Add on .tgz as default suffix
esac

if [ -h "$dest" ]; then
	Error "Destination file \"$dest\" already exists as a symbolic link"
elif [ -f "$dest" ]; then
	Error "Destination \"$dest\" already exists as a file"
elif [ -d "$dest" ]; then
	Error "Destination \"$dest\" already exists as a directory"
fi
if [ -z "$dest" -o "X$dest" = 'X-' ]; then
	echo "Writing gzipp'd tar archive to standard output." >&2
	tar cvfS - -- $src | gzip -9v
else
	echo "Writing gzip'd tar archive to \"$dest\"." >&2
	tar -cvS --totals --exclude "$dest" -f - -- $src | gzip -9v > "$dest" 
	ls -l "$dest" >&2
fi

exit 0