: scan mailbox of www announcements and make an HTML page of them
m=${1:-$HOME/doc/www.sites}
other=${2:-older.www.sites.html}
(
if [ $m = $HOME/doc/www.sites ]
then
echo "Recently Announced WWW Sites "`date`""
[ -r standard.include.html ] && cat standard.include.html
echo "
This is a directory to some recent postings on the "
echo ''
echo "comp.infosystems.www.announce"
echo ""
echo " newsgroup( Charter ) and other newsgroups"
echo "that mention "http" pages."
echo "Do not send announcements to me but to the moderator for comp.infosystems.www.announce. See the FAQ"
echo "The announcements themselves are archived in a large ASCII mailbox."
echo 'See also '
echo "M. L. Grant's most recent picks from c.i.w.announce, "
echo 'and our directory of other links ('$other'),'
echo 'and,'
cat /u/faculty/dick/www.ann.html
echo "and the the NCSA What's New at O'Reilly & Associates GNN."
echo '
Web Site of the Week 30th of April 1995
'
else
echo "
Some Announced WWW Sites: $m "
[ -r standard.include.html ] && cat standard.include.html
echo "Do not send announcements to me but to the moderator for comp.infosystems.www.announce. "
echo "See our directory of recently announced sites, "
echo 'and this page ('$other').'
fi
echo "
"
echo ""
egrep '^Subject: |^Date:|http://' $m |
fgrep -v '
http://www.medio.net/users/grant/charter.html'|
awk 'BEGIN{printed=1}
/^Subject: /{subject=substr($0,10); printed=0}
/^Date: /{date=substr($0,7,11);}
/http:/{if(printed!=1){printf("%s(%s)\t%s\n", subject, date, $0);printed=1}; }'|
sed 's/^(fwd)//
s/^Re://
s/^[ ]*//
/URL/s/URL[ ]*:[ ]*//
s/ [^ ]*http:\/\// /
s/<">/">/'|
sort |
sed 's/^\([^ ]*\) [^<]*\(<.*>\)\(.*\)$/\2\1<\/A>/
s/\(([^)(]*)\)<\/A>$/<\/A>
\1/'
echo "
"
echo "This is one of Doc Dick's docs in the House of ASCII."
echo ""
) >$m.html