diff options
| -rw-r--r-- | captain/db.f90 | 50 | ||||
| -rw-r--r-- | captain/external.f90 | 60 |
2 files changed, 103 insertions, 7 deletions
diff --git a/captain/db.f90 b/captain/db.f90 index 5fbd0b4..e191af7 100644 --- a/captain/db.f90 +++ b/captain/db.f90 @@ -1,7 +1,9 @@ module captain_db use sqlite implicit none - + + integer, parameter::PLAYER_NAME_LENGTH = 128 + character(1024)::database_file type(c_ptr)::db @@ -33,11 +35,20 @@ contains subroutine add_player_db(name, token) implicit none - character(*), intent(in)::name, token + character(*), intent(in)::name + character(*), intent(in), optional::token type(sqlite3_stmt)::stmt + + character(64)::my_token + + if(present(token)) then + my_token = token + else + my_token = "None" + end if if(stmt%prepare(db, "INSERT INTO players(name, token) VALUES(?, ?)") == SQLITE_OK) then - if(stmt%bind_text(1, name) == SQLITE_OK .and. stmt%bind_text(2, token) == SQLITE_OK) then + if(stmt%bind_text(1, name) == SQLITE_OK .and. stmt%bind_text(2, my_token) == SQLITE_OK) then call stmt%step_now() end if end if @@ -45,6 +56,37 @@ contains end subroutine add_player_db + subroutine update_player_token_db(name, token) + implicit none + + character(*), intent(in)::name + character(*), intent(in)::token + type(sqlite3_stmt)::stmt + + if(stmt%prepare(db, "UPDATE players SET token=? WHERE name=?") == SQLITE_OK) then + if(stmt%bind_text(2, name) == SQLITE_OK .and. stmt%bind_text(1, token) == SQLITE_OK) then + call stmt%step_now() + end if + end if + call stmt%finalize() + + end subroutine update_player_token_db + + subroutine remove_player_db(name) + implicit none + + character(*), intent(in)::name + type(sqlite3_stmt)::stmt + + if(stmt%prepare(db, "DELETE FROM players WHERE name=?") == SQLITE_OK) then + if(stmt%bind_text(1, name) == SQLITE_OK) then + call stmt%step_now() + end if + end if + call stmt%finalize() + + end subroutine remove_player_db + function get_player_count() implicit none @@ -65,7 +107,7 @@ contains implicit none type(sqlite3_stmt)::stmt - character(len=256), dimension(:), pointer::res + character(len=PLAYER_NAME_LENGTH), dimension(:), pointer::res integer::i,n n = get_player_count() diff --git a/captain/external.f90 b/captain/external.f90 index aa65e71..3ec018f 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -4,18 +4,58 @@ 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 + use config, only: template_filepath, project use logging, only: write_log implicit none character(*), intent(in)::request character(len=:), pointer::disk_filename - integer::renderunit character(1024)::template_file type(template)::page - character(16)::log_tmp + character(len=:), pointer::contents ! Open the base template call template_filepath("index.gmi", template_file) @@ -37,6 +77,18 @@ contains 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 @@ -48,6 +100,8 @@ contains end if + call page%assign('project', project) + call page%render() disk_filename => page%output_filename |