Subversion Repositories wimsdev

!bound job2 within first,erase,erase2,modify default first

!if $jobclass=$empty
 job2=first
!endif

classcnt=!recordcnt wimshome/log/classes/.index

!if $job2=first
 !readproc scripts/ccaccount.proc
 test=!record 0 of wimshome/s2/$wims_session/$bst_since
 n=!linecnt $test
 !for i=1 to $n
  l=!line $i of $test
  !distribute item $l into c,t
  t=$[floor(($t+30)/60)]
  activ_$c=$t
 !next i
 !if $n>0
  actives=yes
 !endif
 !readproc class/search.proc
!endif

!if $job2!=first
 !defread wimshome/log/classes/$jobclass/.def
!endif

!if $job2=erase2
 year=!char 1 to 4 of $wims_now
 !sh cd $wims_home/log/classes\
  if [ -d $wims_home/log/ccaccount/$jobclass ]; then\
   tar -cf $jobclass/account.tar -C $wims_home/log ccaccount/$jobclass 2>/dev/null\
  fi\
  mkdir -p $wims_home/backup/oldclasses/$year\
  tar -czf $wims_home/backup/oldclasses/$year/$jobclass.tgz $jobclass\
  rm -Rf $jobclass $wims_home/log/ccaccount/$jobclass\
  ./.build-index $jobclass
  classcnt=!recordcnt wimshome/log/classes/.index
  job2=first
!endif

!if $job2=modify
 !if $abandon!=$empty
  job2=first
  !exit
 !endif
 !if $save!=$empty
  !bound clexp between integer 19000101 and 24000101
  clpass2=!word 1 of $clpass2
  clpass2crypt=!passcrypt $clpass2
  !setdef !set class_password=$clpass2crypt\
!set class_expiration=$clexp\
!set class_secure=$clsecure in wimshome/log/classes/$jobclass/.def
  clpass=!trim $clpass
  !if $clpass!=$empty
   clpasscrypt=!passcrypt $clpass
   !setdef !set user_password=$clpasscrypt in wimshome/log/classes/$jobclass/supervisor
  !endif
  class_password=$clpass2
  class_expiration=$clexp
  class_secure=$clsecure
  !reset clexp clsecure clpass clpasscrypt clpass2 clpass2crypt
 !endif
!endif