Subversion Repositories wimsdev

# GetSession
# Ouvre une session WIMS et renvoit l'ID
#
# Sample usage :
# /wims.cgi?module=adm/raw&job=getsession&format=json&data1=adm/createxo

!if $ident_type=$empty and $format != $empty
  !set ident_type=$format
!endif

dir_session=sessions/$wims_session
allowed_modules = adm/createxo

q_module = !word 1 of $data1
!bound q_module within $allowed_modules

!set log = !sh cp $wims_home/$dir_session/var $wims_home/$dir_session/var.def
!!log = !sh mv $wims_home/$dir_session/var $wims_home/$dir_session/var.def

!if $q_module != $empty
  !setdef w_module=$q_module in wimshome/$dir_session/var.def
  !set w_module=$q_module
  !set wims_module=$q_module
  !set module=$q_module
!endif


!set r_=!record 0 of wimshome/$dir_session/var



!!sh mv wimshome/$dir_session/var
!set log2 = !sh cp $wims_home/$dir_session/var.def $wims_home/$dir_session/var