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 class/search.proc

  !if $overflow!=yes

    !readproc scripts/ccaccount.proc

    test=!record 0 of wimshome/s2/$wims_session/$bst_since

    n=!linecnt $test

    !if $n>0

      actives=yes

      !for i=1 to $n

        l=!line $i of $test

        !distribute item $l into c,t

        !if $c isitemof $list_cl_id

          t=$[floor(($t+30)/60)]

          activ_$c=$t

        !endif

      !next i

    !endif

  !endif

!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