#! /bin/sh
#
# update2.sh for testing only, 25 Aug. 2007
#
# update project file
#
# this script is invoked via chroot+setuidgid
#
# cwd is $top/$sub
#
# R. Perry, Aug. 2003
#
# ZZ marks local customization sections

PATH="/usr/bin"; export PATH

mode="$1"
user="$2"
sub="$3"
file="$4"
args="$5"

###
# function to display subdir, home menu
#
menu1() {
  echo "<a href=\"/prog/${COURSE}?edit+${sub}\" target=\"_top\">${sub}</a>
  - <a href=\"/prog/${COURSE}\" target=\"_top\">Home</a>
  - <a href=\"/prog/${COURSE}?preproc+${sub}+${file}\" target=\"bot\">preproc</a>
  - <a href=\"/prog/${COURSE}?asm+${sub}+${file}\" target=\"bot\">asm</a>
  - <a href=\"/prog/${COURSE}?asmopt+${sub}+${file}\" target=\"bot\">asmopt</a>
  - <a href=\"/prog/${COURSE}?cerr+${sub}+${file}\" target=\"bot\">cerr</a>
  - <a href=\"/prog/${COURSE}?edit+${sub}+${file}\">reload</a>
  - <a href=\"/prog/${COURSE}?plinenums+${sub}+${file}\">+linenums</a>
  - <a href=\"/prog/${COURSE}?mlinenums+${sub}+${file}\">-linenums</a>
<br>"

# ZZ
# echo "<p><font color=red>Note</font>: this environment will be shut down after May 9,
# then will be available again, read-only, later next week.<p>"

}

###
# function to display compile/run menu
#
menu2() {
  echo "<form method=POST action=\"/prog/${COURSE}?${sub}+${file}\" target=\"bot\">
  <a href=\"/prog/${COURSE}?compile+${sub}+${file}\" target=\"bot\">Compile</a>
  <input type=submit name=run value=\"Run\">
  <input type=submit name=crun value=\"C/Run\">
  <input type=submit name=debug value=\"Debug\">
  args: <input name=args size=40 maxlength=80 value=\"$args\">
  <input type=submit name=cmd value=\"Command\">
  </form>"
}

###
# function to display Update menu
#
#
menu3() {
  echo "<input type=submit name=update value=\"Update\">
  <input type=submit name=\"update_compile\" value=\"Compile\">
  <input type=submit name=\"update_compile_run\" value=\"C/Run\">
  <font color=red>&lt;-save changes</font>
  <input type=submit name=IO value=\"IO\">
  <input type=submit name=IOD value=\"IO/D\">
  <input name=plot type=image alt=\"Plot\""
  # ZZ
  # if [ "$COURSE" = "osp" -a "$sub" = "a7" ]; then
  #   echo "src=\"/vecr/images/maze.gif\" width=32 height=32"
  # else
  #   echo "src=\"/vecr/images/Stats.gif\""
  # fi
  echo "src=\"/vecr/images/Stats.gif\""
  echo "border=0 align=absmiddle>
  <input name=splot type=image alt=\"Splot\" src=\"/vecr/images/Chart3.gif\" border=0 align=absmiddle>
  <input name=audio type=image alt=\"Audio\" src=\"/vecr/images/sound.gif\" border=0 align=absmiddle>"
}

