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 |