Rev 4561 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4561 | obado | 1 | # GetUser |
2 | # Fournit les informations de l'utilisateur quser |
||
3 | |||
4667 | obado | 4 | #on commence par verifier la classe $qclass |
5 | !read scripts/check.class |
||
6 | !if $error!=$empty |
||
7 | !exit |
||
8 | !endif |
||
9 | |||
23 | reyssat | 10 | !read scripts/check.user |
11 | !if $error!=$empty |
||
12 | !exit |
||
13 | !endif |
||
14 | |||
15 | !readdef $userdeffile |
||
16 | |||
17 | option=!listintersect $option and $userdefs |
||
1111 | bpr | 18 | |
23 | reyssat | 19 | !if $option=$empty |
20 | option=!listcomplement password in $userdefs |
||
21 | !endif |