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 |
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 |
|
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 |
|
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 |