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