#!/bin/bash

# sd2h - ScriptDirToHtml
# Makes an sdindex.html (which gets written over if it already exists!)
# with links for a directory of scripts.

# It is GNU software, and based on DirToHtml.  Please send us any
# customizations you have made so they can be incorporated in
# future releases.
# Have fun, Tomas IV., brunclik@mail.com, http://tom4.hyperlink.cz (DirToHtml)
# Rob Reid, http://www.drao.nrc.ca/~rreid/ (added script comment extraction)

## Version info
if [ "-v" = "${1}" -o "--version" = "${1}" ] 
then 
    cat <<!
sd2h v2.1d
ScriptDirToHTML, (G) Rob Reid 2007, based on
DirToHtml, (G) Tomas Brunclik 2001

Use under terms of GNU public licence.
!
    exit
fi

## Help
if [ "-h" = "${1}" -o "--help" = "${1}" ] 
then 
    cat <<!

Usage:	sd2h [["]<filemask>["]]
OR:	sd2h -h
OR:	sd2h -v

sd2h - ScriptDirToHtml (this instance invoked as ${0})
       Script to generate html indices of current directory.
       index.html: Sorted by last modification time.
       atoz.html:  Alphabetically sorted.

 -h, --help		Show this help screen
 -v, --version		Version info

!
    exit
fi

nargs=$#
scriptdir=$(basename $(pwd))
rm -f sdindex.html atoz.html ${scriptdir}.tar.gz

owd=$PWD
mkdir $scriptdir
cd $scriptdir
for (( i = 1; i <= nargs ; i++ )) ; do
    f=${!i}
    ln -s $owd/$f $(basename $f)
done
if [ -f ../COPYING ]; then
    ln -s $owd/COPYING COPYING
fi
cd -
tar chfz ${scriptdir}.tar.gz $scriptdir
rm -rf $scriptdir

makepage(){
    ## Set default values of variables
    sortord=$1
    shift
    fmask=$(ls -1 $@)
    page=atoz.html
    if [ "$sortord" = "time" ]; then
	page=sdindex.html
	fmask=`ls -1t $fmask`
    fi
    echo Files: $fmask

    # HTML header
    echo \<html\> > $page
    echo \<head\> >> $page
    echo \<title\>$scriptdir scripts\</title\> >> $page
    echo \<META name=\"generator\" content=\"ScriptDirToHtml 0.99c\"\> >> $page
    echo \</head\> >> $page
    echo \<body\> >> $page
    #echo \<H2\>List of Files\</H2\> >> $page
echo \<center\>\<H1\>$scriptdir scripts\</H1\>\</center\> >> $page
echo '<p align=justify>' >> $page
echo 'These scripts are available under the <a href="COPYING">GNU General Public License</a>.' >> $page
echo \</p\> >> $page
echo '<p align=justify>' >> $page
echo "Note that there is no warranty!  Although I have put some effort into making" >> $page
echo "them generally useful, they were mainly written to help with a task at hand." >> $page
echo "So they may not yet work for all cases, and you may have some fixing to do." >> $page
echo "Please send me any fixes or enhancements." >> $page
echo \</p\> >> $page
echo \<hr\> >> $page
echo \<p\>\<center\> >> $page
echo "<a href=\"${scriptdir}.tar.gz\">The whole shebang ($(ls -sh ${scriptdir}.tar.gz|sed 's/ .*//'))</a>" >> $page
echo \</p\> >> $page
echo \<hr\> >> $page
echo \<p\>\<center\> >> $page
if [ "$sortord" = "time" ]; then
    echo \<a href=\"atoz.html\"\>Sort alphabetically.\</a\>>> $page
else
    echo \<a href=\"sdindex.html\"\>Sort by last modification time.\</a\>>> $page
fi
echo \</center\>\<p\> >> $page
echo \<hr\> >> $page
echo \<p\> >> $page
#echo \<pre\> >> $page

echo \<table width=100% bgcolor=white cellpadding=4 rules=0 border=0\> >> $page

    # Link the files
    for i in $fmask ; do
	if [[ $i == $page ]] ; then        # No point listing the page
	    continue;                      # itself.
	fi

#    echo \<H2\>\<A HREF=\"${i}\"\>${i}\</A\>\</H2\> >> $page
#    echo \<font size=+2\>\<b\>\<A HREF=\"${i}\"\>${i}\</A\>\</b\>\</font\> \&nbsp\;\&nbsp\;\&nbsp\;\&nbsp\; "Last modified " `ls -o $i | awk '{printf "%s %s %s, %s bytes\n", $5, $6, $7, $4}'` \<br\> >> $page
	echo \<tr\> >> $page
	echo \<td\>\<font size=+2\>\<b\> >> $page
	echo \<A HREF=\"${i}\"\>${i}\</A\> >> $page
	echo \</b\>\</font\>\</td\> >> $page
	blmod=$(ls -o --full-time $i | sed 's/  */ /g' | cut -d ' ' -f 4-9)
	echo \<td bgcolor=\#ffcc33 fgcolor=\#ffffff\> >> $page
	echo Last modified ${blmod#* } >> $page
	echo \</td\> >> $page
	echo \<td align=right bgcolor=\#ffcc33 fgcolor=\#ffffff\> >> $page
	echo ${blmod%% *} bytes >> $page
	echo \</td\> >> $page
	echo \</tr\> >> $page

	echo \<tr\> >> $page
	echo \<td colspan=3\> >> $page

	bangcheck=`egrep '^#!' $i | cut -c 1-2`

    # Unfortunately this does not seem to work properly inside a loop.
    #    shopt -s extglob

	fext=${i#${i%.*}}          # Grab the extension.

	if [[ ${fext#.s} == "html" || ${fext%l} == ".htm" ]] ; then
	    grep \<title\> $i | sed 's%</*title>%%g' >> $page
	    echo \<P\> >> $page
	elif [[ $bangcheck == "#!" || $fext == ".py" ]] ; then
# Allows proportional fonts, but wrecks things that depend on
# monospace alignment.
#	echo \<P\>  >> $page
#	extractcomment < $i | sed 's/^$/<p>/;s/$/<br>/' >> $page
#	echo \<P\>  >> $page

	    # Preserves monospaced arrangement.
	    echo \<PRE\> >> $page
	    extractcomment < $i  >> $page
	    echo \</PRE\> >> $page
	else
	    file $i | sed "s/${i}: //" >> $page
	    echo \<P\> >> $page
	fi
	echo \<P\> >> $page
	echo \</td\> >> $page
	echo \</tr\> >> $page

    # Go back to regular filename expansion so $fmask will work as expected. 
    #    shopt -u extglob
    done

    # Close the HTML.
    echo \</table\> >> $page

    echo \<P\> >> $page
    echo \<HR\> >> $page
    echo \<center\> >> $page
echo Page generated by \<A href=\"http://www.drao.nrc.ca/~rreid/software/sd2h\"\>s2dh\</A\>, based on >> $page
echo \<A href=\"http://tom4.hyperlink.cz/software/linux.htm\#d2h\"\>DirToHtml\</A\>, GNU generator of html directory listings. >> $page
    echo \</center\> >> $page                                                           
    echo \</body\> >> $page
    echo \</html\> >> $page
}

makepage "time" $@
makepage "alpha" $@