Subversion Repositories wimsdev

Rev

Rev 9609 | Rev 14164 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9609 Rev 14156
Line 2... Line 2...
2 
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
 2 
max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf
3 
max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
 3 
max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf
4 
 
 4 
 
5 
wims_prefix=class user tmp n sharing sharable
 5 
wims_prefix=class user tmp n sharing sharable
6 
!if $wims_class=$empty or $wims_user=$empty
 6 
!if $wims_class=$empty or $wims_user=$empty
7 
 :home
 7 
  :home
8 
 !restart module=home&cmd=new
 8 
  !restart module=home&cmd=new
9 
!endif
 9 
!endif
10 
 
 10 
 
11 
!if $wims_user!=supervisor
 11 
!if $wims_user!=supervisor
12 
 checkuser=$wims_user
 12 
  checkuser=$wims_user
13 
!else
 13 
!else
14 
  !default checkuser=supervisor
 14 
  !default checkuser=supervisor
15 
!endif
 15 
!endif
16 
 
 16 
 
17 
!bound job within log,llist,list,check,examcheck,erase default list
 17 
!bound job within log,llist,list,check,examcheck,erase default list
Line 19... Line 19...
19 
cdir=$wims_home/log/classes/$wims_class
 19 
cdir=$wims_home/log/classes/$wims_class
20 
!bound $logsheet between integer 1 and $max_sheets default $
 20 
!bound $logsheet between integer 1 and $max_sheets default $
21 
!bound $logexo between integer 1 and $max_exos default $
 21 
!bound $logexo between integer 1 and $max_exos default $
22 
!if $job=erase
 22 
!if $job=erase
23 
  !if $source!=$empty
 23 
  !if $source!=$empty
24 
   !sh rm $cdir/$source
 24 
    !sh rm $cdir/$source
25 
  !endif
 25 
  !endif
26 
  job=list
 26 
  job=list
27 
!endif
 27 
!endif
28 
!if $job=log
 28 
!if $job=log
29 
 !if ($logsheet>0 and $logexo>0) or $checkuser=supervisor
 29 
  !if ($logsheet>0 and $logexo>0) or $checkuser=supervisor
30 
   !if ($logsheet>0 and $logexo>0)
 30 
    !if ($logsheet>0 and $logexo>0)
31 
     ext1=$logsheet.$logexo
 31 
      ext1=$logsheet.$logexo
32 
     ext2=-$ext1
 32 
      ext2=-$ext1
33 
     ext1=.$ext1
 33 
      ext1=.$ext1
34 
   !else
 34 
    !else
35 
     !reset ext1 ext2
 35 
      !reset ext1 ext2
36 
   !endif
 36 
    !endif
37 
 
 37 
 
38 
   wimsnow=$wims_now
 38 
    wimsnow=$wims_now
39 
   !sh mkdir -p $cdir/exolog/$checkuser\
 39 
    !sh mkdir -p $cdir/exolog/$checkuser\
40 
  cp $sdir/exolog$ext1 $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2\
 40 
      cp $sdir/exolog$ext1 $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2\
41 
  rm -f $sdir/exolog$ext1\
 41 
      rm -f $sdir/exolog$ext1\
42 
  list=`ls -r $cdir/exolog/$checkuser | tail -n +$[$wims_class_exolog+1]`\
 42 
      list=`ls -r $cdir/exolog/$checkuser | tail -n +$[$wims_class_exolog+1]`\
43 
  if [ ! -z "$$list" ]; then rm -f $cdir/exolog/$checkuser/$$list; fi
 43 
      if [ ! -z "$$list" ]; then rm -f $cdir/exolog/$checkuser/$$list; fi
44 
   job=list
 44 
    job=list
45 
!! replace the name of images by rename by the true name when saving
 45 
    !! replace the name of images by rename by the true name when saving
46 
   rename_list =!record 0 of wimshome/$wims_sesdir/.rename
 46 
    rename_list =!record 0 of wimshome/$wims_sesdir/.rename
- 
 
 47 
    !debug $rename_list
47 
   rename_list_cnt=!linecnt $rename_list
 48 
    rename_list_cnt=!linecnt $rename_list
48 
   !for l=1 to $rename_list_cnt
 49 
    !for l=1 to $rename_list_cnt
49 
     rename_l=!line $l of $rename_list
 50 
      rename_l=!line $l of $rename_list
