home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / nifLogof.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-09  |  1KB  |  55 lines
  1. /**
  2.  * REXX Communication Control Function Library  Ver.1.1
  3.  *                  copyright 1998-1999, Naga(Kazuo Adachi)
  4.  *                          mailto:nagaw@ibm.net
  5.  *                          mailto:GDB00421@nifty.ne.jp
  6.  *
  7.  * $Id$
  8.  *
  9.  * $Log$
  10.  */
  11.  
  12. ARG nifUser, nifPass
  13.  
  14. CALL RxFuncAdd 'RxCommLoadFuncs','RxComm','RxCommLoadFuncs'
  15. CALL RxCommLoadFuncs
  16.  
  17. /*--------------------------------------------------------*/
  18. /**
  19.  * Logoff NIFTY-Serve
  20.  */
  21. rc = RxCommWrite( 'OFF' || '0D'x )
  22. DO UNTIL POS( 'OK'        , rc ) = 1 |,
  23.          POS( 'NO CARRIER', rc ) = 1
  24.     rc = RxCommRead()
  25.     /* NIFTYé╚éτé┼é═é╠Åêù¥é╛é╚éƒ(^_^; */
  26.     DO WHILE POS( '00'x, rc ) > 0
  27.         rc = DELSTR( rc, POS( '00'x, rc ), 1 )
  28.     END
  29.     CALL CHAROUT , rc
  30.  
  31.     IF POS( 'DCD', RxCommSignal() ) = 0 THEN LEAVE
  32.  
  33.     SELECT
  34.         WHEN POS( 'HOST NAME?', rc ) = 1
  35.             THEN
  36.             DO
  37.                 DO UNTIL POS( '*', rc ) > 0
  38.                     rc = RxCommRead()
  39.                     CALL CHAROUT , rc
  40.                 END
  41.                 ok = RxCommWrite( 'OFF' || '0D'x )
  42.                 LEAVE
  43.             END
  44.         WHEN POS( '01+', rc ) > 0
  45.             THEN
  46.             DO
  47.                 CALL rxcDrop
  48.                 LEAVE
  49.             END
  50.         OTHERWISE
  51.     END
  52. END
  53.  
  54. RETURN
  55.