File type is now returned for evaluation. Initial routines for saving implemented but unused.

1 files changed, 20 insertions, 1 deletions

diff --git a/dumb_render.f90 b/dumb_render.f90
index 7ff4e6d..c3b49a1 100644
--- a/dumb_render.f90
+++ b/dumb_render.f90
@@ -44,6 +44,8 @@ implicit none
         
         procedure :: request_action => dumb_action
     
+        procedure :: request_save_filename => dumb_request_save_filename
+    
     end type dumb_renderer
     
 contains
@@ -309,8 +311,25 @@ contains
             end if
         end if
         
-        
     end function dumb_action
     
+    function dumb_request_save_filename(self, url, mimetype, filename)
+    implicit none
+    
+        class(dumb_renderer)::self
+        character(*), intent(in)::url
+        character(*), intent(in)::mimetype
+        character(*), intent(out)::filename
+        logical::dumb_request_save_filename
+    
+        Print *, "*** Response type is "//trim(mimetype)
+        Write(*, '(1X, A26)', advance='no') "*** Save file as: "
+    
+        Read(*, *) filename
+    
+        dumb_request_save_filename = (len_trim(filename) > 0)
+    
+    end function dumb_request_save_filename
+    
     
 end module dumb_render
\ No newline at end of file