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