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_
 !if $c_=$empty
  !exit
 !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_
 !endif
 !if $p_=$empty or $p_!=$pck
  !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