1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
module request_utils
implicit none
contains
pure function success_code(req)
use gemini_protocol, only: GEMINI_SUCCESS => STATUS_SUCCESS
use http, only: HTTP_SUCCESS => HTTP_CODE_SUCCESS
use server_response, only: request
implicit none
class(request), intent(in)::req
integer::success_code
if(req%protocol == 'gemini') then
success_code = GEMINI_SUCCESS
else
success_code = HTTP_SUCCESS
end if
end function success_code
pure function notfound_code(req)
use gemini_protocol, only: GEMINI_FAIL => STATUS_PERMFAIL
use http, only: HTTP_FAIL => HTTP_CODE_NOTFOUND
use server_response, only: request
implicit none
class(request), intent(in)::req
integer::notfound_code
if(req%protocol == 'gemini') then
notfound_code = GEMINI_FAIL
else
notfound_code = HTTP_FAIL
end if
end function notfound_code
subroutine basic_mimetype(actual_filename, mimetype)
use utilities, only: get_one_line_output_shell_command
implicit none
character(*), intent(in)::actual_filename
character(*), intent(out)::mimetype
logical::exists
! Check for gemini first since it's fake...
if(index(actual_filename, ".gmi") /= 0) then
mimetype = "text/gemini"
else
inquire(file=actual_filename, exist=exists)
if(exists) then
call get_one_line_output_shell_command("mimetype -b "//trim(actual_filename), mimetype)
else
! If it doesn't exist, use the extension dumbly
if(index(actual_filename, ".txt") /= 0) then
mimetype = "text/plain"
else if(index(actual_filename, ".json") /= 0) then
mimetype = "text/plain"
else if(index(actual_filename, ".html") /= 0) then
mimetype = "text/html"
else if(index(actual_filename, ".css") /= 0) then
mimetype = "text/css"
! Just a catch-all, whatever...
else
mimetype = "application/octet-stream"
end if
end if
end if
end subroutine basic_mimetype
pure function get_status_utf8(status) result(res)
use captain_db
implicit none
integer, intent(in)::status
character(4)::res
select case(status)
case(JOB_STATUS_SUCCESS)
! Check mark 0x2714
res = char(226)//char(156)//char(148)//" "
case(JOB_STATUS_FAILURE)
! Ballot x 0x2717
res = char(226)//char(156)//char(151)//" "
case(JOB_STATUS_WORKING)
! Runner 0x1f3c3
res = char(240)//char(159)//char(143)//char(131)
case(PLAYER_STATUS_IDLE)
! Sleeping 0x1f4a4
res = char(240)//char(159)//char(146)//char(164)
case(JOB_STATUS_PENDING)
! Envelope 0x2709
res = char(226)//char(156)//char(137)//" "
end select
end function get_status_utf8
function is_request_static(req)
use server_response
use logging
implicit none
class(request), intent(in)::req
logical::is_request_static
character(64)::first, last
character(4)::ext
integer::j
call req%path_component(1, first)
call req%last_component(last)
j = index(last, ".", back=.true.)
if(j > 0) then
ext = last(j+1:len_trim(last))
else
ext = " "
end if
call write_log("Static check: "//trim(first), LOG_DEBUG)
is_request_static = ((trim(first) == "releases") .or. &
(trim(first) == "uploads") .or. &
(trim(first) == "results") .or. &
(trim(first) == "static") .or. &
(trim(first) == "favicon.txt") .or. &
(trim(first) == "instructions" .and. trim(ext) == "json"))
end function is_request_static
function request_static(req) result(resp)
use logging
use config
use utilities
use server_response
use special_filenames
implicit none
class(request), intent(in)::req
type(response)::resp
character(64)::category
character(256)::filename
logical::exists
resp%temporary_file = .false.
call req%path_component(1, category)
call req%path_starting_with_component(2, filename)
resp%body_filename => get_special_full_filename(trim(category), trim(filename))
inquire(file=resp%body_filename, exist=exists)
if(.not. exists) then
resp%code = notfound_code(req)
call write_log("File did not exist: "//resp%body_filename, LOG_NORMAL)
else
resp%code = success_code(req)
call basic_mimetype(resp%body_filename, resp%body_mimetype)
end if
end function request_static
function render_jobs_links(jobs, startindex, stopindex, gemini_mode) result(res)
use captain_db
implicit none
type(job), dimension(:), pointer, intent(in)::jobs
integer, intent(in), optional::startindex, stopindex
logical, intent(in)::gemini_mode
character(len=:), pointer::res
integer::nsize, i, first, last
character(len=16)::int_text
character(len=(2*PLAYER_NAME_LENGTH + 64))::link
character(PLAYER_NAME_LENGTH)::player, instruction
character(1)::nl = new_line(' ')
if(.not. associated(jobs)) then
allocate(character(len=32)::res)
res = "None Yet"
else
first = 1
if(present(startindex)) then
first = startindex
end if
last = size(jobs)
if(present(stopindex)) then
last = min(size(jobs), stopindex)
end if
if(first <= last .and. first <= size(jobs)) then
nsize = (last-first+1)*(2*PLAYER_NAME_LENGTH + 64) + 32
allocate(character(len=nsize) :: res)
if(gemini_mode) then
res = " "
else
res ="<ul>"
end if
do i = first, last
call get_instruction_name(jobs(i)%instruction, instruction)
call get_player_name(jobs(i)%player, player)
write(int_text, '(I8)') jobs(i)%id
if(gemini_mode) then
link = "=> jobs/"//trim(adjustl(int_text))//".gmi "// &
trim(get_status_utf8(jobs(i)%status))//" Job "// &
trim(adjustl(int_text))//" - "//trim(instruction)
res = trim(res)//nl//nl//trim(link)
else
res = trim(res)//nl//' <li><div class="job_result_listitem">'
link = ' <p><strong><a href="jobs/'//trim(adjustl(int_text))//'.html" >'// &
trim(get_status_utf8(jobs(i)%status))//" Job "// &
trim(adjustl(int_text))//" - "//trim(instruction)// &
'</a></strong></p>'
res = trim(res)//nl//trim(link)//nl//" <p><em>"
endif
select case(jobs(i)%status)
case(JOB_STATUS_SUCCESS, JOB_STATUS_FAILURE)
res = trim(res)//nl//"Completed on"
case(JOB_STATUS_PENDING)
res = trim(res)//nl//"Waiting to run on"
case(JOB_STATUS_WORKING)
res = trim(res)//nl//"Running on"
end select
res = trim(res)//" "//trim(player)// &
" - Last Update: "//trim(jobs(i)%time)
if(.not. gemini_mode) then
res = trim(res)//"</em></p>"//nl//" </div></li>"
end if
end do
if(.not. gemini_mode) then
res = trim(res)//nl//"</ul>"
end if
else
! Indices exceed array
allocate(character(len=64)::res)
write(int_text, '(I8)') first
res = "None at index "//trim(adjustl(int_text))//" or beyond"
end if
end if
end function render_jobs_links
end module request_utils
|