Rev 23 | Rev 4561 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | !read scripts/check.class |
2 | !if $error!=$empty |
||
3 | !exit |
||
4 | !endif |
||
5 | |||
6 | option=!items2words $option |
||
7 | option=!trim $option |
||
8 | !if $option=$empty |
||
9 | error=nothing done |
||
10 | !exit |
||
11 | !endif |
||
12 | |||
13 | method=!word 1 of $option |
||
14 | parms=!word 2 to -1 of $option |
||
15 | |||
16 | !if $method notwordof class user users file files score scores or\ |
||
17 | $method iswordof file files score and $ident_type!=wims |
||
18 | error=bad method |
||
19 | !exit |
||
20 | !endif |
||
21 | |||
22 | !if $method iswordof user score |
||
23 | !read scripts/check.user |
||
24 | !if $error!=$empty |
||
3049 | bpr | 25 | error=bad $method |
23 | reyssat | 26 | !exit |
27 | !endif |
||
28 | !endif |
||
29 | |||
30 | cn_sync=yes |
||
31 | !reset cn_option cn_data1 cn_data2 |
||
32 | |||
33 | !if $method=users |
||
34 | cn_option=login,lastname,firstname,password,email |
||
35 | !endif |
||
36 | !if $method=scores |
||
37 | cn_option=login,manuals |
||
38 | !endif |
||
39 | !if $method=file |
||
40 | cn_option=$parms |
||
41 | !endif |
||
42 | |||
43 | parm_$method=empty |
||
44 | parm_class=getclass |
||
45 | parm_user=getuser |
||
46 | parm_users=getcsv |
||
47 | parm_scores=getcsv |
||
48 | parm_file=getclassfile |
||
49 | parm_files=getclasstgz |
||
50 | |||
51 | !readproc adm/connect/main.proc $(parm_$method) $ident $rclass $quser |
||
3049 | bpr | 52 | !if $cn_status=$empty |
23 | reyssat | 53 | :backerror |
3049 | bpr | 54 | error=back calling error: $cn_data $cn_status ---$(parm_$method) $ident $rclass -- $qclass $method |
23 | reyssat | 55 | !exit |
56 | !endif |
||
57 |