#! /bin/csh -f # Last edited on 2003-12-14 23:30:15 by stolfi set usage = "$0 [-original] [-absentOK] [-iconHeight NN] TITLE" # Creates an index page "index.html" or "index-orig.html" for computer # graphics homework hand-ins. This version is specialized for # animations. # # Reads files # # rausrs.txt : RA numbers and login names of all registered students # aus.txt : RA numbers of absentees # intro.html (if present) : blurb to be included in page, before results. # # Rejects input from absentee students, unless "-absentOK" is given. # For each non-absentee student, expects to find files # # ${ra}/main.pov - Main POV-ray file (edited by instructor) # ${ra}/main-0.0000.png - First frame # ${ra}/main-0.5000.png - Middle frame # ${ra}/main-1.0000.png - Last frame # ${ra}/main-m.gif - Animated gif # ${ra}/main-s.png - Strip with sample frames # # If "-original" is given, makes an index "index-orig.html" for the # "-orig" versions instead of the edited/rebuilt versions. # # The above files are the versions that were edited and/or rebuilt # by the teacher. The original version of file "{FOO}.{BAR}", # as turned in by the student, is assumed to be "{FOO}-orig.{BAR}". # # The thumbnail version of file "{FOO}.png" or "{FOO}-orig.png" # is created, if needed, with name "{FOO}-i.png" "{FOO}-orig-i.png". # Name suffixes and button labels for "hot" and alternate versions: set hotsuf = ""; set hottxt = "novo" set altsuf = "-orig"; set alttxt = "orig" # Options for {process-absentees}: set absentopt = ( ) # Default icon height (pixels): set iconHeight = 60; # Clock value of frame to use as icon (format "N.N"): set iconclock = "0.0"; # set iconclock = "0.5"; # TRUE if the derived files should be rebuilt as needed: set rebuild = 1 while ( ( $#argv > 0 ) && ( "/$1" =~ /-* ) ) if ( ( $#argv >= 1 ) && ( "/$1" == "/-absentOK" ) ) then set absentopt = ( "-absentOK" ); shift; else if ( ( $#argv >= 1 ) && ( "/$1" == "/-original" ) ) then set hotsuf = "-orig"; set hottxt = "orig"; set altsuf = ""; set alttxt = "novo"; set rebuild = 0; shift; else if ( ( $#argv >= 2 ) && ( "/$1" == "/-iconHeight" ) ) then set iconHeight = "$2"; shift; shift; else echo "bad option: $1"; echo "usage: ${usage}"; exit 1 endif end if ( $#argv != 1 ) then echo "usage: ${usage}"; exit 1 endif set title = "$1"; shift; set tooldir = "${STOLFIHOME}/public_html/courses/mc930-2003-2-A/progs/tools" setenv POVPUB ${STOLFIHOME}/pkg/povray-3.50c-1/PUB set path = ( . ${tooldir} ${POVPUB}/${PLATFORM}/bin/ $path ) set rafile = "rausrs.txt" set abfile = "aus.txt" set hdrfile = "intro.html" set htmfile = "index${hotsuf}.html" # Names of images to show set firstname = "main-0.0000${hotsuf}" set middlename = "main-0.5000${hotsuf}" set lastname = "main-1.0000${hotsuf}" set stripname = "main-s${hotsuf}" set movname = "main-m${hotsuf}" set altmovname = "main-m${altsuf}" if ( -r ${abfile} ) then process-absentees ${absentopt} `cat ${abfile} | egrep -v '^ *([#]|$)'` endif # Save old version of index page if ( -e ${htmfile} ) then /bin/mv ${htmfile} ${htmfile}~ endif # Write index page header: cat <> ${htmfile} ${title} (${hottxt})

${title} (${hottxt})

