Subversion Repositories wimsdev

Rev

Rev 9221 | Rev 14890 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!bound job2 within first,erase,erase2,modify default first
286 guerimand 3
 
23 reyssat 4
!if $jobclass=$empty
5
 job2=first
6
!endif
7
 
8
classcnt=!recordcnt wimshome/log/classes/.index
9
 
10
!if $job2=first
832 guerimand 11
 !readproc scripts/ccaccount.proc
12
 test=!record 0 of wimshome/s2/$wims_session/$bst_since
286 guerimand 13
 n=!linecnt $test
14
 !for i=1 to $n
15
  l=!line $i of $test
16
  !distribute item $l into c,t
17
  t=$[floor(($t+30)/60)]
18
  activ_$c=$t
19
 !next i
20
 !if $n>0
21
  actives=yes
22
 !endif
23
 !readproc class/search.proc
23 reyssat 24
!endif
25
 
26
!if $job2!=first
27
 !defread wimshome/log/classes/$jobclass/.def
28
!endif
29
 
30
!if $job2=erase2
31
 year=!char 1 to 4 of $wims_now
32
 !sh cd $wims_home/log/classes\
33
  if [ -d $wims_home/log/ccaccount/$jobclass ]; then\
34
   tar -cf $jobclass/account.tar -C $wims_home/log ccaccount/$jobclass 2>/dev/null\
35
  fi\
36
  mkdir -p $wims_home/backup/oldclasses/$year\
37
  tar -czf $wims_home/backup/oldclasses/$year/$jobclass.tgz $jobclass\
38
  rm -Rf $jobclass $wims_home/log/ccaccount/$jobclass\
10111 bpr 39
  ./.build-index $jobclass
23 reyssat 40
  classcnt=!recordcnt wimshome/log/classes/.index
41
  job2=first
42
!endif
43
 
44
!if $job2=modify
45
 !if $abandon!=$empty
46
  job2=first
47
  !exit
48
 !endif
49
 !if $save!=$empty
50
  !bound clexp between integer 19000101 and 24000101
51
  clpass2=!word 1 of $clpass2
9221 bpr 52
  clpass2crypt=!passcrypt $clpass2
53
  !setdef !set class_password=$clpass2crypt\
23 reyssat 54
!set class_expiration=$clexp\
55
!set class_secure=$clsecure in wimshome/log/classes/$jobclass/.def
56
  clpass=!trim $clpass
57
  !if $clpass!=$empty
9221 bpr 58
   clpasscrypt=!passcrypt $clpass
59
   !setdef !set user_password=$clpasscrypt in wimshome/log/classes/$jobclass/supervisor
23 reyssat 60
  !endif
61
  class_password=$clpass2
62
  class_expiration=$clexp
63
  class_secure=$clsecure
9221 bpr 64
  !reset clexp clsecure clpass clpasscrypt clpass2 clpass2crypt
23 reyssat 65
 !endif
66
!endif
67