Rev 4451 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | parms=!items2words $wims_read_parm |
| 2 | !distribute words $parms into cn_method, cn_ident, cn_class, cn_user |
||
| 3 | |||
| 4 | !if $cn_ident=$empty |
||
| 5 | !debug missing_ident |
||
| 6 | !endif |
||
| 7 | |||
| 8 | ident_type= |
||
| 10454 | obado | 9 | ident_type=!defof ident_type in wimshome/log/classes/.connections/$cn_ident |
| 4451 | czzmrn | 10 | !! readdef seems not to be working ?? |
| 11 | !! !readdef wimshome/log/classes/.connections/$cn_ident |
||
| 20 | reyssat | 12 | !if $ident_type=$empty |
| 13 | !debug bad ident: $cn_ident |
||
| 14 | !endif |
||
| 15 | |||
| 16 | !read adm/connect/$ident_type |
||
| 17 | |||
| 18 | !if $cn_status notsametext OK |
||
| 19 | connect_error=$cn_data |
||
| 20 | !exit |
||
| 21 | !endif |
||
| 22 | |||
| 23 | cn_data=!nonempty lines $cn_data |
||
| 24 | datacnt=!linecnt $cn_data |
||
| 25 | !if $cn_sync=yes and $wims_class>0 and $wims_user=supervisor |
||
| 26 | !read adm/connect/.sync/$cn_method |
||
| 27 | !endif |
||
| 28 |