rm -f xx.* *.fits *.aipsfits rm -f $1/index.htm* cat << eof > x.html Index of /ILPA/LP003/$1

Index of /ILPA/LP003/$1

Name                    Last modified      Size  Description
Parent Directory
eof
ls -l -1 $1 | grep web > a.dat
while read -r l1 l2 l3 l4 l5 l6 l7 l8 l9
do
 let l=$l5/1024
 if [[ $l -lt 1000 ]] ; then  m=$l" K" ; fi
 if [[ $l -lt 100 ]] ; then  m=" "$l" K" ; fi
 if [[ $l -lt 10 ]] ; then  m="  "$l" K" ; fi
 if [[ $l -gt 999 ]] ; then 
  let l=$l5/1024/1024
  if [[ $l -lt 1000 ]] ; then m=$l" M"   ; fi
  if [[ $l -lt 100 ]] ; then m=" "$l" M" ; fi
  if [[ $l -lt 10 ]] ; then m="  "$l" M" ; fi
 fi
 a=$(echo $l9 | wc) ; a=${a##*\ }
 let b=$a
 if [[ $b -lt 17 && $b -ge 7 ]] ; then echo ''$l9'			01-Jun-2013 20:08   '$m >> x.html ; fi
 if [[ $b -lt  7 ]] ; then echo ''$l9'				01-Jun-2013 20:08   '$m >> x.html ; fi
 if [[ $b -ge 17 && $b -lt 25 ]] ; then echo ''$l9'		01-Jun-2013 20:08   '$m >> x.html ; fi
 if [[ $b -ge 25 ]] ; then echo ''$l9'	01-Jun-2013 20:08   '$m >> x.html ; fi
done < a.dat

echo "

" >> x.html echo "" >> x.html mv x.html $1/index.html