face=" FACE=ARIAL "
echo "Starting Dirslide"
#==========================================================
# This is an all file directories
# produce page for files in a directory
# all files are in the same HTML page
# separated by an <HR>
#==========================================================

rootdir=$HOME/SLIDE
homeptr="index.html"
[ "$1" != "" ] && homeptr=$1
homedir=`dirname $homeptr`

pwd=`pwd`
currentdir=`basename $pwd`
src=".sliderc";
envfile="env.o";

export homedir
export rootdir

#-------------------------------------------------------------------
# Get .sliderc from . upward to $HOME and append to .env
#-------------------------------------------------------------------

rfind=`rfind $src`
[ "$rfind" != "" ] && cat $rfind > $envfile
[ -f .env ] && cat .env >> $envfile

#-----------------------------------------------
# Process things in env.o
# take care environmental instructions:
# .caption SecCaption
# .topframesz TopFrameSize
# .capsize Capsize
# .bgimg bgimg
# .preimg preimg
# .postimg postimg
#-----------------------------------------------

topframesz=`grep "^.topframesz" $envfile | sed "s/^\.topframesz //"`
echo topframesz $topframesz
[ "$topframesz" != "" ] && TopFrameSz="$topframesz" || TopFrameSz='15%'

capsize=`grep "\.capsize" $envfile | sed "s/.*\.capsize //"`
[ "$capsize" != "" ] && Capsize="$capsize" || Capsize='6'

caption=`grep "\.caption" $envfile | sed "s/.*\.caption //"`
[ "$caption" != "" ] && SecCaption="$caption" || SecCaption=$currentdir

SecCap=`echo $SecCaption |sed 's/ /<BR>/g'`

bgimg=$homedir/GIF/bg43.jpg
postimg=$homedir/GIF/darrw.gif
preimg=$homedir/GIF/uarrw.gif

#-------------------------------------------
# Set up file names
#-------------------------------------------

Section=Section.htm
SideIdx=SideIdx.htm
arrowfile=arrowfrm.htm
titlefile=titlefrm.htm

#---------------------------------------------
# Generate load function file load.o
#---------------------------------------------
echo '
<SCRIPT LANGUAGE="JAVASCRIPT">
function load(index) {
parent.leftframe.nextframe.load_specified_section(index);
}
</SCRIPT>
' > load.o

#---------------------------------------------
# Generate load function file load2.o
#---------------------------------------------
sed -e "s/.leftframe//" -e "s/load(/load2(/" load.o > load2.o

#---------------------------------------------
# Generate Root Frames
#---------------------------------------------
echo "
<HTML>
<title>TEST</title>
<frameset cols=\"90%,*\" frameborder=no border=0>
<frame src=\"leftframe.htm\" name=leftframe frameborder=0>
<frame src=\"SideIdx.htm\" name=sideidxframe frameborder=0>
</frameset>
</HTML>
" > index.html

#---------------------------------------------
# Generate LeftFrame
#---------------------------------------------
echo "
<Html>
<Frameset Rows=\"15%,*\" Frameborder=no>
<Frameset Cols=\"92%,*\" >
<Frame Src=$homeptr Name=titleframe Scrolling=no frameborder=0>
<Frame Src=$arrowfile Name=nextframe Scrolling=no frameborder=0>
</Frameset>
<Frame Src=Section.htm Name=bodyframe>
</Frameset>
</Html>
" > leftframe.htm

#---------------------------------------------
# Generate Header (Title and Caption) for Section Page
#---------------------------------------------

echo "<HTML>
<title>$currentdir</title>
<body background=$bgimg bgcolor=#ffffcc TEXT=black LINK=blue VLINK=blue>
<Center>
<table border=4 bgcolor=lightblue>
<TH align=left> <font color=black size=7 $face>
$SecCaption
</Table>
</center>
<HR><H2>
" > $Section
cat load2.o >> $Section

#---------------------------------------------
# Generate Header for Side Index (SideIdx)
#---------------------------------------------
echo "<HTML>
<title>$currentdir</title>
<body bgcolor=#99cccc TEXT=#ffff00 VLINK=#ffff00 LINK=#00ffff>
<H4>
" > $SideIdx

cat load.o >> $SideIdx

#---------------------------------------------
# The header (Home,Section) of SideIdx.htm
#---------------------------------------------
echo "
<TABLE BOARDER=2 BGColor=#ffcccc>
<TR><TH><a href=$homeptr target="_parent">
<font size=3 color=black $face>Home</a>
<TR><TH><a href=leftframe.htm target=leftframe>
<font size=2 color=black $face>Section<a>
</table>
<TABLE BOARDER=0 BGColor=#ffffcc>
" >> $SideIdx

#-----------------------------------------
# Generate Header for arrowfrm.htm
#-----------------------------------------

echo '
<body bgcolor=#ffffcc TEXT=black LINK=blue VLINK=blue onload="javascript:initial()">

<SCRIPT LANGUAGE="JAVASCRIPT">

</SCRIPT>

<DIV Style="
position: absolute;
top:2;
left:5;
">
<Table BGColor=darked Align=left>
<Tr><Td><font size=5 FACE=ARIAL>
<A Href="javascript:next()">
<IMG SRC='$postimg' height=20 ALT=N>
<Tr><Td><font size=5 FACE=ARIAL>
<A Href="javascript:prev()">
<IMG SRC='$preimg' height=20 ALT=P>
</A></Td></Tr></Table>
</DIV>
' >> $arrowfile

rm pagecapt pageabbr
rm load.o load2.o
chmod a+rx $SideIdx $Section index.html
chmod a+rx *.htm