Subversion Repositories wimsdev

Rev

Rev 17389 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17389 Rev 17797
Line 2... Line 2...
2 
!! each connexion use a different login
 2 
!! each connexion use a different login
3 
!! login is generated if necessary
 3 
!! login is generated if necessary
4 
!! anonymous connexion is limited to 50% of class capacity
 4 
!! anonymous connexion is limited to 50% of class capacity
5 
!! other is reserved to registered login
 5 
!! other is reserved to registered login
6 
!! wims_read_parm input parameters are
 6 
!! wims_read_parm input parameters are
7 
!!     first item : login of user (exit if not anonymous)
 7 
!!  first item : login of user (exit if not anonymous)
8 
!!     second item : class number (exit if not <=9999 )
 8 
!!  second item : class number (exit if not <=9999 )
9 
!! process exit if no place left
 9 
!! process exit if no place left
10 
!! output=$output_user
 10 
!! output=$output_user
11 
 
 - 
 
- 
 
 11 
!! login anonymous is never used in fact, it is a "model".
12 
!distribute item $wims_read_parm into c_,u_
 12 
!distribute item $wims_read_parm into c_,u_
13 
t_=!char 1 to 9 of $u_
 13 
t_=!char 1 to 9 of $u_
14 
t_=!lower $t_
 14 
t_=!lower $t_
15 
n_=!char 10 to -1 of $u_
 15 
n_=!char 10 to -1 of $u_
16 
!default n_=0
 16 
!default n_=0
Line 40... Line 40...
40 
    dispo=!nospace $dispo
 40 
    dispo=!nospace $dispo
41 
  !endif
 41 
  !endif
42 
  !if $dispo=$empty
 42 
  !if $dispo=$empty
43 
    !restart module=adm/class/classes/&+job=example&+fullcls=1
 43 
    !restart module=adm/class/classes/&+job=example&+fullcls=1
44 
  !else
 44 
  !else
45 
    num=!item 1 of $dispo
45 
    num=!item 1 of $dispo
46 
    test=!fileexists wimshome/log/classes/$c_/.users/anonymous$num
 46 
    test=!fileexists wimshome/log/classes/$c_/.users/anonymous$num
47 
    !if $test!=yes
 47 
    !if $test!=yes
48 
      nbuser=!recordcnt wimshome/log/classes/$c_/.userlist
 48 
      nbuser=!recordcnt wimshome/log/classes/$c_/.userlist
49 
      !if $cllimit=$empty
 49 
      !if $cllimit=$empty
50 
        cllimit=!defof class_limit in wimshome/log/classes/$c_/.def
 50 
        cllimit=!defof class_limit in wimshome/log/classes/$c_/.def