#!/bin/sh

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

# example:
# goto/dpi.inpe.br/banon/1995/08.25.00.00
# http://hermes.dpi.inpe.br:1905/col/dpi.inpe.br/banon/1995/08.08.00.00/doc/goto/dpi.inpe.br/banon/1995/08.25.00.00
# http://hermes.dpi.inpe.br:1905/from/dpi.inpe.br/banon/1995/08.08.00.00/to/dpi.inpe.br/banon/1995/08.25.00.00
# http://hermes.dpi.inpe.br:1905/cgi/from/home/banon/URLib/dpi.inpe.br/banon/1995/08.08.00.00/to/dpi.inpe.br/banon/1995/08.25.00.00
#
# PATH_INFO = /home/banon/URLib/dpi.inpe.br/banon/1995/08.08.00.00/to/dpi.inpe.br/banon/1995/08.25.00.00

pid=$$

col=../../../../..
serv=dpi.inpe.br/banon/1995/08.08.00.00
web=hermes.dpi.inpe.br

rp4=`echo $PATH_INFO | awk -F/ '{ print $NF }'`
rest=`echo $PATH_INFO | sed 's!/'$rp4'$!!'`
rp3=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$rp3'$!!'`
rp2=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$rp2'$!!'`
rp1=`echo $rest | awk -F/ '{ print $NF }'`

rest=`echo $rest | sed 's!/'$rp1'$!!'`
to=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$to'-*$!!'`
rpf4=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$rpf4'$!!'`
rpf3=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$rpf3'$!!'`
rpf2=`echo $rest | awk -F/ '{ print $NF }'`
rest=`echo $rest | sed 's!/'$rpf2'$!!'`
rpf1=`echo $rest | awk -F/ '{ print $NF }'`

hp=`echo $rest | sed 's!/'$rpf1'$!!'`
rp=$rp1/$rp2/$rp3/$rp4

cd $hp/col/$serv/not_sent/cgi

if test -z "`echo $to | egrep 'to-'`"
then
	./get $hp $rp
else
	./get- $hp $rp
fi