diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-04 16:44:20 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-04 16:44:20 -0400 |
| commit | 877b8876b078c8ab2632c17ab09e0ac0c2789c8a (patch) | |
| tree | ba63e85cdaaef78aedc006854125312ff6607b21 /captain/captian.f90 | |
| parent | e789ce4a4bc1f0894a707d2a141bbf357e0ba2d5 (diff) | |
| download | levitating-877b8876b078c8ab2632c17ab09e0ac0c2789c8a.tar.gz levitating-877b8876b078c8ab2632c17ab09e0ac0c2789c8a.zip | |
Initial work on the CGI interface for web access.
Diffstat (limited to 'captain/captian.f90')
| -rw-r--r-- | captain/captian.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/captain/captian.f90 b/captain/captian.f90 index c5443e2..4ee637e 100644 --- a/captain/captian.f90 +++ b/captain/captian.f90 @@ -25,6 +25,7 @@ use captain_db use config use logging, only: initialize_log => initialize, shutdown_log => shutdown use gemini, only: handle_gemini => handle_request +use web, only: handle_web => handle_request implicit none integer::mode @@ -42,6 +43,8 @@ implicit none select case(mode) case(MODE_GEMINI) call handle_gemini() + case(MODE_CGI_HTML) + call handle_web() end select call shutdown_db() |