#!/bin/bash # # vim: ts=4 sw=4 et # # generate_index_html # # Generates index.html files with a link to each file in the directory, and # recursively for its sub-directories. # # Note: This script recursively calls itself, so if invoked without # an absolute path name, it had better be in its own path! # CURRENT_RELEASE=11.01 BETA_RELEASE=11.07 # We need bash's extended globbing for the case patterns # matching the release numbers. shopt -s extglob INDEX=index.html.$HOST.$$ LOCKDIR=generate_index_html.lock handled_files= # Lock the directory (this script may be invoked by test_mercury # on multiple machines at once). timeout=20 retries=0 until mkdir $LOCKDIR; do case $retries in $timeout) echo "** $0: creating lock directory `pwd`/$LOCKDIR failed" 1>&2 echo "** $0: remove it manually if it is stale" 1>&2 exit 1 ;; esac sleep 5 retries=`expr $retries + 1` done trap 'rm -rf $INDEX $LOCKDIR; exit 1' 1 2 3 13 15 # These are the standard locations for Apache's icons. # img_txt="

" img_dir="

" img_bak="

" echo "" \ > $INDEX echo "" >> $INDEX echo "" >> $INDEX echo "The Mercury Project: Directory Listing" >> $INDEX echo "" >> $INDEX echo "" >> $INDEX echo "

Directory listing

" >> $INDEX echo "

" >> $INDEX #-----------------------------------------------------------------------------# # link_to_file prefix filename description. # # Generate a line with the prefix followed by a link to the given file. # Record that the file has been handled. link_to_file () { prefix="$1" this_file="$2" this_file_descr="$3" q='"' if test -d "$this_file" then echo "$prefix $this_file_descr" >> $INDEX else this_file_size=`ls -Ll "$this_file" | awk '{ print $5; }'` this_file_sizekb=`expr "$this_file_size" / 1024` echo "$prefix $this_file_descr ($this_file_sizekb kilobytes)" >> $INDEX fi handled_files="$this_file $handled_files" } #-----------------------------------------------------------------------------# skip_file () { stable_file="$1" unstable_file="$2" if [ -f "$stable_file" ]; then handled_files="$unstable_file $handled_files" fi } #-----------------------------------------------------------------------------# # link_to_file filename description # # Generate a link to a file if it exists. # This should be called within a `

" "$1" "$2" fi } #-----------------------------------------------------------------------------# # handle_release release_file # # Given the name of a source or binary distribution file in a release, # generate an entry describing all the files in the release. handle_release () { file="$1" if [ -f "$file" ] then case "$handled_files" in *$file*) ;; *) do_handle_release "$file" ;; esac fi } #-----------------------------------------------------------------------------# do_handle_release () { file="$1" date=`expr "$file" : '.*$[0-9]\{4\}[-_][0-9][0-9][-_][0-9][0-9]$.*'` date_underscores=`echo $date | tr '-' '_'` date=`echo $date | tr '_' '-'` #echo "file=$file, date=$date" case "$file" in *-rotd*[-_]unstable*) release_name="Unstable snapshot $date" release_id="rotd-$date-unstable" release_id_underscores="rotd_${date_underscores}_unstable" ;; *-rotd*) release_name="Stable snapshot $date" release_id="rotd-$date" release_id_underscores="rotd_$date_underscores" ;; *-*([0-9.])[-_]beta*[-_]unstable*) version=`expr "$file" : ".*-$[0-9.]*$[-_]beta.*[-_]unstable.*"` release_name="Unstable $version beta $date" release_id="$version-beta-$date-unstable" release_id_underscores="${version}_beta_${date_underscores}_unstable" ;; *-*([0-9.])[-_]beta*) version=`expr "$file" : ".*-$[0-9.]*$[-_]beta.*"` release_name="Stable $version beta $date" release_id="$version-beta-$date" release_id_underscores="${version}_beta_$date_underscores" ;; *-*([0-9.])*[-_]unstable*) version=`expr "$file" : ".*-$[0-9.]*[0-9]$.*[-_]unstable.*"` release_name="Unstable release $version" release_id="$version-unstable" release_id_underscores="${version}_unstable" ;; *-*([0-9.])*) #echo "XXX [release_id=$release_id file=$file]" 1>&2 version=`expr "$file" : ".*-$[0-9.]*[0-9]$.*"` release_name="Release $version" release_id="$version" release_id_underscores="$version" ;; *) # Unknown release, this will be put in the list of # other files after all known releases. #echo "unknown file name: $file" return 0 ;; esac #echo "[release_id=$release_id file=$file]" 1>&2 echo "
$release_name" >> $INDEX echo '
- Binary distributions" >> $INDEX echo "
  - " $bindist $bindist_name echo "
    " >> $INDEX done echo "
  " >> $INDEX ;; esac link_to_existing_file mercury-extras-$release_id.tar.gz "Extras" link_to_existing_file mercury-gcc-$release_id.tar.gz "GCC native-code interface source" link_to_existing_file mercury-tests-$release_id.tar.gz "Test suite" link_to_existing_file mercury-test-failures-$release_id.txt \ "Test failures" echo '
' >> $INDEX # If the same release occurs as both stable and unstable, only include # the stable version in the index. case $release_id in *-unstable*) ;; *) skip_file mercury-NEWS-$release_id.txt \ mercury-NEWS-$release_id-unstable.txt skip_file mercury-INSTALL-$release_id.txt \ mercury-INSTALL-$release_id-unstable.txt skip_file mercury-compiler-$release_id.tar.gz \ mercury-compiler-$release_id-unstable.tar.gz skip_file mercury-extras-$release_id.tar.gz \ mercury-extras-$release_id-unstable.tar.gz skip_file mercury-tests-$release_id.tar.gz \ mercury-tests-$release_id-unstable.tar.gz skip_file mercury-gcc-$release_id.tar.gz \ mercury-gcc-$release_id-unstable.tar.gz ;; esac } #-----------------------------------------------------------------------------# echo "$img_bak Parent Directory
" >> $INDEX # # Directories. # for file in * do if test -d "$file" -a "$file" != $LOCKDIR then (cd "$file" && $0) q='"' echo "$img_dir $file/
" \ >> $INDEX fi done echo "
" >> $INDEX echo "
- " "$file" "$file" ;; esac fi ;; esac done echo "
" >> $INDEX echo "
" >> $INDEX if test -f README then echo "
```
" >> $INDEX
    cat README >> $INDEX
    echo "
```
" >> $INDEX fi echo "" >> $INDEX echo "" >> $INDEX chmod a+r,g+w $INDEX chgrp mercury $INDEX mv $INDEX index.html rmdir $LOCKDIR || { echo "** $0: error removing $LOCKDIR" 1>&2; exit 1; }