#!/bin/tcsh -f
# build a summary of the Dhamma Transcription Project

set me=$0:t             		# the name of this program
set tag="_DTP_PROGRESS_TAG_"  	# what this script greps for

# Abort if the required env variables aren't set 
if (! ${?HTML_DIR}) then
	echo ${me}: HTML_DIR environment variable not set\!
	exit
endif

set theFile = $HTML_DIR/tech/scribe.html
set tmpDir = ~/tmp
set theTmp = $tmpDir/${me}.tmp
set theResult = $tmpDir/${me}.result

ed << END_INPUT $theFile >& /dev/null
1,/name="seekscribe"/d
/<hr \/>/,\$d
w $theTmp
Q
END_INPUT
set n_seekscribe=`grep $tag $theTmp | wc -l`

ed << END_INPUT $theFile >& /dev/null
1,/name="consider"/d
/<hr \/>/,\$d
w $theTmp
Q
END_INPUT
set n_consider=`grep $tag $theTmp | wc -l`

ed << END_INPUT $theFile >& /dev/null
1,/name="scribing"/d
/<hr \/>/,\$d
w $theTmp
Q
END_INPUT
set n_scribing=`grep $tag $theTmp | wc -l`

ed << END_INPUT $theFile >& /dev/null
1,/name="formatting"/d
/<hr \/>/,\$d
w $theTmp
Q
END_INPUT
set n_formatting=`grep $tag $theTmp | wc -l`

ed << END_INPUT $theFile >& /dev/null
1,/name="released"/d
/<hr \/>/,\$d
w $theTmp
Q
END_INPUT
set n_released=`grep $tag $theTmp | wc -l`

cat << END_INPUT > $theTmp
<table class="shaded" align="center" cellpadding="5" style="font-size:small">
<tr><td align="center" colspan="2"><b>Project status<br />as of <!--_REV_DATE_START_-->today<!--_REV_DATE_END_--></b></td></tr>
<tr><td align="right">Books <a href="#consider">under consideration</a>:</td><td>$n_consider</td></tr>
<tr><td align="right">Books <a href="#seekscribe">in need of transcribers</a>:</td><td>$n_seekscribe</td></tr>
<tr><td align="right">Books <a href="#scribing">being transcribed</a>:</td><td>$n_scribing</td></tr>
<tr><td align="right">Books <a href="#formatting">being formatted</a>:</td><td>$n_formatting</td></tr>
<tr><td align="right"><a href="#released">Released</a> since May 2005:</td><td>$n_released</td></tr>
</table>
END_INPUT


ed << END_INPUT $theFile >& /dev/null
/<span class="hide">%dtp-progress START%<\/span>/,/<span class="hide">%dtp-progress END%<\/span>/d
i
<span class="hide">%dtp-progress START%</span>
<!-- This summary data inserted automagically by ${me} -->
.
.r $theTmp
a
<span class="hide">%dtp-progress END%</span>
.
wq
END_INPUT

cat << END_INPUT
Dhamma Transcription Project Summary:
          under consideration: $n_consider
         seeking transcribers: $n_seekscribe
            being transcribed: $n_scribing
              being formatted: $n_formatting
      released since May 2005: $n_released
Summary info added to file ${theFile}.
      
END_INPUT
/bin/rm $tmpDir/${me}.*