home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxcomm16.zip / samples / nifLogin.cmd < prev    next >
OS/2 REXX Batch file  |  1999-02-09  |  3KB  |  93 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.  * Login NIFTY-Serve
  20.  */
  21. DO FOREVER
  22.     rc = RxCommRead( 400 )
  23.     IF rc = '' THEN
  24.     DO
  25.         ok = RxCommWrite( '.00+ P' || '0D'x )
  26.         LEAVE
  27.     END
  28.  
  29.     CALL CHAROUT , rc
  30.  
  31.     IF POS( 'FENICS-ROAD 3', rc ) = 1 THEN LEAVE
  32.     IF POS( 'FENICS-ROAD 4', rc ) = 1 THEN LEAVE
  33.     IF POS( 'FENICS-ROAD 5', rc ) = 1 THEN LEAVE
  34.  
  35.     IF POS( '## Welcome to Network World ##', rc ) = 1 THEN LEAVE
  36.  
  37. END
  38.  
  39. DO FOREVER
  40.     rc = RxCommRead()
  41.     /* NIFTYé╚éτé┼é═é╠Åêù¥é╛é╚éƒ(^_^; */
  42.     DO WHILE POS( '00'x, rc ) > 0
  43.         rc = DELSTR( rc, POS( '00'x, rc ), 1 )
  44.     END
  45.     CALL CHAROUT , rc
  46.  
  47.     IF POS( 'éµéñé▒é╗NIFTY SERVEé╓', rc ) = 1 THEN LEAVE
  48.  
  49.     IF POS( ' INPUT ERROR'        , rc ) = 1 THEN EXIT
  50.     IF POS( ' User-ID Error'      , rc ) = 1 THEN EXIT
  51.     IF POS( ' Password ERROR'     , rc ) = 1 THEN EXIT
  52.     IF POS( 'üƒô±ÅdâìâOâCâôé┼é╖üƒ', rc ) = 1 THEN EXIT
  53.  
  54.     IF POS( 'Clear DTE', rc ) = 1 THEN EXIT
  55.     IF POS( 'Clear OCC', rc ) = 1 THEN EXIT
  56.     IF POS( 'Clear PAD', rc ) = 1 THEN EXIT
  57.     IF POS( 'Clear NA' , rc ) = 1 THEN EXIT
  58.     IF POS( 'Clear NP' , rc ) = 1 THEN EXIT
  59.     IF POS( 'Clear NC' , rc ) = 1 THEN EXIT
  60.     IF POS( 'Clear DER', rc ) = 1 THEN EXIT
  61.     IF POS( 'Clear RPE', rc ) = 1 THEN EXIT
  62.  
  63.     SELECT
  64.         WHEN rc = 'Login: '
  65.             THEN
  66.             rc = RxCommWrite( 'NIFTY' || '0D'x )
  67.         WHEN rc = 'Password: '
  68.             THEN
  69.             rc = RxCommWrite( '0D'x )
  70.         WHEN POS( 'HOST NAME?', rc ) = 1
  71.             THEN
  72.             DO
  73.                 DO UNTIL POS( '*', rc ) > 0
  74.                     rc = RxCommRead()
  75.                     CALL CHAROUT , rc
  76.                 END
  77.                 rc = RxCommWrite( 'C NIF' || '0D'x )
  78.             END
  79.         WHEN rc = ' Enter Connection-ID  --->'
  80.             THEN
  81.             rc = RxCommWrite( 'SVC' || '0D'x )
  82.         WHEN rc = ' Enter User-ID  --->'
  83.             THEN
  84.             rc = RxCommWrite( nifUser || '0D'x )
  85.         WHEN rc = ' Enter Password --->'
  86.             THEN
  87.             rc = RxCommWrite( nifPass || '0D'x )
  88.         OTHERWISE
  89.     END
  90. END
  91.  
  92. RETURN
  93.