Rev 3666 | Rev 4118 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3666 | Rev 3996 | ||
---|---|---|---|
Line 26... | Line 26... | ||
26 | !endif |
26 | !endif |
27 | 27 | ||
28 | !if $error=$empty |
28 | !if $error=$empty |
29 | !read jobs/$job.proc |
29 | !read jobs/$job.proc |
30 | !endif |
30 | !endif |
- | 31 | ||
- | 32 | notplaintext = xmlformat json |
|
31 | 33 | ||
32 | #Lorsque l'on sort de la procedure "job", il ne doit tjs pas y avoir d'erreur. |
34 | #Lorsque l'on sort de la procedure "job", il ne doit tjs pas y avoir d'erreur. |
33 | !if $error!=$empty |
35 | !if $error!=$empty |
34 | !changeto error.proc $error |
36 | !changeto error.proc $error |
35 | !endif |
37 | !endif |
36 | 38 | ||
37 | 39 | ||
38 | notplaintext = xmlformat json |
- | |
- | 40 | ||
39 | 41 | ||
40 | !if $code=$empty |
42 | !if $code=$empty |
41 | !if $ident_type notwordof $notplaintext |
43 | !if $ident_type notwordof $notplaintext |
42 | ok=OK |
44 | ok=OK |
43 | !else |
45 | !else |
Line 59... | Line 61... | ||
59 | <value><string>$code</string></value>\ |
61 | <value><string>$code</string></value>\ |
60 | </member>\ |
62 | </member>\ |
61 | 63 | ||
62 | !endif |
64 | !endif |
63 | !if $ident_type=json |
65 | !if $ident_type=json |
64 | ok=[{"status" : "OK","code":"$code" |
66 | ok=[{"status" : "OK","code":"$code" |
65 | !endif |
67 | !endif |
66 | !endif |
68 | !endif |
67 | !endif |
69 | !endif |
68 | 70 | ||
- | 71 | !if $job isitemof $allowed_file_jobs |
|
- | 72 | !if job=getclasstgz |
|
- | 73 | !shortout Content-type: application/gzip\ |
|
- | 74 | Content-disposition: attachment; filename="getclass.tgz"\ |
|
- | 75 | ||
- | 76 | !else |
|
- | 77 | !shortout $header\ |
|
- | 78 | ||
- | 79 | !endif |
|
- | 80 | ||
- | 81 | !sh cat $wims_home/$fname |
|
- | 82 | ||
- | 83 | !exit |
|
- | 84 | !endif |
|
69 | 85 | ||
70 | 86 | ||
71 | !if $ident_type notwordof $notplaintext |
87 | !if $ident_type notwordof $notplaintext |
72 | !shortout $header\ |
88 | !shortout $header\ |
73 | 89 | ||
Line 92... | Line 108... | ||
92 | !shortout $ok\ |
108 | !shortout $ok\ |
93 | 109 | ||
94 | !read types/$ident_type |
110 | !read types/$ident_type |
95 | !endif |
111 | !endif |
96 | 112 | ||
97 | !if $job isitemof $allowed_file_jobs |
- | |
98 | !sh cat $wims_home/$fname |
- | |
99 | !endif |
- | |
100 | 113 | ||
101 | !if $job notwordof authuser |
114 | !if $job notwordof authuser |
102 | wims_mode=popup |
115 | wims_mode=popup |
103 | !endif |
116 | !endif |
104 | 117 |