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