Subversion Repositories wimsdev

Rev

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

Rev 17386 Rev 17389
Line 14... Line 14...
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
17 
!if NaN notin $[1*$n_] and $t_=anonymous
 17 
!if NaN notin $[1*$n_] and $t_=anonymous
18 
  dispo=!record 2 of wimshome/log/classes/$c_/freelogin
 18 
  dispo=!record 2 of wimshome/log/classes/$c_/freelogin
- 
 
 19 
  dispo=!nospace $dispo
19 
  time=!record 1 of wimshome/log/classes/$c_/freelogin
 20 
  time=!record 1 of wimshome/log/classes/$c_/freelogin
20 
  !if $dispo=$empty and ($time=$empty or $wims_nowseconds>$time+600)
 21 
  !if $dispo=$empty and ($time=$empty or $wims_nowseconds>$time+600)
21 
    ltuser=!sh cd $wims_home/sessions;\
 22 
    ltuser=!sh cd $wims_home/sessions;\
22 
               s=`grep wims_class=$c_ ./*/var.stat | cut -d: -f1`;\
 23 
               s=`grep wims_class=$c_ ./*/var.stat | cut -d: -f1`;\
23 
               grep "wims_user=" $$s | cut -d= -f2;
 24 
               grep "wims_user=" $$s | cut -d= -f2;
Line 43... Line 44...
43 
  !else
 44 
  !else
44 
    num=!item 1 of $dispo
45 
    num=!item 1 of $dispo
45 
    test=!fileexists wimshome/log/classes/$c_/.users/anonymous$num
 46 
    test=!fileexists wimshome/log/classes/$c_/.users/anonymous$num
46 
    !if $test!=yes
 47 
    !if $test!=yes
47 
      nbuser=!recordcnt wimshome/log/classes/$c_/.userlist
 48 
      nbuser=!recordcnt wimshome/log/classes/$c_/.userlist
- 
 
 49 
      !if $cllimit=$empty
- 
 
 50 
        cllimit=!defof class_limit in wimshome/log/classes/$c_/.def
- 
 
 51 
        !if $cllimit=$empty
- 
 
 52 
          cllimit=!defof class_user_limit in wimshome/log/wims.conf
- 
 
 53 
          !if $cllimit=$empty
- 
 
 54 
            cllimit=!defof DF_class_limit in wimshome/public_html/bases/sys/defaults.conf
- 
 
 55 
          !endif
- 
 
 56 
        !endif
- 
 
 57 
      !endif
48 
      !if $nbuser<=$cllimit
 58 
      !if $nbuser<=$cllimit
49 
        !sh cp $wims_home/log/classes/$c_/.users/anonymous $wims_home/log/classes/$c_/.users/anonymous$num
 59 
        !sh cp $wims_home/log/classes/$c_/.users/anonymous $wims_home/log/classes/$c_/.users/anonymous$num
50 
        !readproc adm/class/mkuserlist $c_
 60 
        !readproc adm/class/mkuserlist $c_
51 
      !else
 61 
      !else
52 
        !restart module=adm/class/classes/&+job=example&+fullcls=1
 62 
        !restart module=adm/class/classes/&+job=example&+fullcls=1