Subversion Repositories wimsdev

!if $job=lightpopup
 !changeto jobs/lightpopup.proc
!endif

wims_prefix=class user tmp n sharing sharable ident
!if $job=help or $job=$empty
 wims_module_log=help
 !exit
!endif

!read defs

job=!lower $job
!bound job within $allowed_actions_jobs,$allowed_file_jobs,$allowed_jobs_without_auth default $
option=!items2words $option
option=!words2items $option
code=!word 1 of $code


!if $job notin $allowed_jobs_without_auth or $ident != $empty
        # le script autchars permet de definir les listes de caracteres alphanumeriques et de ponctuation
        # il definit egalement la fourchette de longueur autorise des login/mdp
        !read adm/class/authchars
        # Le script var.check verifie l'authentification de l'utilisateur
        !read var.check
!endif

!if $job isin $allowed_jobs_without_auth
  !default ident_type=json
!endif

!if $error=$empty
 !read jobs/$job.proc
!endif

notplaintext = xmlformat json

#Lorsque l'on sort de la procedure "job", il ne doit tjs pas y avoir d'erreur.
!if $error!=$empty
 !changeto error.proc $error
!endif

!if $code=$empty
  !if $ident_type notwordof $notplaintext
        ok=OK
  !else
        !if $ident_type=xmlformat
                ok=<params><param><value><string>OK</string></value></param>
        !endif
        !if $ident_type=json
                ok={"status" : "OK"
        !endif
  !endif
!else
  !if $ident_type notwordof $notplaintext
        ok=OK $code
  !else
        !if $ident_type=xmlformat
         ok=<params><param><value><struct>\
         <member>\
                <name>code</name>\
                <value><string>$code</string></value>\
         </member>\

        !endif
        !if $ident_type=json
                ok={"status" : "OK","code":"$code"
        !endif
  !endif
!endif

!if $job isitemof $allowed_file_jobs
 !if $job isitemof getclasstgz,getibookwidget
        !shortout $header_zip\
Content-Disposition: attachment; filename=$given_fname;\
\


 !else
        !shortout $header\

 !endif

 !sh cat $wims_home/$fname

 !exit
!endif


!if $ident_type notwordof $notplaintext
        !shortout $header\

!else
 !if $ident_type iswordof xmlformat
        !shortout $header_xml\
<?xml version="1.0" encoding="$encoding"?>\
<!DOCTYPE methodResponse PUBLIC "XML9-RPC" "http://ticewims.unice.fr/xml-rpc/xml-rpc.dtd">\
<methodResponse xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://ticewims.unice.fr/xml-rpc/xml-rpc.xsd">\

 !endif
 !if $ident_type=json
        !shortout $header_json\

 !endif

!endif

!if $job isitemof $allowed_actions_jobs
 !shortout $ok\

 !read types/$ident_type
!endif

!if $job notwordof authuser getsession
 wims_mode=popup
!endif

wims_module_log=$job $ident -> $qclass $quser