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
|
module external_handling
implicit none
contains
function generate_players_gemini() result(res)
use captain_db
implicit none
character(len=:), pointer::res
character(len=PLAYER_NAME_LENGTH), dimension(:), pointer::players
integer::n, i, nsize
character(len=3*PLAYER_NAME_LENGTH)::one_player
n = get_player_count()
if(n == 0) then
allocate(character(len=1024) :: res)
res = "None Yet"
else
res = "## Existing Players"
players => get_player_names()
nsize = 1024
do i = 1, size(players)
nsize = nsize + 16 + 2*len_trim(players(i))
end do
allocate(character(len=nsize) :: res)
do i = 1, n
one_player = "=> /players/"//trim(players(i))//".gmi "//trim(players(i))
res = trim(res)//new_line(res(1:1))//trim(one_player)
end do
deallocate(players)
end if
res = trim(res)//new_line(res(1:1))//"## Management"// &
new_line(res(1:1))//"=> /players/add.gmi Add Player"
end function generate_players_gemini
function external_request_gemini(request) result(disk_filename)
use page_template
use config, only: template_filepath, project
use logging, only: write_log
implicit none
character(*), intent(in)::request
character(len=:), pointer::disk_filename
character(1024)::template_file
type(template)::page
character(len=:), pointer::contents
! Open the base template
call template_filepath("index.gmi", template_file)
call page%init(trim(template_file))
if(trim(request) == "/" .or. trim(request) == "/index.gmi") then
call page%assign('title', 'Home')
else if(trim(request) == "/releases.gmi") then
call page%assign('title', 'Releases')
else if(trim(request) == "/jobs.gmi") then
call page%assign('title', 'Jobs')
else if(trim(request) == "/players.gmi") then
call page%assign('title', 'Players')
contents => generate_players_gemini()
call page%assign('contents', contents)
else if(request(1:9) == '/players/') then
if(trim(request) == "/players/add.gmi") then
! Need input!
else
end if
else if(trim(request) == "/about.gmi") then
call page%assign('title', 'About')
else
call page%assign('title', 'Not Found')
end if
call page%assign('project', project)
call page%render()
disk_filename => page%output_filename
end function external_request_gemini
end module external_handling
|