#!/bin/bash -eu
#% mksite -- driver for mkhtml, cpio, autoftp, and telnet
VERSION='$Revision: 1.12 $'; copyleft () { cat <<COPYLEFT
 Copyright (C) 2003 by Richard L. Hawes under GPL v.2
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

              AVAILABILITY
Available at www.dma.org/~rhawes/l2h/tools/mksite
GPL Available at www.dma.org/~rhawes/site/COPYING
		REQUIRES
mkhtml at www.dma.org/~rhawes/l2h/tools/mkhtml
autoftp at www.dma.org/~rhawes/l2h/programs/autoftp
COPYLEFT
}
set_version () { eval "readonly $1=$3";}
set_version MKSITE_VERSION $VERSION
mksite_version () {
        echo "mksite $MKSITE_VERSION";
        copyleft
}


#defaults
#ARCHIVE=~/backup/pub-html.cpio.gz;
#DOMAIN="www.dma.org";
#TELNET_CMD="screen telnet -a -l rhawes www.dma.org"
#PUBLIC_HTML="~/public_html/rhawes"
FTP_LOG="mksite.log"
FTP_DIR="public_html";
CONFIG_FILE="$HOME/.mksite-init"

mksite_help () {
	cat <<-HELP
	mksite $OPT_SITE
	-a sends an archive by ftp
	-f sends individual files by ftp
	-H 'option list' calls mkhtml with those options

	transfers files newer then the modification date of $FTP_LOG
	HELP
}
ftp_arc() {
        echo "$1" | autoftp -p $DOMAIN .
}
find_new() {
	find *.css *.png *.shtml *.html $LIST -path '*/CVS*' -prune\
	-o "$@" -print 	
}
ftp_prog() { autoftp -p "$DOMAIN" "$FTP_DIR";}
cpio_prog() { cpio -ov -H crc | gzip -9 - >"$HOME/$ARCHIVE"; }
find_newer() {
	if [ -e "$FTP_LOG" ]; then
		find_new $2 -newer "$FTP_LOG" | $1 2>&1| tee "$TMP_FILE"
	else
		find_new $2 | $1 2>&1| tee "$TMP_FILE"
	fi
}
error () {
        echo "$1" >&2;
        [ -z "$TMP_FILE" ]||rm -f "$TMP_FILE"
        exit 1;
}
sig () {
        error "terminating on signal $1";
}
TMP_FILE=;
F_ARCH=;
F_TELN=;
LIST=;
O_MKHTML=;
F_FTP=;
OPT_SITE="aC:fH:L:tx";
trap 'sig ERR' ERR;
[ "$TMPDIR" ]||TMPDIR="/var/tmp";
if [ $# -eq 1 ]; then
        case $1 in
                --version)      mksite_version; exit 0;;
                --help)         mksite_help; exit 0;;
                *) ;;
        esac
fi
[ -r "$CONFIG_FILE" ]&&source "$CONFIG_FILE"
while getopts :$OPT_SITE OPTION; do
	case $OPTION in
	a)	F_ARCH=y;;
	C)	[ -r "$OPTARG" ]&&source "$OPTARG";;
	f)	F_FTP=y;;
	L)	LIST="$LIST $OPTARG";;
	H)	O_MKHTML="$OPTARG";;
	t)	F_TELN=y;;
	x)	set -x;;
        :)      error "option '-$OPTARG' missing an argument";;
        \?)     error "invalid option: -$OPTARG";;
	*)	error "internal error";;
	esac
done

TMP_FILE="$TMPDIR/mksite.$$"
hash mkhtml autoftp cpio|| { echo "check PATH=$PATH">&2; exit 1;}
if [ "$O_MKHTML" ]; then
	mkhtml $O_MKHTML;
fi
if [ "$F_ARCH" -o "$F_TELN" -o "$F_FTP" ];then
	eval $CONNECT
fi
if [ "$F_FTP" -o "$F_ARCH" ];then
	echo "press enter to ftp"
	read junk;
	cd "$PUBLIC_HTML"
        rm -fv "`find . -name 'core*'`"
	if [ "$F_ARCH" ];then
		find_newer cpio_prog ""
		cd;
		ftp_arc "$ARCHIVE" | tee -a "$TMP_FILE";
		cd -;
	else
		find_newer ftp_prog "-type f"
	fi
	echo "what to do with log (saving sets date time stamp)"
	select ACT in save view quit save_and_quit; do
		case $ACT in
			save) cp -v "$TMP_FILE" "$FTP_LOG";;
			view) less "$TMP_FILE";;
			quit) break;;
			save_and_quit)
				cp -v "$TMP_FILE" "$FTP_LOG";
				break;;
			*) ;;
		esac
	done
fi
if [ "$F_TELN" ];then
	eval $TELNET_CMD;
fi
if [ "$F_ARCH" -o "$F_TELN" -o "$F_FTP" ]&&[ "$DISCONNECT" ]; then
	eval $DISCONNECT
fi
rm -f "$TMP_FILE";