added new procedures and functions for virus checking.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3459 248e525c-4dfb-0310-94bc-949c084e9493

Modules/mip_virus_check.pck

@@ -3,9 +3,23 @@ CREATE OR REPLACE PACKAGE mip_virus_check IS
   -- Author  : HARDYA
   -- Created : 23/01/2008 09:55:52
   -- Purpose : Virus checking package
+  -- Updates : MULLENMD - added functionality to run the virus checker for a file
+  --
   PROCEDURE write_file(p_name     IN wwv_flow_files.NAME%TYPE
                       ,p_location IN VARCHAR2 DEFAULT 'WEBMIP_VIRUS'
                       ,p_fs_name  IN VARCHAR2);
+                      
+  /**
+      check_file - allows MIP to run an anti-virus scan on a given file
+      
+      %param p_name - the APEX name of the file
+      %param p_location - the directory on the server where the file will be tested
+      %param p_fs_name - the actual filename of the file to test
+    */
+  PROCEDURE check_file(p_name     IN wwv_flow_files.NAME%TYPE
+                      ,p_location IN VARCHAR2 DEFAULT 'WEBMIP_VIRUS'
+                      ,p_fs_name  IN VARCHAR2);
+  --
 END mip_virus_check;
 /
 CREATE OR REPLACE PACKAGE BODY mip_virus_check IS
@@ -70,6 +84,87 @@ CREATE OR REPLACE PACKAGE BODY mip_virus_check IS
     dbms_lob.CLOSE(l_lob_loc);
   END write_file;
 
+  --
+  FUNCTION trigger_av_scan(p_location IN VARCHAR2
+                          ,p_fs_name  IN VARCHAR2) RETURN BOOLEAN IS
+  BEGIN
+    NULL;
+  EXCEPTION
+    WHEN OTHERS THEN
+      RETURN NULL;
+  END trigger_av_scan;
+  --
+
+  --
+  FUNCTION check_file_exists(p_location IN VARCHAR2
+                            ,p_fs_name  IN VARCHAR2) RETURN BOOLEAN IS
+    l_file_exists BOOLEAN;
+    l_file_length NUMBER;
+    l_block_size  NUMBER;
+  BEGIN
+    utl_file.fgetattr(location => p_location
+                     ,filename => p_fs_name
+                     ,fexists => l_file_exists
+                     ,file_length => l_file_length
+                     ,block_size => l_block_size);
+                               
+    RETURN l_file_exists;
+  EXCEPTION
+    WHEN OTHERS THEN 
+      RETURN FALSE;
+  END check_file_exists;
+  --
+  
+  --
+  PROCEDURE delete_file_from_server(p_location IN VARCHAR2
+                                   ,p_fs_name  IN VARCHAR2) IS
+  BEGIN
+    utl_file.fremove(location => p_location
+                    ,filename => p_fs_name);
+  END delete_file_from_server;
+  --
+  
+  --
+  PROCEDURE delete_file_from_MIP(p_name IN wwv_flow_files.NAME%TYPE) IS
+  BEGIN
+    NULL;
+  END delete_file_from_MIP;
+  --
+  
+  --
+  PROCEDURE check_file(p_name     IN wwv_flow_files.NAME%TYPE,
+                       p_location IN VARCHAR2 DEFAULT 'WEBMIP_VIRUS',
+                       p_fs_name  IN VARCHAR2) IS
+    av_scan_result BOOLEAN;
+    file_result    BOOLEAN;
+  BEGIN
+    -- write the file to the file system, trigger a scan, check if the file is still there
+    -- and then act accordingly if it isn't.
+    write_file(p_name     => p_name,
+               p_location => p_location,
+               p_fs_name  => p_fs_name);
+  
+    av_scan_result := trigger_av_scan(p_location => p_location,
+                                      p_fs_name  => p_fs_name);
+  
+    IF av_scan_result THEN
+      file_result := check_file_exists(p_location => p_location,
+                                       p_fs_name  => p_fs_name);
+    
+      IF NOT file_result THEN
+        delete_file_from_mip(p_name => p_name);
+      ELSE
+        delete_file_from_server(p_location => p_location,
+                                p_fs_name  => p_fs_name);
+      END IF;
+    ELSE
+      raise_application_error(-20099,
+                              'Error whilst running anti-virus on file ' ||
+                              p_fs_name);
+    END IF;
+  END check_file;
+  --
+    
 BEGIN
   -- Initialization
   NULL;