#! /bin/sh

#

# NAME

#     mirror -- update web page with a libxml-perl release

#

# SYNOPSIS

usage="mirror RELEASE DESTDIR"

#

# DESCRIPTION

#     `mirror' creates a web mirror using a libxml-perl release tar

#     file.

#

#     `mirror' pulls files from the tar file to create the web page.

#     `mirror' searches HTML files for the string @VERSION@ and

#     replaces it with RELEASE.  `mirror' searches for all *.pm and

#     *.pod files and converts them to HTML.  It also copies a few

#     hardcoded files.

#

#     `mirror' installs the web pages in DESTDIR.

#

#     CAUTION: `mirror' removes the contents of DESTDIR before

#     copying files to it.

#

# AUTHOR

#     Ken MacLeod

#

# $Id: mirror.sh,v 1.2 2000/02/22 21:02:56 kmacleod Exp $

#

PWD_CMD="/bin/pwd"

SED="sed"

TR="/usr/bin/tr"

if [ $# != 2 ]; then

  echo "usage: $usage"

  exit 1

fi

RELEASE="$1"

DESTDIR="$2"

set -e

set -x

rm -rf $DESTDIR

mkdir -p $DESTDIR

cp libxml-perl-${RELEASE}.tar.gz $DESTDIR

cd $DESTDIR

tar xzvf libxml-perl-${RELEASE}.tar.gz

for ii in libxml-perl-${RELEASE}/doc/*.html; do

  $SED <$ii >`basename $ii` \

    -e "s/@VERSION@/$RELEASE/g"

done

for ii in `cd libxml-perl-${RELEASE}/doc; echo *.pod`; do

    pod2html libxml-perl-${RELEASE}/doc/$ii >`basename $ii .pod`.html

done

for ii in `cd libxml-perl-${RELEASE}/lib; echo */*.pm */*/*.pm`; do

    dstfile=`echo $ii | sed -e 's|/|::|g'`

    pod2html libxml-perl-${RELEASE}/lib/$ii >`basename $dstfile .pm`.html

done

mv libxml-perl-${RELEASE}/README libxml-perl-${RELEASE}.readme

mv libxml-perl-${RELEASE}/doc/modules.xml .

rm -rf libxml-perl-${RELEASE} pod2html-dircache pod2html-itemcache