Rev 1373 | Rev 4061 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1205 | bpr | 1 | |
| 3261 | obado | 2 | qclass=!translate internal ./,;?* to $ $ in $qclass |
| 23 | reyssat | 3 | !if $ $ isin $qclass |
| 4 | qclass= |
||
| 5 | !endif |
||
| 6 | |||
| 7 | !if $qclass=$empty or $rclass=$empty |
||
| 8 | :badclass |
||
| 9 | error=bad class |
||
| 10 | !exit |
||
| 11 | !endif |
||
| 12 | |||
| 13 | classdeffile=wimshome/log/classes/$qclass/.def |
||
| 391 | obado | 14 | classexofile=wimshome/log/classes/$qclass/.defs |
| 15 | |||
| 23 | reyssat | 16 | test=!defof class_defined in $classdeffile |
| 17 | !if $test!=yes |
||
| 18 | !goto badclass |
||
| 19 | !endif |
||
| 20 | test=!defof class_connections in $classdeffile |
||
| 21 | test=!items2words $test |
||
| 22 | test1=!translate internal +,; to $ $ in $test |
||
| 23 | !if $ident/$rclass notwordof $test1 |
||
| 24 | error=connection refused by requested class |
||
| 25 | !exit |
||
| 26 | !endif |
||
| 27 | |||
| 1373 | bpr | 28 | !if $job iswordof modclass delclass adduser moduser deluser recuser \ |
| 29 | putcsv update and\ |
||
| 30 | ($ident/$rclass+ notwordof $test and +$ident/$rclass+ notwordof $test) |
||
| 31 | error=modification of class not allowed |
||
| 32 | !exit |
||
| 33 | !endif |
||
| 391 | obado | 34 | |
| 3261 | obado | 35 | ############ Tests : A quoi servent les "+" ? ################### |
| 36 | ##ces plus sont rajoutés quand il y a des droits d'une classe sur l'autre. (BPR) |
||
| 1373 | bpr | 37 | !!#une classe créée à travers le module raw : il y a un + à la fin dans class_connections |
| 3261 | obado | 38 | ## A quoi correspondent chacun de ces test ? (OB) |
| 1373 | bpr | 39 | |
| 40 | !!# si l'on crée une classe en ajoutant une connection |
||
| 41 | !!# no no |
||
| 42 | !!# dans la classe créée myself/2534808+ |
||
| 43 | !!# dans la classe local yourself/7020853 |
||
| 44 | |||
| 45 | !!# yes no |
||
| 46 | !!# myself/2534808+ |
||
| 47 | !!# +yourself/6114403 |
||
| 48 | |||
| 49 | !!# no yes |
||
| 50 | !!# myself/2534808# |
||
| 3261 | obado | 51 | !!# yourself/4729460+ |
| 1373 | bpr | 52 | |
| 53 | !!# yes yes |
||
| 54 | !!# myself/2534808+ |
||
| 55 | !!# +yourself/1446641+ |
||
| 3261 | obado | 56 | ######################## FIN des tests |
| 1373 | bpr | 57 | |
| 23 | reyssat | 58 | wims_class=$qclass |
| 59 | wims_user=supervisor |
||
| 3261 | obado | 60 | wims_class_dir=$wims_home/log/classes/$qclass |