Subversion Repositories wimsdev

 !if $wims_ismanager<2

  !if $wims_ismanager<2

  auth_password=

    auth_password=

 !else

  !else

  !goto auth_ok

    !goto auth_ok

 !endif

  !endif

 !if $agreecgu=yes

  !if $agreecgu=yes

  !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu

    !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu

  !setdef !set user_agreecgu=yes in $userdef

    !setdef !set user_agreecgu=yes in $userdef

  !readdef $userdef

    !readdef $userdef

  !reset error

    !reset error

  !if $auth_test=OK

    !if $auth_test=OK

     !goto auth_ok2

      !goto auth_ok2

 !!!reset $save_logincgu

  !!!reset $save_logincgu

 authdef=wimshome/log/classes/$superclass/.def

  authdef=wimshome/log/classes/$superclass/.def

FIXME ### Have to check that sclass is no yet useful

##FIXME ### Have to check that sclass is no yet useful

 upartic=!defof user_participate in $userdef

  upartic=!defof user_participate in $userdef

 usuperv=!defof user_supervise in $userdef

  usuperv=!defof user_supervise in $userdef

 pclass=!defof class_parent in wimshome/log/classes/$class/.def

  pclass=!defof class_parent in wimshome/log/classes/$class/.def

 !if / isin $pclass and ../$pclass/ isin ../$class

  !if / isin $pclass and ../$pclass/ isin ../$class

  ss=!defof class_ocourses in wimshome/log/classes/$pclass/.def

    ss=!defof class_ocourses in wimshome/log/classes/$pclass/.def

  !if $ss!=$empty

    !if $ss!=$empty

   ss=!makelist $wims_superclass/xx for xx in $ss

      ss=!makelist $wims_superclass/xx for xx in $ss

   upartic=!append item $ss to $upartic

      upartic=!append item $ss to $upartic

  !endif

    !endif

 !endif

  !endif

 coursecheck=!defof user_class in wimshome/log/classes/$class/.users/$auth_user

  coursecheck=!defof user_class in wimshome/log/classes/$class/.users/$auth_user

 !if $coursecheck!=$empty

  !if $coursecheck!=$empty

  upartic=!append item $class to $upartic

    upartic=!append item $class to $upartic

 !endif

  !endif

 !!check mandatory course

  !!check mandatory course

 dcourse=!record 0 of wimshome/log/classes/$pclass/courses

  dcourse=!record 0 of wimshome/log/classes/$pclass/courses

 dcourse=!column 1 of $dcourse

  dcourse=!column 1 of $dcourse

 !if $dcourse!=$empty

  !if $dcourse!=$empty

     dcourse=!makelist $wims_superclass/xx for xx in $dcourse

    dcourse=!makelist $wims_superclass/xx for xx in $dcourse

     upartic=!append item $dcourse to $upartic

    upartic=!append item $dcourse to $upartic

 !endif

  !endif

 upartic=!listuniq $upartic

  upartic=!listuniq $upartic

 !if $auth_user=supervisor and $wims_user=supervisor

  !if $auth_user=supervisor and $wims_user=supervisor

  ctype=!defof class_typename in wimshome/log/classes/$class/.def

    ctype=!defof class_typename in wimshome/log/classes/$class/.def

  prog=!defof sharing_exam in wimshome/log/classes/$class/neighbors

    prog=!defof sharing_exam in wimshome/log/classes/$class/neighbors

  !if $ctype iswordof course icourse and $prog=$wims_class

    !if $ctype iswordof course icourse and $prog=$wims_class

   pass=$current_pass

      pass=$current_pass

  !endif

    !endif

 !endif

  !endif

!!upartic : no more authentification should check for optional courses ?

  !!upartic : no more authentification should check for optional courses ?

 !if $class notitemof $upartic and $auth_user!=supervisor and $wims_user!=supervisor

  !if $class notitemof $upartic and $auth_user!=supervisor and $wims_user!=supervisor

  pass=

    pass=

 !endif

  !endif

# These lines should be opened later to close this possibility.

  # These lines should be opened later to close this possibility.

# !if $auth_user=supervisor and $wims_user=$empty

  # !if $auth_user=supervisor and $wims_user=$empty

#  pass=

  #  pass=

# !endif

  # !endif

!endif

!endif

 !goto wimsauth

  !goto wimsauth

 !if $exist_check issametext yes

  !if $exist_check issametext yes

   !goto auth_ok

    !goto auth_ok

 !else

  !else

   !setdef user_auth=$auth_user_orig in wimshome/$wims_sesdir/var.stat

    !setdef user_auth=$auth_user_orig in wimshome/$wims_sesdir/var.stat

   !goto end

    !goto end

 !endif

  !endif

 passwd=????

  passwd=????

 !appendfile $logfile $logline

  !appendfile $logfile $logline

 auth_user=$auth_user_connection

  auth_user=$auth_user_connection

 error=bad_password

  error=bad_password

 !exit

  !exit

!endif

