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