#!/bin/sh

T='http://www.fagotten.org/grifter/img/txt.png'
D='http://www.fagotten.org/grifter/img/dir.png'
I='http://www.fagotten.org/grifter/img/img.png'
B='http://www.fagotten.org/grifter/img/back.png'
S='http://www.fagotten.org/grifter/img/sh.png'
M='http://www.fagotten.org/grifter/img/mus.png'
O='http://www.fagotten.org/grifter/img/mod.png'
A='http://www.fagotten.org/grifter/img/archive.png'

if [ -z $1 ]; then
   echo "You must specify a directory to work in."
   exit 1
   elif [ ! -d $1 ]; then
      echo "You must specify a DIRECTORY to work in."
      exit 1
fi


for i in $( find $1 -type d -print ); do

   IDX="$i/index.html"
   
   if [ -f $IDX ]; then
      rm -f $IDX
   fi
   
   cat << EOF > $IDX
   <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
   <html>
   <body bgcolor="#FFFFFF">
   <font face="arial" size="2">
EOF

   echo "<a href=\"..\"><img src=\"$B\" border=\"0\"></a><h3>[ Directory listing of $i ]</h3><br><hr width=\"100%\" size=\"2\" noshade><br><br>" >> $IDX
      
      for o in $( ls $i ); do
         
	 PNAME="$i/$o"
	 
         if [ -d $PNAME ]; then
	    echo "<a href=\"$o\"><img src=\"$D\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
	    else case "$o" in
		*.[Pp][Nn][Gg] | *.[Jj][Pp][Gg] | *.[Gg][Ii][Ff])
	         echo "<a href=\"$o\"><img src=\"$I\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
	            ;;
		*.[Hh][Tt][Mm][Ll] | *.[Hh][Tt][Mm] | *.[Tt][Xx][Tt] | *.[Ll][Oo][Gg] | *.[Xx][Mm][Ll] | *.[Cc][Oo][Nn][Ff] | *.[Rr][Cc] | *README)
		if [ $o = index.html ] || [ $o = index.htm ]; then
		true
		else echo "<a href=\"$o\"><img src=\"$T\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
		fi
		;;

		*.[Ss][Hh] | *.[Pp][Ll])
		echo "<a href=\"$o\"><img src=\"$S\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
		;;

		*.[Oo][Gg][Gg] | *.[Mm][Pp]3 | *.[Ww][Aa][Vv] | *.[Ff][Ll][Aa][Cc])
		echo "<a href=\"$o\"><img src=\"$M\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
		;;

		*.[Mm][Oo][Dd] | *.[Xx][Mm] | *.[Ss]3[Mm])
		echo "<a href=\"$o\"><img src=\"$O\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
		;;
		
		*.[Bb][Zz]2 | *.[Gg][Zz] | *.[Zz][Ii][Pp] | *.[Dd][Ee][Bb] | *.[RrTt][Aa][Rr])
		echo "<a href=\"$o\"><img src=\"$A\" border=\"0\"></a> . . . . . . . . . <a href=\"$o\">$o</a><br><br>" >> $IDX
		;;


		 esac
	 fi
      done
      
   cat << EOF >> $IDX
   <br>
   <hr width="100%" size="2" noshade>
   </font>
   </body>
   </html>
EOF

done

