with SFTP_DEFINITIONS; use SFTP_DEFINITIONS; with OS_DEPEND; package TCP_IN is --==================================================================== -- = -- ABSTRACT TCP_IN = -- This package receives files from TCP/IP and places them = -- in the correct directory. Requests from the user that = -- involve incoming files are processed here = -- KEYWORDS TCP_IN = -- SFTP, Secure File Transfer, TCP/IP, Received files = -- CONTENTS TCP_IN = -- = -- CREATION DATE. = -- 3/1/87 = -- AUTHOR. = -- Dan McKay, The BDM Corporation, Albuquerque = -- REVISION HISTORY. = -- NONE = -- UNIT PURPOSE. = -- Process incoming files = -- UNIT FUNCTION. = -- Receive incoming files = -- Process user requests regarding incoming files = -- EXTERNAL ADA UNITS ACCESSED. = -- SFTP_DEFINITIONS = -- OS_DEPEND = -- DIRECT_IO = -- UTILITY = -- CALENDAR = -- TEXT_IO = -- AUDIT = -- UNCHECKED_DEALLOCATION = -- UNCHECKED_CONVERSION = -- LOWER_LEVEL_PROTOCOL_INTERFACE = -- AUTHORIZATION_PKG = -- EXCEPTIONS RAISED. = -- NONE = -- INPUT/OUTPUT. = -- Output to spool_in directories = -- MACHINE DEPENDENCIES. = -- NONE = -- COMPILER DEPENDENCIES. = -- NONE = -- = --==================================================================== -- the following variables are set by cet once they are known SPLIN : PATH_NAME_TYPE := (others => ' '); LOCAL_HOST_NAME : COMPUTER_NAME_TYPE := (others => ' '); MAX_LOCAL_SEC_LVL : OS_DEPEND.SECURITY_LEVEL_TYPE := OS_DEPEND.MAX_SECURITY_LEVEL; MIN_LOCAL_SEC_LVL : OS_DEPEND.SECURITY_LEVEL_TYPE := OS_DEPEND.MIN_SECURITY_LEVEL; -- inlist_handler provides an interface to the inlist files -- which are indexes of the incoming files task INLIST_HANDLER is entry START; -- find this file and return a path to it entry RECEIVE (REQUEST : in OS_DEPEND.REQUEST_MSG_TYPE; OK : out BOOLEAN; REC_PATH : out PATH_NAME_TYPE); -- sends a list of files available to this user entry INQUIRE (USER : in OS_DEPEND.USER_INFO_TYPE; UIT_MBX : in OS_DEPEND.TASK_COMM_TYPE); -- deletes given file from the spool_in directories entry DELETE (REQUEST : in OS_DEPEND.REQUEST_MSG_TYPE; OK : out BOOLEAN); -- enter given file into the appropriate inlist entry ENTER (LIST_ENTRY : in OS_DEPEND.INLIST_ENTRY_TYPE); end INLIST_HANDLER; end TCP_IN;