Subversion Repositories wimsdev

!if robot isin $session
  !exit
!endif

# search commands carried thru from internet search engines
Swords=q p query search MT Keywords

!if $old_session!=$empty and .. notin $old_session and \
        / notin $old_session and _ notin $session
  classdef=!record 0 of wimshome/sessions/$old_session/var.class.prep
  !if wims_ notin $classdef
    !exit
  !endif
  wims_ismanager=!defof w_wims_ismanager in wimshome/sessions/$old_session/var
  !setdef $classdef in wimshome/$wims_sesdir/var.stat
  !writefile wimshome/sessions/$old_session/var.class.prep
  n=!linecnt $classdef
  classdef=!translate = to , in $classdef
  !for i=1 to $n
    l=!line $i of $classdef
    n_=!item 1 of $l
    v_=!item 2 to -1 of $l
    $n_=$v_
  !next i
  !sh cd $wims_home\
         mkdir -p log/classes/$wims_class/score $wims_sesdir/getfile\
         rm -f $wims_sesdir/getfile/oefimages\
         ln -s $wims_home/log/classes/$wims_class/src/images $wims_sesdir/getfile/oefimages
!endif

!if $user!=$empty and _ notin $session
  !read ./adm/class/authchars
  !distribute items $user into u_,c_,p_
  c_=!text select $char_alnum/ in $c_
  u_=!translate internal . to @ in $u_
  u_=!text select $char_login in $u_
  p_=!text select $char_passwd in $p_
  test=!filexists wimshome/log/classes/$c_/.def
  !if $c_=$empty or $test!=yes
    !exit
  !endif
  !! ---------- process manage of anonymous connexion to example class
  !if / notin $c_ and $c_<=9999 and anonymous isin $u_
    !readproc adm/class/anonymous.proc $c_,$u_
    u_=$output_user
  !endif
  !if $u_=supervisor
    ut=supervisor
  !else
    ut=participant
  !endif
  sclass=!defof class_superclass in wimshome/log/classes/$c_/.def
  !read ./adm/class/userdef logclasses,$c_,$u_
  !if $sclass!=$empty and $sclass!=$class
    upartic=!defof user_participate in $userdef
    usuperv=!defof user_supervise in $userdef
    !if $class notitemof $upartic and $u_!=supervisor
      pass=
    !endif
  !endif
  !if $p_!=$empty and $c_>0
    pck=!defof user_password in $userdef
    pck=!passcrypt $pck
    pck=!word 1 of $pck
  !endif
  !read ./adm/class/authdelay
  !if ? isin $auth_password
    p_=$auth_password
  !else
    p_=!passcrypt $p_
    pass_check=!passcheck $p_ and $pck
  !endif
  !if $p_=$empty or $pass_check!=yes
    !writefile wimshome/$wims_sesdir/lastauth
    !set authidp_method=!defof class_authidp in wimshome/log/classes/$c_/.def
    !set class_auth=$(authidp_method[1;])
    !if $class_auth iswordof cas ldap php
      !restart module=adm/class/classes&type=participant
    !else
      !restart module=adm/class/classes&type=auth$ut&class=$c_&auth_user=$u_&changesession=no
    !endif
  !else
    !read ./var.auth
  !endif
!endif