#!/bin/sh

# Copyright for the Uniform Repository Service (c) 1995, 1996, 1997,
# by Gerald Banon. All rights reserved.
# Version 1.1
# setindicator

# set the out-of-date indicator in the index.html and mirror.html files

pid=$$

na=$#
a1=$1

umask 2

case $na in
0) 	set `echo no`; a1=$1;;
*)	;;
esac

set `echo ../../../../..`; col=$1

mkdir .t$pid

if test -f .setenv/index_path
then
	if test -f $col/`cat .setenv/index_path`/not_sent/index.html
	then

		cat \
$col/`cat .setenv/index_path`/not_sent/index.html | \
grep '^   <BR>' >.t$pid/ax
		if test -s .t$pid/ax
		then
			cat \
$col/`cat .setenv/index_path`/not_sent/index.html | \
sed 's/^   <BR>/<BR>(out-of-date)<BR>/' >.t$pid/ax
			cat \
.t$pid/ax >$col/`cat .setenv/index_path`/not_sent/index.html
		fi
	fi
fi

if test -f ../$col/index.html
then
	cat \
../$col/index.html | grep '^   <BR>' >.t$pid/ax
	if test -s .t$pid/ax
	then
		cat ../$col/index.html | \
sed 's/^   <BR>/<BR>(out-of-date)<BR>/' >.t$pid/ax
		cat .t$pid/ax >../$col/index.html
	fi
fi

if test -f .setenv/mirror_path
then
	if test -f $col/`cat .setenv/mirror_path`/doc/mirror.html
	then
		cat \
$col/`cat .setenv/mirror_path`/doc/mirror.html | grep '^   <BR>' >.t$pid/ax
		if test -s .t$pid/ax
		then
			cat \
$col/`cat .setenv/mirror_path`/doc/mirror.html | \
sed 's/^   <BR>/<BR>(out-of-date)<BR>/' >.t$pid/ax
			cat \
.t$pid/ax >$col/`cat .setenv/mirror_path`/doc/mirror.html
		fi
	fi
fi

if test ! $a1 = -
then
	echo index and mirror outdated
	echo ""
fi
echo index.bib and index.html outdated >out-of-date
echo "" >>out-of-date
echo Update the index by executing the update_index command. >>out-of-date

rm -r .t$pid