50 
     rename_l=!replace internal : by , in $rename_l
 51 
      rename_l=!replace internal : by , in $rename_l
51 
     rename_l=!replace internal ? by \? in $rename_l
 52 
      rename_l=!replace internal ? by \? in $rename_l
52 
     !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2
 53 
      !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/exolog/$checkuser/$wimsnow-$wims_session$ext2
53 
   !next
 54 
    !next
54 
 !else
 55 
  !else
55 
  job=llist
 56 
    job=llist
56 
 !endif
 57 
  !endif
57 
!endif
 58 
!endif
58 
 
 59 
 
59 
!if $job iswordof check examcheck
 60 
!if $job iswordof check examcheck
60 
 !if _check isin $wims_session
 61 
  !if _check isin $wims_session
61 
  !default checkexo=$logcheck
 62 
    !default checkexo=$logcheck
62 
  logfile=classes/$wims_class/exolog/$checkuser/$checkexo
 63 
    logfile=classes/$wims_class/exolog/$checkuser/$checkexo
63 
  exos=!filelist $wims_home/log/classes/$wims_class/exolog/$checkuser
 64 
    exos=!filelist $wims_home/log/classes/$wims_class/exolog/$checkuser
64 
  exos=!words2items $exos
 65 
    exos=!words2items $exos
65 
  !read adm/class/exocheck
 66 
    !read adm/class/exocheck
66 
 !endif
 67 
  !endif
67 
 job=list
 68 
  job=list
68 
!endif
 69 
!endif
69 
 
 70 
 
70 
!if $job=list
 71 
!if $job=list
71 
 exologs=!filelist -r $wims_home/log/classes/$wims_class/exolog/$checkuser
 72 
  exologs=!filelist -r $wims_home/log/classes/$wims_class/exolog/$checkuser
72 
 exolog2=!translate - to , in $exologs
 73 
  exolog2=!translate - to , in $exologs
73 
 exologcnt=!linecnt $exolog2
 74 
  exologcnt=!linecnt $exolog2
74 
 !sh cd $wims_home/$wims_sesdir\
 75 
  !sh cd $wims_home/$wims_sesdir\
75 
  mkdir -p getfile\
 76 
    mkdir -p getfile\
76 
  rm -f getfile/exolog\
 77 
    rm -f getfile/exolog\
77 
  ln -s $wims_home/log/classes/$wims_class/exolog/$checkuser getfile/exolog
 78 
    ln -s $wims_home/log/classes/$wims_class/exolog/$checkuser getfile/exolog
78 
  userdir=!item -1 of $wims_superclass
 79 
  userdir=!item -1 of $wims_superclass
79 
  !default userdir=$wims_class
 80 
  !default userdir=$wims_class
80 
  userdir=log/classes/$userdir/.users
 81 
  userdir=log/classes/$userdir/.users
81 
  !set names=!getdef user_firstname,user_lastname in wimshome/$userdir/$checkuser
 82 
  !set names=!getdef user_firstname,user_lastname in wimshome/$userdir/$checkuser
82 
  !default names=$checkuser
 83 
  !default names=$checkuser
83 
!endif
 84 
!endif
84 
 
 85 
 
85 
!if $job=llist
 86 
!if $job=llist
86 
 !if $logsheet=$empty
 87 
  !if $logsheet=$empty
87 
  !goto home
 88 
    !goto home
88 
 !endif
 89 
  !endif
89 
 prelogs=!filelist $wims_home/$wims_sesdir/exolog.$logsheet.*
 90 
  prelogs=!filelist $wims_home/$wims_sesdir/exolog.$logsheet.*
90 
 !if $prelogs=$empty
 91 
  !if $prelogs=$empty
91 
   prelogs=!filelist $wims_home/$wims_sesdir/exolog
 92 
    prelogs=!filelist $wims_home/$wims_sesdir/exolog
92 
 !endif
 93 
  !endif
93 
 prelog2=!words2items $prelogs
 94 
  prelog2=!words2items $prelogs
94 
 prelog3=!translate internal . to , in $prelogs
 95 
  prelog3=!translate internal . to , in $prelogs
95 
 prelogcnt=!itemcnt $prelog2
 96 
  prelogcnt=!itemcnt $prelog2
96 
!endif
 97 
!endif