CREATE OR REPLACE PACKAGE ftp AS
-- --------------------------------------------------------------------------
-- Name         : ftp.pks
-- Author       : DR Timothy S Hall
-- Description  : Basic FTP API.
-- Requirements : UTL_TCP
-- Ammedments   :
--   When         Who       What
--   ===========  ========  =================================================
--   14-AUG-2003  Tim Hall  Initial Creation
-- --------------------------------------------------------------------------

TYPE t_string_table IS TABLE OF VARCHAR2(32767);

FUNCTION login (p_host  IN  VARCHAR2,
                p_port  IN  VARCHAR2,
                p_user  IN  VARCHAR2,
                p_pass  IN  VARCHAR2)
  RETURN UTL_TCP.connection;
                
PROCEDURE logout (p_conn   IN  UTL_TCP.connection,
                  p_reply  IN  BOOLEAN := TRUE);

PROCEDURE send_command (p_conn     IN  UTL_TCP.connection,
                        p_command  IN  VARCHAR2,
                        p_reply    IN  BOOLEAN := TRUE);

FUNCTION get_local_ascii_data (p_dir   IN  VARCHAR2,
                               p_file  IN  VARCHAR2)
  RETURN CLOB;

FUNCTION get_local_binary_data (p_dir   IN  VARCHAR2,
                                p_file  IN  VARCHAR2)
  RETURN BLOB;

FUNCTION get_remote_ascii_data (p_conn  IN  UTL_TCP.connection,
                                p_file  IN  VARCHAR2)
  RETURN CLOB;

FUNCTION get_remote_binary_data (p_conn  IN  UTL_TCP.connection,
                                 p_file  IN  VARCHAR2)
  RETURN BLOB;

PROCEDURE put_local_ascii_data (p_data  IN  CLOB,
                                p_dir   IN  VARCHAR2,
                                p_file  IN  VARCHAR2);

PROCEDURE put_local_binary_data (p_data  IN  BLOB,
                                 p_dir   IN  VARCHAR2,
                                 p_file  IN  VARCHAR2);

PROCEDURE put_remote_ascii_data (p_conn  IN  UTL_TCP.connection,
                                 p_file  IN  VARCHAR2,
                                 p_data  IN  CLOB);

PROCEDURE put_remote_binary_data (p_conn  IN  UTL_TCP.connection,
                                  p_file  IN  VARCHAR2,
                                  p_data  IN  BLOB);

PROCEDURE get (p_conn       IN  UTL_TCP.connection,
               p_from_file  IN  VARCHAR2,
               p_to_dir     IN  VARCHAR2,
               p_to_file    IN  VARCHAR2);

PROCEDURE put (p_conn       IN  UTL_TCP.connection,
               p_from_dir   IN  VARCHAR2,
               p_from_file  IN  VARCHAR2,
               p_to_file    IN  VARCHAR2);

PROCEDURE help (p_conn  IN  UTL_TCP.connection);

PROCEDURE ascii (p_conn  IN  UTL_TCP.connection);

PROCEDURE binary (p_conn  IN  UTL_TCP.connection);

END ftp;
/
SHOW ERRORS