#!/bin/sh

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

pid=$$

set `echo ../../../../..`; col=$1
set `echo dpi.inpe.br/banon/1995/08.08.00.00`; serv=$1

mkdir .t$pid

# link
if test -f .setenv/library_location
then
#	echo '<A HREF="http://'`cat .setenv/library_location`\
#'/index.html">http://'`cat .setenv/library_location`'/index.html</A> - ' \
#>.t$pid/lk							# lk
	echo '<A HREF="http://'`cat .setenv/library_location`\
'">http://'`cat .setenv/library_location`'</A> - ' \
>.t$pid/lk							# lk
else
	echo "" >.t$pid/lk
fi

# user name
cat .setenv/index_path | \
awk -F/ '{ printf "%s at %s - \n", $2, $0 }' >.t$pid/un		# un

# home directory
cd ../$col
pwd | awk -F/ '{ printf "%s - \n", $NF }' \
>col/$serv/not_sent/.t$pid/hd					# hd
cd col/$serv/not_sent

# area of interest
if test -f .setenv/area_of_interest
then
	echo `cat .setenv/area_of_interest`' - ' >.t$pid/ai	# ai
else
	echo "" >.t$pid/ai
fi

# last change
cat Welcome.html | sed -n '/Last change: /p' | \
sed 's/^.*Last change: //' | sed 's/$/ - /' >.t$pid/lc		# lc

# maximum number of entries
cat library_service/update_index | \
sed -n '/# set/p' | sed -n '1p' | \
awk '{ print $2 }' | sed 's/;$//' | \
awk '{ print $1 + 5 }' >.t$pid/mn				# mn

cat >.t$pid/mail <<end_.t/mail

~s 1945 = URLib site change

> `cat .t$pid/un``cat .t$pid/lk``cat .t$pid/hd``cat .t$pid/ai``cat .t$pid/lc``cat .t$pid/mn`

end_.t/mail

mail=`../doc/setmail`
$mail banon@dpi.inpe.br <.t$pid/mail >.t$pid/mail2

rm -r .t$pid