Subversion Repositories wimsdev

!! ---------- process manage of anonymous connexion to example class
!! each connexion use a different login
!! login is generated if necessary
!! anonymous connexion is limited to 50% of class capacity
!! other is reserved to registered login
!! wims_read_parm input parameters are
!!  first item : login of user (exit if not anonymous)
!!  second item : class number (exit if not <=9999 )
!! process exit if no place left
!! output=$output_user
!! login anonymous is never used in fact, it is a "model".
!distribute item $wims_read_parm into c_,u_
t_=!char 1 to 9 of $u_
t_=!lower $t_
n_=!char 10 to -1 of $u_
!default n_=0
!if NaN notin $[1*$n_] and $t_=anonymous
  dispo=!record 2 of wimshome/log/classes/$c_/freelogin
  dispo=!nospace $dispo
  time=!record 1 of wimshome/log/classes/$c_/freelogin
  !if $dispo=$empty and ($time=$empty or $wims_nowseconds>$time+600)
    ltuser=!sh cd $wims_home/sessions;\
               s=`grep wims_class=$c_ ./*/var.stat | cut -d: -f1`;\
               grep "wims_user=" $$s | cut -d= -f2;
    !if $ltuser!=$empty
      ltuser=!words2items $ltuser
      ltuser=!replace anonymous by $empty in $ltuser
    !endif
    cllimit=!defof class_limit in wimshome/log/classes/$c_/.def
    !if $cllimit=$empty
      cllimit=!defof class_user_limit in wimshome/log/wims.conf
      !if $cllimit=$empty
        cllimit=!defof DF_class_limit in wimshome/public_html/bases/sys/defaults.conf
      !endif
    !endif
    dispo=$[rint($cllimit/2)]
    dispo=!values v for v=1 to $dispo
    dispo=,$dispo
    dispo=!listcomplement $ltuser in $dispo
    dispo=!nospace $dispo
  !endif
  !if $dispo=$empty
    !restart module=adm/class/classes/&+job=example&+fullcls=1
  !else
    num=!item 1 of $dispo
    test=!fileexists wimshome/log/classes/$c_/.users/anonymous$num
    !if $test!=yes
      nbuser=!recordcnt wimshome/log/classes/$c_/.userlist
      !if $cllimit=$empty
        cllimit=!defof class_limit in wimshome/log/classes/$c_/.def
        !if $cllimit=$empty
          cllimit=!defof class_user_limit in wimshome/log/wims.conf
          !if $cllimit=$empty
            cllimit=!defof DF_class_limit in wimshome/public_html/bases/sys/defaults.conf
          !endif
        !endif
      !endif
      !if $nbuser<=$cllimit
        !sh cp $wims_home/log/classes/$c_/.users/anonymous $wims_home/log/classes/$c_/.users/anonymous$num
        !readproc adm/class/mkuserlist $c_
      !else
        !restart module=adm/class/classes/&+job=example&+fullcls=1
      !endif
    !endif
    output_user=anonymous$num
    dispo=!item 2 to -1 of $dispo
    !writefile wimshome/log/classes/$c_/freelogin :$wims_nowseconds\
:$dispo
  !endif
!else
  output_user=$u_
!endif