#!/bin/sh
# -*- shell-script -*-
# $Id: revcp 750 2006-01-29 21:58:16Z too $

bcn=`basename "$0"`

usage () {
	test x"$1" = x || echo '***' $bcn: "$@" >&2
	cut -d : -f2- 1>&2 <<EOF
	:
	:Usage: $0 [-x] [-q] [-h] [--full-path] [[user@]host:]src [[user@]host:]dest-dir
	:
	: $bcn is a shell script wrapper that uses tar commands over
	: revsh connection to copy files over it.
	: Tar seemed the most portable and easiest to use alternatite;
	: while having some limitations (on some platforms) it usually
	: does the work ok -- along the usage described below.
	:
	: The usage deviates from other copy tools that destination file
	: name cannot be given (i.e. changed from source), just the directory
	: where files are to be copied (which must exist!). Enter "." if
	: files are to be copied in current directory (or home dir when copied
	: to remote system).
	:
	: Options:
	:  -x:          print the command line using revsh and tars to stdout
	:  -q:          do not print filenames when extracting to stdout
	:  -h:          do not copy symlinks; copy the files they point to
	: --full-path:
	:      by default when archiving source the directory path is stripped
	:      away (except last path component, being that file or directory).
	:      using this option the full source path is preserved.
	:
EOF
	exit 1
}

v=v h= showcmd= fullpath=
while
    case "$1" in
	-q) v=; true ;;
	-h) h=h; true ;;
	-x) showcmd=1; true ;;
	--full-path) fullpath=1; true ;;
	-*) usage $1: unknown option; ;;
	*) false ;;
	'') false ;;
    esac
do
    shift
done

test x"$1" = x && usage source missing
test x"$2" = x && usage destination missing
test x"$3" = x || usage too many arguments


srchost=`echo $1 | cut -d : -f1`
if test x"$srchost" = x"$1"
then
    srcpath=$srchost
    srchost=
else
    srcpath=`echo $1 | cut -d : -f2`
    test x"$srcpath" = x && usage source path missing after $srchost
fi

dsthost=`echo $2 | cut -d : -f1`
if test x"$dsthost" = x"$2"
then
    dstdir=$dsthost
    dsthost=
else
    dstdir=`echo $2 | cut -d : -f2`
    test x"$dstdir" = x && usage destination directory missing after $dsthost
fi


srccmd ()
{
    if test -n "$fullpath"
    then
	case $srcpath in
	    /*) sdir=/ ;;
	    *)  sdir=. ;;
	esac
	totar=$srcpath
    else
	sdir=`dirname "$srcpath"`
	totar=`basename "$srcpath"`
        : $sdir ::: $totar
    fi

    if test -n "$srchost"
    then
	$1 revsh "$srchost" "tar -C '$sdir' -c${h}f - '$totar'"
    else
	$1 tar -C "$sdir" -chf - "$totar"
    fi
}

dstcmd ()
{
    if test -n "$dsthost"
    then
	$1 revsh "$dsthost" "tar -C '$dstdir' -x${v}f -"
    else
	$1 tar -C "$dstdir" -x${v}f -
    fi
}


test -n "$showcmd" && {
	echo
	srccmd echo
	echo '  |'
	dstcmd echo
	echo
}


srccmd | dstcmd