diff options
| -rw-r--r-- | captain/db.f90 | 49 | ||||
| -rw-r--r-- | captain/sql/create.sql | 3 |
2 files changed, 52 insertions, 0 deletions
diff --git a/captain/db.f90 b/captain/db.f90 index 152f61b..b7712fa 100644 --- a/captain/db.f90 +++ b/captain/db.f90 @@ -36,6 +36,8 @@ implicit none integer, parameter::PLAYER_STATUS_IDLE = 100 integer, parameter::PLAYER_STATUS_OFFLINE = 101 + integer, parameter::SCHEDULE_DAILY = 0 + character(1024)::database_file type(c_ptr)::db @@ -1345,5 +1347,52 @@ contains end if end function is_player_online + + subroutine add_scheduled_job(player, instruction, day, hour) + implicit none + + integer, intent(in)::player, instruction, day, hour + type(sqlite3_stmt)::stmt + + if(stmt%prepare(db, "INSERT INTO schedule(instruction, player, day, hour) VALUES(?, ?, ?, ?") == SQLITE_OK) then + if(stmt%bind_int(1, instruction) == SQLITE_OK .and. & + stmt%bind_int(2, player) == SQLITE_OK .and. & + stmt%bind_int(3, day) == SQLITE_OK .and. & + stmt%bind_int(4, hour) == SQLITE_OK) & + then + call stmt%step_now() + end if + end if + call stmt%finalize() + end subroutine add_scheduled_job + + subroutine delete_scheduled_job(player, instruction, day, hour) + implicit none + + integer, intent(in)::player, instruction, day, hour + type(sqlite3_stmt)::stmt + + if(stmt%prepare(db, "DELETE FROM schedule WHERE instruction=? AND player=? AND day=? AND hour=?") == SQLITE_OK) then + if(stmt%bind_int(1, instruction) == SQLITE_OK .and. & + stmt%bind_int(2, player) == SQLITE_OK .and. & + stmt%bind_int(3, day) == SQLITE_OK .and. & + stmt%bind_int(4, hour) == SQLITE_OK) & + then + call stmt%step_now() + end if + end if + call stmt%finalize() + + end subroutine delete_scheduled_job + + subroutine queue_scheduled_jobs(player) + implicit none + + integer, intent(in)::player + + ! Needs implementation + + end subroutine queue_scheduled_jobs + end module captain_db diff --git a/captain/sql/create.sql b/captain/sql/create.sql index e4a944c..8e93e23 100644 --- a/captain/sql/create.sql +++ b/captain/sql/create.sql @@ -14,3 +14,6 @@ CREATE TABLE groups(id INTEGER PRIMARY KEY, name TEXT UNIQUE NOT NULL); CREATE TABLE group_instructions(group_id INTEGER, instruction INTEGER, player INTEGER, FOREIGN KEY(group_id) REFERENCES groups(id) ON DELETE CASCADE, FOREIGN KEY(instruction) REFERENCES instructions(id) ON DELETE CASCADE, FOREIGN KEY(player) REFERENCES players(id) ON DELETE CASCADE); CREATE TABLE checkin(player INTEGER PRIMARY KEY, year INTEGER, month INTEGER, day INTEGER, hour INTEGER, minute INTEGER, second INTEGER, os TEXT DEFAULT NULL, FOREIGN KEY(player) REFERENCES players(id) ON DELETE CASCADE); + +CREATE TABLE schedule(instruction INTEGER NOT NULL, player INTEGER NOT NULL, day INTEGER DEFAULT 0, hour INTEGER DEFAULT 0, FOREIGN KEY(instruction) REFERENCES instructions(id) ON DELETE CASCADE, FOREIGN KEY(player) REFERENCES players(id) ON DELETE CASCADE ); + |