create or replace package body eft_nom.caco_api is

  g_header   CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/caco_api.pck 1     7/01/05 12:54 Gilberta $';
  g_revision CONSTANT VARCHAR2(160) := '$Revision: 1 $';

---
-- F C O P Y
---
FUNCTION fcopy (filefrom IN VARCHAR2, fileto IN VARCHAR2) RETURN NUMBER
AS LANGUAGE JAVA
NAME 'JFile.copyfile (java.lang.String, java.lang.String) return int';
---
-- F D E L E T E
---
FUNCTION fdelete (p_file IN VARCHAR2) RETURN NUMBER
AS language JAVA
NAME 'JFile.delete (java.lang.String) return int';
---
-- F D I R
---
FUNCTION fdir (p_dir IN VARCHAR2) RETURN filelist
AS language JAVA
NAME 'JDirList.getList (java.lang.String) return oracle.sql.ARRAY.ARRAY';
---
-- S E N D F A X
---
FUNCTION sendfax (pfilename IN CHAR,
                  pnumber   IN CHAR,
                  pchannel  IN BINARY_INTEGER) return BINARY_INTEGER
as
BEGIN
  RETURN 0;
END;
/*language C
name "Oracle_SendFax"
library TESTINTERFACE
parameters (pFilename STRING
           ,pNumber   STRING
           ,pchannel  INT
           ,return    INT);*/
---
-- S E N D V O I C E
---
FUNCTION sendvoice (pfilename IN CHAR,
                    pnumber IN CHAR) return BINARY_INTEGER
as
BEGIN
  RETURN 0;
END;
/*language C
name "Oracle_VoiceCall"
library TESTINTERFACE
parameters (pFilename STRING
           ,pNumber   STRING
           ,return    INT);*/
--
end caco_api;
/