Source
xxxxxxxxxx
echo "<font size=2 face=helvetica color=\"#cc0f0f\"><a href=\"../../docs/newsletters/index.html\"><img src=\"../../docs/gif/tri2.gif\" border=0> <b>Latest News</a></font></b><P>"
#-----------------------------------------------------------------------------
# scanhtml: Produce an HTML index of an AIPS++ mail folder.
#-----------------------------------------------------------------------------
# Copyright (C) 1995-1997,1999,2002
# Associated Universities, Inc. Washington DC, USA.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# Correspondence concerning AIPS++ should be addressed as follows:
# Internet email: aips2-request@nrao.edu.
# Postal address: AIPS++ Project Office
# National Radio Astronomy Observatory
# 520 Edgemont Road
# Charlottesville, VA 22903-2475 USA
#
#-----------------------------------------------------------------------------
# Usage: scanhtml [<folder>]"
#-----------------------------------------------------------------------------
# scanhtml produces a 'scan' listing of an AIPS++ MH email archive folder and
# converts it to an HTML index with links to the individual messages. The
# folder name defaults to "general".
#
# Options:
# none
#
# Original: 1995/07/18 by Mark Calabretta, ATNF
# $Id$
#-----------------------------------------------------------------------------
# Directory definitions.
MHBIN=/opt/local/mh/bin
AIPSMAIL=$HOME/Mail
MSTRETCD=$HOME/master/etc
# Parse the folder name.
if [ $# -gt 0 ]
then
FOLDER=$1
else
FOLDER="general"
fi
# The first step in producing an updated folder index is to redirect stdout.
cp /dev/null $AIPSMAIL/"$FOLDER"/index.html
chmod 664 $AIPSMAIL/"$FOLDER"/index.html
exec 1>$AIPSMAIL/"$FOLDER"/index.html 2>&1
# Write the HTML header.
echo "<HTML>"
echo "<HEAD>"
echo "<TITLE>AIPS++ $FOLDER email archive</TITLE>"
echo "<SCRIPT LANGUAGE = \"JavaScript1.2\" src=\"../../docs/javascripts/menu.js\"></script>"
echo "<SCRIPT LANGUAGE = \"JavaScript1.2\" src=\"../../docs/javascripts/aipsmenu.js\"></script>"
echo "<SCRIPT LANGUAGE = \"JavaScript1.2\">"
echo "<!--"
echo "// Function need to place directory relative to docs tree."
echo "aMenu = new aipsMenu(\".\", \"#00009C\");"
echo "function onLoad() {"
echo "if (document.layers) {"
echo "aMenu.loadMenus();"
echo "}"
echo "}"
echo "//-->"
echo "</SCRIPT>"
echo "</HEAD>"
echo ""
echo "<BODY background=\"../../docs/gif/watermark.gif\" bgcolor=\"#ffffff\" text=\"#000000\" link=\"#cc0f0f\" vlink=\"#00009c\">"
echo "<table bgcolor=\"#000099\" cellpadding=4 cellspacing=0 border=0 width=600 height=25>"
echo "<tr><td>"
echo "<a href=\"../../docs/gettingstarted.html\" onMouseOver=\"aMenu.showAipsMenu('gsMenu')\">"
echo "<font size=2 face=helvetica color=\"#ffffff\">"
echo "<b>Getting Started</b></a></td>"
echo "<td>"
echo "<a href=\"../../docs/user/documentation.html\" onMouseOver=\"aMenu.showAipsMenu('userMenu')\">"
echo "<font size=2 face=helvetica color=\"#ffffff\">"
echo "<b>Documentation</a></b></a></td>"
echo "<td>"
echo "<a href=\"../../docs/glish/glish.html\" onMouseOver=\"aMenu.showAipsMenu('glishMenu')\">"