Subversion Repositories wimsdev

Rev

Rev 2732 | Rev 3666 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2732 Rev 3261
Line 2... Line 2...
2 
 !changeto jobs/lightpopup.proc
 2 
 !changeto jobs/lightpopup.proc
3 
!endif
 3 
!endif
- 
 
 4 
 
4 
wims_prefix=class user tmp n sharing sharable ident
 5 
wims_prefix=class user tmp n sharing sharable ident
5 
!if $job=help
 6 
!if $job=help
6 
 wims_module_log=help
 7 
 wims_module_log=help
7 
 !exit
 8 
 !exit
8 
!endif
 9 
!endif
- 
 
 10 
 
9 
!read defs
 11 
!read defs
10 
 
 12 
 
11 
job=!lower $job
 13 
job=!lower $job
12 
!bound job within $allowed_actions_jobs,$allowed_file_jobs default $
 14 
!bound job within $allowed_actions_jobs,$allowed_file_jobs,$allowed_jobs_without_auth default $
13 
option=!items2words $option
 15 
option=!items2words $option
14 
option=!words2items $option
 16 
option=!words2items $option
15 
code=!word 1 of $code
 17 
code=!word 1 of $code
16 
 
 18 
 
- 
 
 19 
 
- 
 
 20 
!if $job notin $allowed_jobs_without_auth or $ident != $empty
17 
# le script autchars permet de definir les listes de caracteres alphanumeriques et de ponctuation
 21 
	# le script autchars permet de definir les listes de caracteres alphanumeriques et de ponctuation
18 
# il definit egalement la fourchette de longueur autorise des login/mdp
 22 
	# il definit egalement la fourchette de longueur autorise des login/mdp
19 
!read adm/class/authchars
 23 
	!read adm/class/authchars
- 
 
 24 
	# Le script var.check verifie l'authentification de l'utilisateur
20 
!read var.check
 25 
	!read var.check
- 
 
 26 
!endif
21 
 
 27 
 
22 
!if $error=$empty
 28 
!if $error=$empty
23 
 !read jobs/$job.proc
 29 
 !read jobs/$job.proc
24 
!endif
 30 
!endif
25 
 
 31 
 
26 
#Lorsque l'on sort de la procedure "job", il ne doit tjs pas y avoir d'erreur.
 32 
#Lorsque l'on sort de la procedure "job", il ne doit tjs pas y avoir d'erreur.
27 
!if $error!=$empty
 33 
!if $error!=$empty
28 
 !changeto error.proc $error
 34 
 !changeto error.proc $error
29 
!endif
 35 
!endif
30 
 
 36 
 
31 
!if $code=$empty
 37 
!if $code=$empty
- 
 
 38 
  !if $ident_type != xmlformat
32 
 ok=OK
 39 
	ok=OK
- 
 
 40 
  !else
- 
 
 41 
  	ok=<?xml version="1.0" encoding="$encoding"?>\
- 
 
 42 
<!DOCTYPE methodResponse PUBLIC "XML9-RPC" "http://ticewims.unice.fr/xml-rpc/xml-rpc.dtd">\
- 
 
 43 
<methodResponse xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://ticewims.unice.fr/xml-rpc/xml-rpc.xsd">\
- 
 
 44 
<params><param><value><string>OK</string></value></param>
- 
 
 45 
  !endif
33 
!else
 46 
!else
- 
 
 47 
  !if $ident_type != xmlformat
34 
 ok=OK $code
 48 
	ok=OK $code$ident_type
- 
 
 49 
  !else
- 
 
 50 
  	ok=<?xml version="1.0" encoding="$encoding"?>\
- 
 
 51 
<!DOCTYPE methodResponse PUBLIC "XML9-RPC" "http://ticewims.unice.fr/xml-rpc/xml-rpc.dtd">\
- 
 
 52 
<methodResponse xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://ticewims.unice.fr/xml-rpc/xml-rpc.xsd">\
- 
 
 53 
	<params><param><value><struct><member>\
- 
 
 54 
		<name>code</name>\
- 
 
 55 
		<value><string>$code</string></value>\
- 
 
 56 
	</member>\
- 
 
 57 
 
- 
 
 58 
  !endif
- 
 
 59 
!endif
- 
 
 60 
 
- 
 
 61 
!if $ident_type != xmlformat
- 
 
 62 
	!shortout $header\
- 
 
 63 
 
- 
 
 64 
!else
- 
 
 65 
	!shortout $header_xml\
- 
 
 66 
 
35 
!endif
 67 
!endif
36 
 
 68 
 
37 
!shortout $header\
 - 
 
38 
 
 69 
 
39 
 
 70 
 
40 
!if $job isitemof $allowed_actions_jobs
 71 
!if $job isitemof $allowed_actions_jobs
41 
 !shortout $ok\
 72 
 !shortout $ok\
42 
 
 73