Home > rhelp  [2 examples]

Get help from remote server.

 Examples

Ex. 1. Help listing from server.
Ex. 2. Listing of command help from server.


Ex. 1.  Help listing from server.
SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  fid VARCHAR2(80);
  host VARCHAR2(80)   := 'ftp.mcafee.com';
  usernm VARCHAR2(80) := 'anonymous';
  passwd VARCHAR2(80) := '';
BEGIN
  fid := fclient_p.createFTPClient;
  fclient_p.login(fid, host, usernm, passwd);

  fclient_p.help(fid);
  DBMS_OUTPUT.PUT_LINE(SUBSTR(REPLACE(fclient_p.getLastResponseString(fid), CHR(10)), 1, 255));

  fclient_p.logout(fid);
  fclient_p.remove(fid);
EXCEPTION
  WHEN fclient_p.java_failed THEN
    DBMS_OUTPUT.PUT_LINE(SUBSTR(fclient_p.getErrorWithResponse(fid), 1, 255));
END;
/

Output from example above: The following commands are recognized (* =>'s unimplemented). USER PORT STOR MSAM* RNTO NLST MKD CDUP PASS PASV APPE MRSQ* ABOR SITE XMKD XCUP ACCT* TYPE MLFL* MRCP DELE SYST R


Ex. 2.  Listing of command help from server.
SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  fid VARCHAR2(80);
  host VARCHAR2(80)   := 'ftp.gnu.org';
  usernm VARCHAR2(80) := 'anonymous';
  passwd VARCHAR2(80) := '';
BEGIN
  fid := fclient_p.createFTPClient;
  fclient_p.login(fid, host, usernm, passwd);

  fclient_p.help(fid, 'TYPE');
  DBMS_OUTPUT.PUT_LINE(SUBSTR(REPLACE(fclient_p.getLastResponseString(fid), CHR(10)), 1, 255));

  fclient_p.logout(fid);
  fclient_p.remove(fid);
EXCEPTION
  WHEN fclient_p.java_failed THEN
    DBMS_OUTPUT.PUT_LINE(SUBSTR(fclient_p.getErrorWithResponse(fid), 1, 255));
END;
/

Output from example above: Syntax: TYPE {sp} [ A | E | I | L ]

 Related Commands
 
© 1999-2003 Bear Claw Inc.