head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2001.02.04.16.28.12;	author alexis;	state Exp;
branches;
next	;


desc
@SUBJECT EXTRACTOR
@


1.1
log
@Initial revision
@
text
@#!MARKER_SHELL_CMD
#shpp include ../bldcfg/paths.shpp
PATH=/bin:/usr/bin:/sbin:/usr/sbin
PROGNAME=`basename $0`
RCS_ID='$Header: /home/ahuxley/dev/newstruct/lx/bin/RCS/lx.shpp,v 1.18 2000/05/31 10:54:57 ahuxley Exp ahuxley $'
VERSION_SCHEME=rcs

MAX_SUBS_PER_FILE=1
PUT_FILENAME_AT_START_OF_LINE=false
ORDER_NUMERICALLY=false

usage()
{
     echo "Usage: $PROGNAME [ -<num> ] <file> ..." >&2
     exit 1
}

main()
{
while [ "X$1" != X ]; do
    case "$1" in
        -n)       ORDER_NUMERICALLY=true ;;
        -[1-9]*)  MAX_SUBS_PER_FILE=`expr "$1" : '-\(.*\)'` ;;
        -*)       usage ;;
        *)        break ;;
    esac
    shift
done

[ "X$2" != X ] && PUT_FILENAME_AT_START_OF_LINE=true

if [ $ORDER_NUMERICALLY = false ]; then
    FILE_LIST="$*"
else
    FILE_LIST=`echo $* | xargs -n 1 | sort -n | xargs echo`
fi

for FILE in $FILE_LIST; do
    [ $PUT_FILENAME_AT_START_OF_LINE = true ] && necho "$FILE: "
    sed -n 's/^~*\(Subject: \)/\1/p' $FILE 
done
}

#shpp include ../lib/utils.sh.shpp
#shpp include ../lib/gep.sh.shpp
@