Subversion Repositories wimsdev

Rev

Rev 4689 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #! /bin/sh
  2.  
  3. basedir=`pwd`
  4. sessiond=$w_wims_home/$w_wims_sesdir
  5. Logd=$w_wims_home/log/classes/$w_wims_class
  6. logd=$Logd/src
  7. classb=$basedir/modules/classes
  8. classd=$classb/$w_lang
  9. oefname=$sessiond/submit.oef
  10.  
  11. if [ ! -d $classd ]; then exit; fi
  12. ### in a particular situation a file images has been created by error
  13. ### do not understand why
  14. if [ -f $logd/images ]; then rm $logd/images ; mkdir $logd/images; fi
  15.  
  16. namesuffix=
  17. if [ ! -z "$w_existing" ]; then
  18.  namebase=$w_existing
  19. else
  20.  if [ -f $logd/$w_oef_fname.oef ]; then
  21.   if diff -b -B -q $oefname $logd/$w_oef_fname.oef >/dev/null; then
  22.    echo fail already
  23.    exit
  24.   fi
  25.   max_suffix=20
  26.   namesuffix=2
  27.   while [ -f $logd/$w_oef_fname$namesuffix.oef -a $namesuffix -lt $max_suffix ];
  28.   do
  29.    if diff -b -B -q $oefname $logd/$w_oef_fname$namesuffix.oef >/dev/null; then
  30.     echo fail already
  31.     exit
  32.    fi
  33.    namesuffix=$(($namesuffix+1))
  34.   done
  35.   if [ $namesuffix -gt $(($max_suffix-1)) ]; then
  36.    echo fail name_exhaust
  37.    exit
  38.   fi
  39.  fi
  40.  namebase=$w_oef_fname$namesuffix
  41. fi
  42.  
  43. if [ ! -d "$logd" ]; then
  44.   mkdir $logd >/dev/null
  45. fi
  46. cp -f $oefname $logd/$namebase.oef >/dev/null
  47. cd $classd
  48. msg=`src2def oef`
  49.  
  50. if [ -d $sessiond/getfile/oefimg ]; then
  51.  mkdir -p $logd/images/$namebase
  52.  rm -f $logd/images/$namebase/* 2>/dev/null
  53.  cp -pPR $sessiond/getfile/oefimg/* $logd/images/$namebase >/dev/null
  54. fi
  55.  
  56. if [ -f $Logd/def/$namebase.def ]; then
  57.  echo success $namebase
  58. else
  59.  echo fail unknown
  60. fi
  61. echo "$msg"
  62.