Subversion Repositories wimsdev

Rev

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