home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / lwscrpts.zip / OS2SWQUL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-26  |  2KB  |  71 lines
  1. /* LiveWire Offline OS2Shareware BBS REXX Script File   OS2SWOFL.CMD */
  2.  
  3.  
  4. /* Set timeout */
  5. SetLW(TimeOut,120);
  6.  
  7. /* Set inter-character pacing to 40ms */
  8. SetLW(Pacing,40);
  9.  
  10. /* Set emulation and toggles */
  11. SetLW(Emulation,1);
  12. SetLW(Echo,0);
  13. SetLW(Linefeeds,0);
  14. SetLW(XonXoff,0);
  15. SetLW(BSIsDel,1);
  16.  
  17.  
  18.  Username = "^H^H^H^H^H^H^HKenn Lynch" /* your first and last name */
  19.  Password = "^H^H^H^HPASSWORD"             /* Your password here */
  20.  Repfile  = "e:\download\os2share.rep";
  21.    SendLW("^M");
  22. rem
  23.    Do forever
  24.  
  25.       ret=FindLW("wait 20 seconds",
  26.                    ,"your name:",
  27.                    ,"[Y,n]?",
  28.                    ,"Password:",
  29.                    ,"ss ENTER to continue");
  30.  
  31.       select
  32.        when ret="wait 20 seconds"       then SendLW("^[") ;
  33.        when ret="your name:"            then SendLW(Username||"^M") ;
  34.        when ret="[Y,n]? "               then SendLW("Y^M") ;
  35.        when ret="Password:"             then SendLW(Password||"^M") ;
  36.        when ret="ss ENTER to continue " then Leave ;
  37.  
  38.        otherwise
  39.           /*  The only thing that usually will bring you here is   */
  40.           /*  a timeout.  What you do here is up to you.  I just   */
  41.           /*  panic myself. (this DO was borrowed from JDBP)       */
  42.           Say "SCRIPT FAILED (prompts changed?)!!!! prompt was " ret;
  43.  
  44.        end
  45.    end
  46.  
  47.     SendLW("^M");
  48.  
  49.     ret=FindLW("mail? [Y,n]");
  50.     DelayLW(100);
  51.     SendLW("nnOU^M");
  52.     SendFilesLW("Z",Repfile);
  53.  
  54.  
  55.  
  56. /* I had problems using the /g (goodbye after dl) method. Could not find a
  57.    sucessful string to catch in the countdown. I think there are ANSI cursor
  58.    positioning characters in the countdown numbers. I hope the abrupt hangup
  59.    doesnt cause any odd status on Petes Board?
  60.    After download, hangup, del prior os2new.txt, unzip latest os2new.txt */
  61.  
  62.     SendLw("^M");
  63.     ret=FindLW("Select");
  64.     DelayLW(100);
  65.     SendLW("G^M");
  66.     HangUpLW();
  67.  
  68.     Exit
  69.  
  70.  
  71.