case "$mode" in

  update) #UCR |update_compile|update_compile_run
	#
	# make backup, copy file
	#
	rm -f "$file.OLD"
	mv "$file" "$file.OLD"
	case "$file" in
	  Makefile) tr -d '\r' | sed -e 's/^ /	/' -e '/^$/d' > "$file" ;;
	  *)	    tr -d '\r' | sed               -e '/^$/d' > "$file" ;;
	esac
	;;

  upload)
	#
	# make backup, upload file
	#
	read boundary
	while read header
	do
	  if [ -z "$header" ]; then
	    break
	  fi
	done
	tmpfile="upload.$$"
	rm -f "$tmpfile"
	sed -e '/^$/d' -e "/^$boundary/,\$d" > "$tmpfile"
	#
	if [ -s "$tmpfile" ]; then
	  rm -f "$file.OLD"
	  mv "$file" "$file.OLD"
	  mv "$tmpfile" "$file"
	else
	  rm -f "$tmpfile"
	fi
	;;

  copy)
	#
	# make backup, copy file
	#
	read fname
	fpath="/htdocs/perry/$fname"
	#
	if [ -n "$fname" -a -r "$fpath" ]; then
	  rm -f "$file.OLD"
	  mv "$file" "$file.OLD"
	  cp "$fpath" "$file"
	fi
	exit 0
	;;

  edit|plinenums|mlinenums)
	#
	# create links as needed, display edit page
	#
	for p in ../../../proto/${sub}/*
	do
	  f=`basename "$p"`
	  if [ ! -r "$f" ]; then
	    ln -s "$p" "$f"
	  fi
	done
	#
	# dynamically create additional files here...
	#
	# if [ ! -r "$file" ]; then
	#   touch "$file"
	# fi
	#
	if [ ! -r "$file" ]; then
	 case "$COURSE" in # ZZ
	 #
	 ccs)
	  case "$sub" in
	    a3) case "$file" in
		  p1.java) /vecr/ccs/a3/p1.sh "$user" > p1.java ;;
		       *) touch "$file" ;;
		esac
		;;
	     *) touch "$file"
		;;
	  esac
	  ;;
	 #
	 fc)
	  case "$sub" in
	    a2) case "$file" in
		  p4.c) /vecr/fc/a2/p4.sh "$user" > p4.c ;;
		       *) touch "$file" ;;
		esac
		;;
#	    t3) case "$file" in
#		  p1.c|p2.c|p3.c|p4.c) /vecr/fc/t3/get.sh "$user" "$file" > "$file" ;;
#		esac
#		;;
	     *) touch "$file"
		;;
	  esac
	  ;;
	 #
	 *) touch "$file"
	  ;;
	 #
	 esac
	fi
	#
	#
	echo "Content-type: text/html\n"
	echo "<html><head><title>${user} - ${COURSE} - ${sub}/${file}</title>
	  </head><body bgcolor=white text=black>
	  <h2>${user} - ${COURSE} - ${sub}/${file}
            - <a href=\"/prog/${COURSE}?submit+$sub\" target=\"bot\">submit</a>
            - <a href=\"/prog/${COURSE}?submit_view+$sub\" target=\"bot\">view submissions</a>"
	 #
	  if [ "$sub" = "HTML" ]; then
	    case "$file" in
	      *.sh|*.c|*.java) echo " (run output Content-Type will be HTML)"
 	      ;;
	    esac
	 #
	 #ZZ also check run.sh
	 #
	 #  elif [ "$COURSE" = "osp" -a "$sub" = "a9" ]; then
	 #    case "$file" in
	 #      *.sh|*.c) echo " (run output Content-Type will be HTML)"
 	 #      ;;
	 #    esac
	  fi
	 #
	 case "$file" in
	   Makefile) echo " (leading blank will be converted to tab)" ;;
	 esac
	#
	echo "</h2>"
	#
	# ZZ
	#
	# if [ "${COURSE}" = "fc" -a "$sub" = "a10" ]; then
	#  echo "<font color=red>*** assignment #10 was collected May 6, 06:47 AM ***</font><p>"
	# fi
	#
	menu1
	menu2
	echo "<form method=POST action=\"/prog/${COURSE}?${sub}+${file}\">"
	menu3
	echo "args: <input name=args size=30 maxlength=80 value=\"$args\"><br>
	  <textarea name=data rows=60 cols=75>" # ZZHW rows=15 should be rows=60
	case "$mode" in
	  edit)
	    sed -e 's/\&/\&amp;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g' "$file"
	    ;;
	  plinenums) # add line numbers
	    sed -e 's/\&/\&amp;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g' "$file" |
	      awk '{ ++n; print "/*"n"*/"$0; }'
	    ;;
	  mlinenums) # remove line numbers
	    sed -e 's/\&/\&amp;/g' -e 's/</\&lt;/g' -e 's/>/\&gt;/g' \
		-e 's;^/\*[1-9][0-9]*\*/;;' "$file"
	    ;;
	esac
	echo "</textarea><br>"
	menu3
	echo "</form>"
	menu2
	menu1
	echo "<br><form method=POST enctype=\"multipart/form-data\"
	action=\"/prog/${COURSE}?${sub}+${file}\">
	<input type=file name=upload size=30 maxlength=80>
	<input type=hidden name=args value=\"$args\">
	<input type=submit name=upload value=\"Upload\"></form>"
	#
	case "$COURSE" in # ZZ
	  osp)
	    echo "<form method=POST action=\"/prog/${COURSE}?${sub}+${file}\">
	      <input type=hidden name=args value=\"$args\"><select name=data>"
	    case "$file" in
	      *.c)
		awk '{ print "<option>"$1; }' < /htdocs/perry/abc/abc.c.list
		;;
	      *.h)
		awk '{ print "<option>"$1; }' < /htdocs/perry/abc/abc.h.list
		;;
	      Makefile)
		awk '{ print "<option>"$1; }' < /htdocs/perry/abc/abc.make.list
		;;
	      *.txt)
		awk '{ print "<option>"$1; }' < /htdocs/perry/abc/abc.txt.list
		;;
	      *.java)
		awk '{ print "<option>"$1; }' < /htdocs/perry/abc/abc.java.list
		;;
	      *.sh)
		awk '{ print "<option>"$1; }' < /htdocs/perry/usp/examples.list
		;;
	    esac
	    echo "</select><input type=submit name=copy value=\"Copy\"></form>"
	    ;;
	  fc)
	    case "$file" in
	      *.c)
		echo "<form method=POST action=\"/prog/${COURSE}?${sub}+${file}\">
		  <input type=hidden name=args value=\"$args\"><select name=data>"
		awk '{ print "<option>"$1; }' < /htdocs/perry/Etter/C.list
		echo "</select><input type=submit name=copy value=\"Copy\"></form>"
		;;
	      *.txt)
		echo "<form method=POST action=\"/prog/${COURSE}?${sub}+${file}\">
		  <input type=hidden name=args value=\"$args\"><select name=data>"
		awk '{ print "<option>"$1; }' < /htdocs/perry/Etter/Data.list
		echo "</select><input type=submit name=copy value=\"Copy\"></form>"
		;;
	    esac
	    ;;
	esac
	#
	echo "</body></html>"
	;;

  *)
	echo "Content-type: text/plain\n"
	echo "Bad mode"
	exit 1
	;;
esac