!endif

 supervisable=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$wims_user

  supervisable=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$wims_user

 !if $supervisable!=yes

  !if $supervisable!=yes

  current_pass=

    current_pass=

 !endif

  !endif

		(../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \

	  (../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \

 !goto auth_ok

  !goto auth_ok

 !exit

  !exit

!endif

!endif

 passwd=??????

  passwd=??????

 !appendfile $logfile $logline

  !appendfile $logfile $logline

 auth_user=$auth_user_orig

  auth_user=$auth_user_orig

 error=bad_password

  error=bad_password

 !exit

  !exit

 userdef_save=$userdef

  userdef_save=$userdef

 !read adm/class/userdef classes,$wims_class,$wims_user

  !read adm/class/userdef classes,$wims_class,$wims_user

 !exchange userdef_save,userdef

  !exchange userdef_save,userdef

 spv=!defof user_supervisable in $userdef_save

  spv=!defof user_supervisable in $userdef_save

 !if $spv=yes

  !if $spv=yes

  wims_supervise=!append item $class to $wims_supervise

    wims_supervise=!append item $class to $wims_supervise

  !setdef !set user_supervise=$wims_supervise in $userdef_save

    !setdef !set user_supervise=$wims_supervise in $userdef_save

 !endif

  !endif

 passwd=OK$n   $

  passwd=OK$n   $

 passwd=$wims_class

  passwd=$wims_class

 pass=!replace word $auth_password by $ in $pass

  pass=!replace word $auth_password by $ in $pass

 pass=!singlespace $pass

  pass=!singlespace $pass

 pass=!trim $pass

  pass=!trim $pass

 !setdef !set user_password=$pass in $userdef

  !setdef !set user_password=$pass in $userdef

 utest=!itemcnt $user_participate

  utest=!itemcnt $user_participate

 !if $utest=1 and / isin $user_participate

  !if $utest=1 and / isin $user_participate

  class=!item 1 of $user_participate

    class=!item 1 of $user_participate

  !defread wimshome/log/classes/$class/.def

    !defread wimshome/log/classes/$class/.def

 !endif

  !endif

 sech=!defof class_secure in wimshome/log/classes/$class/.def

  sech=!defof class_secure in wimshome/log/classes/$class/.def

 sech=!trim $sech

  sech=!trim $sech

 !if $sech=$empty

  !if $sech=$empty

  t=0

    t=0

 !else

  !else

  t=!checkhost $sech

    t=!checkhost $sech

  !if $t<1

    !if $t<1

   t=-1

      t=-1

  !endif

    !endif

 !endif

  !endif

 sup_secure=$t

  sup_secure=$t

 !read adm/class/raftest

  !read adm/class/raftest

 !if $raftest>$lastallow

  !if $raftest>$lastallow

  error=recent_rafale

    error=recent_rafale

  !exit

    !exit

 !endif

  !endif

 sup_secure=-1

  sup_secure=-1

 !if $user_agreecgu notwordof yes external and $agreecgu!=yes

  !if $user_agreecgu notwordof yes external and $agreecgu!=yes

  error=no_cgu

    error=no_cgu

  !exit

    !exit

 !endif

  !endif

!endif

!endif

 !if $auth_user=supervisor

  !if $auth_user=supervisor

  !appendfile $logfiles $now $httpd_REMOTE_ADDR   	supervisor login

    !appendfile $logfiles $now $httpd_REMOTE_ADDR   	supervisor login

 !else

  !else

  !appendfile $logfile $logline

    !appendfile $logfile $logline

 !endif

  !endif

 !usererror class_closed

  !usererror class_closed

 !exit

  !exit

 !set wims_protocol=https

  !set wims_protocol=https

 !writefile wimshome/$wims_sesdir/var.class.prep $classdef

  !writefile wimshome/$wims_sesdir/var.class.prep $classdef

 random=!randint 10^5,10^9

  random=!randint 10^5,10^9

 !restart session=new.$random&lang=$clang&old_session=$wims_session&module=home

  !restart session=new.$random&lang=$clang&old_session=$wims_session&module=home

 !setdef $classdef in wimshome/$wims_sesdir/var.stat

  !setdef $classdef in wimshome/$wims_sesdir/var.stat

 !sh cd $wims_home\

  !sh cd $wims_home\

 	rm -Rf $(wims_sesdir)_*\

   	rm -Rf $(wims_sesdir)_*\

	mkdir -p log/classes/$class/score $wims_sesdir/getfile\

  	mkdir -p log/classes/$class/score $wims_sesdir/getfile\

	rm -f $wims_sesdir/exam*\

  	rm -f $wims_sesdir/exam*\

	rm -f $wims_sesdir/getfile/oefimages\

  	rm -f $wims_sesdir/getfile/oefimages\

	ln -s $wims_home/log/classes/$class/src/images $wims_sesdir/getfile/oefimages

  	ln -s $wims_home/log/classes/$class/src/images $wims_sesdir/getfile/oefimages

 !restart lang=$clang&module=home

  !restart lang=$clang&module=home