[${alttxt}>

EOF # Copy preformatted prologue: if ( -r ${hdrfile} ) then cat ${hdrfile} >> ${htmfile} endif # Get numbers of all registered students: set ras = ( `cat ${rafile} | egrep -v '^ *([#]|$)' | gawk '//{print $1;}'` ) cat <> ${htmfile} EOF @ n = 0 foreach ra ( ${ras} ) # Define, for student ${ra}: # # ${povfile} = file name of "hot" source file. # ${altpovfile} = file name of alternate source file. # ${stripfile} = file name of the "hot" filmstrip. # ${movfile} = file name of the full "hot" movie. # ${moviconfile} = file name of the iconic version of the "hot" movie. # ${altmovfile} = file name of the alternate movie. # # ${frabutt} = the HTML fragment of the single-frame buttons. # ${strbutt} = the HTML fragment of the filmstrip button. # ${movbutt} = the HTML fragment of the hot movie button. # ${altmovbutt} = the HTML fragment of the alternate movie button. # ${povbutt} = the HTML fragment of the source button. set povfile = "${ra}/main${hotsuf}.pov" set altpovfile = "${ra}/main${altsuf}.pov" if ( ! ( -d ${ra} ) ) then # non-existant directory: echo "*** ${ra} missing or not directory" set frabutt = "[×]" set strbutt = "[×]" set movbutt = "[×]" set altmovbutt = "[×]" set povbutt = "[×]" set stripfile = "missing.png" set movfile = "missing.png" set moviconfile = "missing-i.png" set altmovfile = "missing.png" else if ( -r ${ra}/.absent ) then # Absentee student: set frabutt = "[×]" set strbutt = "[×]" set movbutt = "[×]" set altmovbutt = "[×]" set povbutt = "[×]" set stripfile = "absent.png" set movfile = "absent.png" set moviconfile = "absent-i.png" set altmovfile = "absent.png" # Ckeck if the POV-ray source exists, just in case: if ( -r ${povfile} ) then echo "*** ${ra}/.absent and ${povfile} both present"; exit 1 else if ( -r ${altpovfile} ) then echo "*** ${ra}/.absent and ${altpovfile} both present"; exit 1 endif else # Ckeck whether the POV-ray source exists. if ( ! ( -r ${povfile} ) ) then set povbutt = "[×]" else set povbutt = '[fonte]' endif # Default movie icon is "missing-i.png", eventually changed below: set moviconfile = "missing-i.png" set moviconok = 0 # Create single-frame button strip ${frabutt}: set frabutt = "" foreach fc ( \ ${firstname}/0.0 \ ${middlename}/0.5 \ ${lastname}/1.0 \ ) set franame = "${fc:h}" set clock = "${fc:t}" # Get: # ${frafile} = file name of selected full "hot" frame. # ${fraiconfile} = file name of iconic versions of selected "hot" frame. # ${clock} = clock value of the selected frame. # Look for frame image, of any type (defaults to "missing.png"): set frafile = "missing.png" foreach ext ( png gif jpg ) if ( -r "${ra}/${franame}.${ext}" ) then set frafile = "${ra}/${franame}.${ext}"; break endif end # Get frame icon image: set fraiconfile = "${ra}/${franame}-i.png" if ( "${frafile}" != "missing.png" ) then # Remove empty or outdated icon: if ( -r ${fraiconfile} ) then if ( ( -z ${fraiconfile} ) || { /usr/bin/test ${frafile} -nt ${fraiconfile} } ) then /bin/rm -f ${fraiconfile} endif endif # Make sure that the icon does exist: if ( ! ( -r ${fraiconfile} ) ) then echo "=== creating thumbnail image for ${frafile} ===" convert ${frafile} \ -geometry "x${iconHeight}" \ +profile '*' \ -colors 254 -dither \ ${fraiconfile} endif set frabutt = "${frabutt}"'['"${clock}"']' else # Remove thumbnail, if any if ( -r ${fraiconfile} ) /bin/rm -f ${fraiconfile} # Use the "missing" image icon: set fraiconfile = "missing-i.png" set frabutt = "${frabutt}[×]" endif echo " clock = ${clock} frame = ${frafile} icon = ${fraiconfile}" # Save frame icon as movie icon: if ( ( "${fraiconfile}" != "missing-i.png" ) && ( ! ${moviconok} ) ) then set moviconfile = "${fraiconfile}" if ( "/${clock}" == "/${iconclock}" ) set moviconok = 1 endif end # Get filmstrip file name (may have any extension) set stripfile = "missing.png" foreach ext ( png gif jpg ) if ( -r "${ra}/${stripname}.${ext}" ) then set stripfile = "${ra}/${stripname}.${ext}"; break endif end if ( ( -r ${stripfile} ) && ( "${stripfile}" != "missing.png" ) ) then set strbutt = '[quadros]' else set strbutt = "[×]" endif echo " file strip = ${stripfile}" # Get file name of "hot" movie: set movfile = "${ra}/${movname}.gif" if ( ${rebuild} ) then if ( -r ${povfile} ) then # (Re)build movie if necessary: if ( ( ! ( -r ${movfile} ) ) || ( -z ${movfile} ) ) then echo "=== (re)building movie ${movfile} ===" ( cd ${ra} && make ${movfile:t} ) echo "=== done rebuilding ${movfile} ===========================" endif else echo "*** File ${povfile} missing, can't rebuild ${movfile}" endif endif if ( ! ( -r ${movfile} ) ) then echo "*** File ${movfile} missing" set movfile = "missing.png" endif # Create "hot" movie button, or substitute "missing.png": if ( "${movfile}" != "missing.png" ) then set movbutt = '[filme]' else set movbutt = "[×]" endif echo " movie file = ${movfile}" # Get name of alternate movie file: set altmovfile = "${ra}/${altmovname}.gif" if ( ! ( -r ${altmovfile} ) ) then echo "*** File ${altmovfile} missing" set altmovfile = "missing.png" endif # Create alternate movie button: if ( "${altmovfile}" != "missing.png" ) then set altmovbutt = '['"${alttxt}"']' else set altmovbutt = "[×]" endif echo " alternate movie file = ${altmovfile}" endif # Format the movie icon set iconbutt = '' # echo "${frabutt} ${strbutt} ${movbutt} ${altmovbutt} ${iconbutt}" # Output the entry if ( ${n} == 0 ) then echo " " >> ${htmfile} endif cat <> ${htmfile} EOF @ n = ${n} + 1 if ( ${n} >= 4 ) then echo " " >> ${htmfile} @ n = 0 endif end if ( ${n} > 0 ) then echo " " >> ${htmfile} endif cat <> ${htmfile}
${iconbutt}
${ra}
 		 ${frabutt}  
${strbutt}  
${movbutt}  
${altmovbutt}  
${povbutt}  
EOF