38 lines
782 B
Fortran
38 lines
782 B
Fortran
|
program main
|
||
|
|
use, intrinsic :: iso_c_binding
|
||
|
|
use iso_fortran_env
|
||
|
|
use :: sqlite3
|
||
|
|
use db
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
|
||
|
|
character, dimension(:), allocatable :: form_data
|
||
|
|
character(len=128):: db_path
|
||
|
|
integer :: err, i, length
|
||
|
|
logical :: exist
|
||
|
|
|
||
|
|
inquire (file="debug.log", exist=exist)
|
||
|
|
if (exist) then
|
||
|
|
open (12, file="debug.log", status="old", position="append", action="write")
|
||
|
|
else
|
||
|
|
open (12, file="debug.log", status="new", action="write")
|
||
|
|
end if
|
||
|
|
|
||
|
|
! do while not logged out
|
||
|
|
|
||
|
|
! read message from stdin
|
||
|
|
|
||
|
|
! if ping then get all logged in users and return their positions to client
|
||
|
|
|
||
|
|
! if move update new pos to database
|
||
|
|
|
||
|
|
! if logout update logged_in to database
|
||
|
|
|
||
|
|
! end do
|
||
|
|
|
||
|
|
! send logout all to clients
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
end program main
|