#! /bin/sh

############################################################################
#              Copyright 1992 Digital Equipment Corporation
#                         All Rights Reserved
#
# Permission to use, copy, and modify this software and its documentation is
# hereby granted only under the following terms and conditions.  Both the
# above copyright notice and this permission notice must appear in all copies
# of the software, derivative works or modified versions, and any portions
# thereof, and both notices must appear in supporting documentation.
#
# Users of this software agree to the terms and conditions set forth herein,
# and hereby grant back to Digital a non-exclusive, unrestricted, royalty-
# free right and license under any changes, enhancements or extensions 
# made to the core functions of the software, including but not limited to 
# those affording compatibility with other hardware or software 
# environments, but excluding applications which incorporate this software.
# Users further agree to use their best efforts to return to Digital any
# such changes, enhancements or extensions that they make and inform Digital
# of noteworthy uses of this software.  Correspondence should be provided
# to Digital at:
#
#                       Director of Licensing
#                       Western Research Laboratory
#                       Digital Equipment Corporation
#                       100 Hamilton Avenue
#                       Palo Alto, California  94301
#
# This software may be distributed (but not offered for sale or transferred
# for compensation) to third parties, provided such third parties agree to
# abide by the terms and conditions of this notice.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL
# WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS.   IN NO EVENT SHALL DIGITAL EQUIPMENT
# CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
# DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
# PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE.
############################################################################

# sccsid = "@(#)index	@(#)index	2.0	Network Systems Lab 4/15/92"
#
# Author: Geoff Mulligan (mulligan@pa.dec.com)
#	Please send any modifications or comments to me.
#
# Original code from Brian Reid
#
# This program is called from scanqueue to send an index
#
# usage: index "destination/addr" "username/from" arg1 ... argn

TmpFile=/tmp/index.$$

trap "rm -f $TmpFile; exit" 0 1 2 3 15

Addr="$1"; shift
From="$1"; shift

cd $DIRECTORY/`setdir $Addr`

cat << end_message > $TmpFile
Subject: index, per your request
From: NSL tech report service <nsl-techreports>
In-reply-to: message from $From
To: $Addr

end_message

NotFirstFlag=false

for j in $* ;do
  Dir="$j"

  case $j in
    index) continue;;
    abstract) Dir="Abstracts";;
    abstracts) Dir="Abstracts";;
    ps) Dir="PS";;
    postscript) Dir="PS";;
    status) Dir="Status";;
    .) Dir=".";;
  esac

  case $Dir in
    .) DirName="top level"; Dir=..;;
    *) DirName=$Dir;;
  esac

  if $NotFirstFlag ;then
    echo "aaaaaa" | tr "a" "\012" >> $TmpFile
  fi

  NotFirstFlag=true;

  cat >> $TmpFile << halfmast
Index of $DirName from NSL tech report service (updated `ls -l $Dir/Index | sed "s/  */ /g" | cut -d' ' -f5-7`)
-----------------------------------------------------------------
halfmast

  if [ -f $Dir/Index ] ;then
    cat $Dir/Index >> $TmpFile
  else
    echo "Sorry, I don't have an index on file for \"$DirName\"" >> $TmpFile
    echo >> $TmpFile
  fi
done

/usr/lib/sendmail -ba "$Addr" < $TmpFile
echo "`$DATE`" index: $Addr"(`setdir $Addr`)" $*>> ${REQDIR}/out.log

