Rev 4451 | Go to most recent revision | Details | 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= |
||
| 9 | !readdef wimshome/log/classes/.connections/$cn_ident |
||
| 10 | !if $ident_type=$empty |
||
| 11 | !debug bad ident: $cn_ident |
||
| 12 | !endif |
||
| 13 | |||
| 14 | !read adm/connect/$ident_type |
||
| 15 | |||
| 16 | !if $cn_status notsametext OK |
||
| 17 | connect_error=$cn_data |
||
| 18 | !exit |
||
| 19 | !endif |
||
| 20 | |||
| 21 | cn_data=!nonempty lines $cn_data |
||
| 22 | datacnt=!linecnt $cn_data |
||
| 23 | !if $cn_sync=yes and $wims_class>0 and $wims_user=supervisor |
||
| 24 | !read adm/connect/.sync/$cn_method |
||
| 25 | !endif |
||
| 26 |