###		messages INDEX
## generate an index database from a unix mailx format mail folder 

if ! test -n "$1"
then
	clear
        echo  "
	index - email schema: generate or update tables from basis data



	USAGE:      index mailx_folder

	"
exit
fi


SOURCEFILE=$1

collate_messages () {
while read one two junk
do
        if test $two
        then
                read second_one
                read third_one
        echo -e $C "\t"  $two "\t" $one "\t" $second_one "\t" $third_one
                let C=$C+1
        fi
done
}

Fromsloop () {
while read LINE 
do
	dec2hex  $LINE
	echo -e $SOURCEFILE "\t"
done
}

subjectloop () {
while read LINE junk
do
	echo 
	dec2hex  $LINE
done
}

nullinesloop () {
while read LINE junk
do
        dec2hex  $LINE
	echo
done
}


scan -b "^From .*[0-90-90-90-9]" $1 |\
		  /.bi/cut -d ":" -f 1 | Fromsloop >  ~/.pipe &

scan -b "^Subject: " $1 | subjectloop > ~/.pipe &

scan -b "^$" $1 | /.bi/cut -d ":" -f 1 | nullinesloop  > ~/.pipe &


get ~/.pipe |\
{
let C=0
while read one two three junk
do
        if test $two
        then
                read second_one
                read third_one
        echo -e $C "\t"  $two "\t" $one "\t" $second_one "\t" $third_one
                let C=$C+1
        fi
done
} > messages






####################################################################
