aboutsummaryrefslogtreecommitdiff
path: root/captain/launch.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-04-01 16:49:20 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-04-01 16:49:20 -0400
commit3e58313bde5e3e572d84fe014d9902dfb04712c3 (patch)
tree336884dbbfc441c437bda3f6b5121b4b3d2ef225 /captain/launch.f90
parentb125906018d0d3d09baeebb096db56ca052902eb (diff)
downloadlevitating-3e58313bde5e3e572d84fe014d9902dfb04712c3.tar.gz
levitating-3e58313bde5e3e572d84fe014d9902dfb04712c3.zip
Jobs are now inserted into the database when launched. Job listings work.
Diffstat (limited to 'captain/launch.f90')
-rw-r--r--captain/launch.f906
1 files changed, 6 insertions, 0 deletions
diff --git a/captain/launch.f90 b/captain/launch.f90
index 97e0a59..8a074a5 100644
--- a/captain/launch.f90
+++ b/captain/launch.f90
@@ -4,9 +4,15 @@ implicit none
contains
subroutine launch_instructions_on_player(instruction, player)
+ use captain_db
implicit none
character(*), intent(in)::instruction, player
+ integer::instruction_id, player_id
+
+ instruction_id = get_instruction_id(instruction)
+ player_id = get_player_id(player)
+ call add_new_job(instruction_id, player_id)
end subroutine launch_instructions_on_player