#!/bin/sh
######################################################################
# tirindex - Generate tir directory index.
# Created 2006-8-13 David Meyer.
# 2007-05-09  Version 0.2
# 2009-01-03  Version 0.3
#   Read customization from .tir_config
######################################################################

# Identification #####################################################

program='tirindex'
version=0.3
copyright='Copyright (C) 2009 David Meyer'
description='Generate tir directory index.'
usage="Usage: $0 [-Vh] [DIRECTORY]"
contact='David Meyer <papa@jtan.com>'

# Initialize environment #############################################

unset IFS
PATH=/bin:/usr/bin

: ${TIRROOT:=/home/zaurus/cave/green}
: ${TIRCONFIG:=.tir_config}
: ${TIRCSS:=$TIRROOT/.tir.css}

# Arguments ##########################################################

while getopts Vh option
do	case $option in
	V )	echo "$program $version"
		echo $copyright
		exit 0
		;;
	h )	cat << ENDHELP
$usage

$description
DIRECTORY defaults to current directory.

Options:
	-V	Display version number
	-h	Display this help message

Report bugs to $contact.
ENDHELP
		exit 0
		;;
	* )	echo $usage >&2
		exit 1
		;;
	esac
done

shift $(( $OPTIND-1 ))

HERE=${1:-$(pwd)}

# Functions ##########################################################

# Main driver ########################################################

if [ $HERE = '.' ]; then
  HERE=$(pwd)
fi

# Read configuration. Inherit root configuration, but local configuration takes precedence.
# (The following test decides whether or not we're generating nexus index.)
if [ ! $HERE -ef $TIRROOT ]; then
  test -f $TIRROOT/$TIRCONFIG && . $TIRROOT/$TIRCONFIG
# (adjust relative path for file names in config inherited from TIR root...)
  : ${tir_nameplate:+../$tir_nameplate}
  : ${tir_stylesheet:+../$tir_stylesheet}
  : ${tir_exit_icon:+../$tir_exit_icon}
  : ${tir_object_icon:+../$tir_object_icon}
  : ${tir_favicon:+../$tir_favicon}
fi
test -f $HERE/$TIRCONFIG && . $HERE/$TIRCONFIG

: ${tir_title:=$(basename $HERE)}

if [ $HERE -ef $TIRROOT ]; then
    echo "<h1>$tir_site_title</h1>"
else
    echo "<h1>$tir_title</h1>"
fi

if [ -n "$tir_image" -a -f "$tir_image" ]; then
	echo '<div id="image">'
	echo "<img src=\"$tir_image\" />"
	echo '</div>'
fi

if [ -n "$tir_description" ]; then
	echo '<div id="description">'
	echo "$tir_description"
	echo '</div>'
fi

objects=''
exits=''
#for name in *; do
for name in $(ls -t $HERE/); do
    if [ -f $HERE/$name ]; then
	    case $name in
		index.html | *~ | \#*\# )	: ;;
                *.blink )       exits="$exits$name " ;;
		* )	objects="$objects$name " ;;
	    esac
	elif [ -d $name ]; then
            exits="$exits$name "
	fi
done

if [ -n "$objects" ]; then
    echo '<div id="object-list">You see here:<ul>'
    for obj in $objects; do
        name=${obj%.*}
        ext=${obj##*.}
	echo -n "<li><a href=\"$obj\">"
        eval bullet_fn=\$tir_${name}_${ext}_icon
        if [ ! -f "$bullet_fn" ]; then
            eval bullet_fn=\$tir__ext_${ext}_icon
            if [ ! -f "$bullet_fn" ]; then
                bullet_fn=$tir_object_icon
            fi
        fi
        if [ -n $bullet_fn ]; then
            echo -n "<img src=\"$bullet_fn\" alt=\"$ext\"/>"
        fi
        case $ext in
            txt )
                read title <$HERE/$obj ;;
            html )
                title=$(grep -i '<title>' $HERE/$obj | sed -e "s/<[^>]*>//g") ;;
            * ) 
                title=$obj ;;
        esac             
        echo "$title</a></li>"
    done
    echo '</ul></div><!-- end div object-list -->'
fi

if [ -n "$tir_exits" ]; then
    for e in $tir_exits; do
	exits="${exits}../$e "
    done
fi

if [ -n "$exits" ]; then
    if [ -n "$tir_exit_icon" ]; then
	bullet="<img src=\"$tir_exit_icon\" alt=\"To: \"/>"
    else
	bullet=""
    fi
    echo '<div id="exit-list">Obvious ways out:<ul>'
    for ex in $exits; do
	case $ex in
	    *.blink )
		{ 
		    read title 
		    read uri 
		} < $HERE/$ex 
		;;
	    * )
		uri=$ex/index.html
		title=""
		if [ -f $HERE/$ex/$TIRCONFIG ]; then
		    dir_title_config=$(grep tir_title $HERE/$ex/$TIRCONFIG)
		    eval title=${dir_title_config#*=}
		fi
		: ${title:=$(basename $ex)}
		;;
	esac
	echo "<li><a href=\"$uri\">$bullet$title</a></li>"
    done
    echo '</ul></div><!-- end div exit-list -->'
fi

if [ -n "$tir_copyright" ]; then
    echo "<div id=\"copyright\">$tir_copyright</div>"
fi

if [ -n "$tir_license" -a -f "$tir_license" ]; then
    echo '<div id="license">'
    cat $tir_license
    echo '</div>'
fi

exit