home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / woodcnt6.zip / woodcnct.cmd < prev    next >
OS/2 REXX Batch file  |  1998-02-18  |  3KB  |  93 lines
  1. /* The name of this file is:  Woodcnct.CMD */
  2.  
  3. /*   LITERAL Declarations  */
  4. /* ----------------------- */
  5.   lline = '----------------------------------------------'
  6.   First = "Don(ald)"
  7.   MI = "O."
  8.   Last = "Woodall"
  9.   space1 = '           '
  10.   phone = "(616) 245-4450"
  11.   ISPid = "Iserv Customer Number: "
  12.   acctnum = "12345678"
  13.   callno = "222-4699"
  14.   initial1 = "AT&F1"
  15.   initial2 = "ATQ0S0=0V1X1&C1S12=0S2=12&D3"
  16.   modemid1 = 'My modem is an External U.S. Robotics Courier'
  17.   modemid2 = 'Voice/Data Dual Standard V.34 FAX with V.32bis'
  18.   opsys = 'Operating system is:  OS/2 Warp Version 4, Fix Pack 5'
  19.   dialr = "The phone dialer is:  Bjarne Jensen's InJoy, Version 1.12b"
  20.   mailr = "The mail reader program is:  Nick Knight's MR/2 ICE, version 1.46a"
  21.  
  22. /*  Preregistering 'syssleep' */
  23. /* -------------------------- */
  24. /*  function_to_load = "syssleep" */
  25. /*  call rxfuncadd function_to_load,'rexxutil',function_to_load */
  26.  
  27. /*  Pause until Injoy has written the data to the file "Connect.txt"  */
  28. /* ------------------------------------------------------------------ */
  29. /*  call syssleep 5 */
  30.  
  31. /*   VARIABLE Declarations   */
  32. /* ------------------------- */
  33.   connectdt = stream(connect.txt,'C','query datetime')
  34.   thyme = left(time('N'),8)
  35.   dey = date('W')
  36.   parse value date() with day month year
  37.  
  38. /*   File Openings   */
  39. /* ----------------- */
  40.   writefile = 'F:\INJOY\coniserv.log'
  41.   call stream writefile,'C','open write'
  42.  
  43.   readfile = 'F:\INJOY\connect.txt'
  44.   call stream readfile,'C','OPEN READ'
  45.  
  46. /*   Writing Literals to file   */
  47. /* ---------------------------- */
  48.   call lineout writefile, lline
  49.   call lineout writefile, First MI Last space1 phone
  50.   call lineout writefile, ' '
  51.   call lineout writefile, ISPid acctnum
  52.   call lineout writefile, ' '
  53.   call lineout writefile, 'Dialing in via phone number ' callno
  54.   call lineout writefile, ' '
  55.   call lineout writefile, 'The first  initialization string is: ' initial1
  56.   call lineout writefile, 'The second initialization string is: ' initial2
  57.   call lineout writefile, ' '
  58.   call lineout writefile, modemid1
  59.   call lineout writefile, modemid2
  60.   call lineout writefile, ' '
  61.   call lineout writefile, opsys
  62.   call lineout writefile, dialr
  63.   call lineout writefile, mailr
  64.   call lineout writefile, ' '
  65.   call lineout writefile, 'Connected ' dey',' month',' day year ' at ' thyme 'hours.'
  66.   call lineout writefile, ' '
  67.   call lineout writefile, 'Connect.txt ' connectdt
  68.   call lineout writefile, ' '
  69.  
  70. /*   Read from Input file, Write to output file   */
  71. /* ---------------------------------------------- */
  72.   line_read = linein(readfile)
  73.   call lineout writefile, '       Your IP Address: ' line_read
  74.   line_read = linein(readfile)
  75.   call lineout writefile, 'The GATEWAY IP Address: ' line_read
  76.   line_read = linein(readfile)  /* This is a throw away line */
  77.   /* There is no need to write the above line to the output file */
  78.   line_read = linein(readfile)
  79.   call lineout writefile, line_read
  80.   line_read = linein(readfile)
  81.   call lineout writefile, line_read
  82.  
  83. /*   Write final Literals to file   */
  84. /* -------------------------------- */
  85.   call lineout writefile, lline
  86.   call lineout writefile, ' '
  87.  
  88. /*  Close files and exit  */
  89. /* ---------------------- */
  90.   call stream writefile,'c','close'
  91.   call stream readfile,'c','close'
  92. exit
  93.