Subversion Repositories wimsdev

Rev

Rev 8235 | Rev 10132 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8235 Rev 9909
Line 1... Line 1...
1 
# AddUser
1 
# AddUser
2 
# permet d'ajouter l'utilisateur quser a la classe qclass
 2 
# permet d'ajouter l'utilisateur quser a la classe qclass
3 
 
 3 
 
4 
!read scripts/check.class
 4 
!read scripts/check.class
5 
!if $error!=$empty
 5 
!if $error!=$empty
6 
 !exit
 6 
 !exit
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
quser=!word 1 of $quser
 9 
quser=!word 1 of $quser
- 
 
 10 
# Les "." présents dans quser sont transformés en arobases.
10 
quser=!translate internal . to @ in $quser
 11 
quser=!translate internal . to @ in $quser
11 
quser=!text select $char_login in $quser
 12 
quser=!text select $char_login in $quser
12 
l=!charcnt $quser
 13 
l=!charcnt $quser
13 
!if $quser=supervisor or $l<$login_min or $l>$login_max
 14 
!if $quser=supervisor or $l<$login_min or $l>$login_max
14 
 error= login name must not be $quser (illegal, or wrong length)
 15 
 error= login name must not be $quser (illegal, or wrong length)
15 
 !exit
 16 
 !exit
16 
!endif
17 
!endif
17 
 
 18 
 
18 
 
 19 
 
19 
class_superclass=!defof class_superclass in $classdeffile
 20 
class_superclass=!defof class_superclass in $classdeffile
20 
 
 21 
 
21 
#on ajoute pas un utilisateur dans une sous-classe. toujours dans sa superclasse.
 22 
#on ajoute pas un utilisateur dans une sous-classe. toujours dans sa superclasse.
Line 24... Line 25...
24 
  qclass=$class_superclass
 25 
  qclass=$class_superclass
25 
  user_participate=$subclass
 26 
  user_participate=$subclass
26 
!endif
 27 
!endif
27 
 
 28 
 
28 
test=!defof user_exists in wimshome/log/classes/$qclass/.users/.$quser
 29 
test=!defof user_exists in wimshome/log/classes/$qclass/.users/.$quser
29 
!if $test!=$empty
 30 
!if $test!=$empty
30 
 error=Deleted user found. Use Recuser instead.
 31 
 error=Deleted user found. Use Recuser instead.
31 
 !exit
 32 
 !exit
32 
!endif
 33 
!endif
33 
 
 34 
 
34 
userdeffile=wimshome/log/classes/$qclass/.users/$quser
 35 
userdeffile=wimshome/log/classes/$qclass/.users/$quser
35 
!readdef $userdeffile
 36 
!readdef $userdeffile
36 
test=!defof user_exists in $userdeffile
 37 
test=!defof user_exists in $userdeffile
37 
!if $test!=$empty
 38 
!if $test!=$empty
38 
  # L'utilisateur existe. On verifie alors si on est dans une sous-classe
 39 
  # L'utilisateur existe. On verifie alors si on est dans une sous-classe
Line 44... Line 45...
44 
      !endif
 45 
      !endif
45 
      user_participate=$user_participate,
 46 
      user_participate=$user_participate,
46 
    !endif
 47 
    !endif
47 
    #l'utilisateur existait deja dans la superclasse. on lui donne simplement acces a la sous-classe.
 48 
    #l'utilisateur existait deja dans la superclasse. on lui donne simplement acces a la sous-classe.
48 
    !setdef !set user_participate=$user_participate$subclass in $userdeffile
 49 
    !setdef !set user_participate=$user_participate$subclass in $userdeffile
49
50 
 
50 
    ### Faut-il aussi l'ajouter dans la sous-classe ici ?
 51 
    ### Faut-il aussi l'ajouter dans la sous-classe ici ?
51 
    ### normalement, mkuserlist va s'en charger ?
 52 
    ### normalement, mkuserlist va s'en charger ?
52
53 
 
53 
    !exit
 54 
    !exit
54 
  !else
 55 
  !else
55 
    error=user already exists in this class ($qclass)
 56 
    error=user already exists in this class ($qclass)
56 
    !exit
 57 
    !exit
57 
  !endif
 58 
  !endif