home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / lw22.zip / nova.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-20  |  4KB  |  144 lines
  1. /* LiveWire OS2 Shareware REXX Script File              Kenn Lynch 12/05/93 */
  2. /*                                                                          */
  3. /* The script is a sample logon script for the OS/2 Shareware BBS           */
  4. /* This script is for sample purposes only, and is not guaranteed by        */
  5. /* DataMirage Software                                                      */
  6.  
  7. /* Set timeout */
  8. SetLW(TimeOut,60);
  9.  
  10. /* Set inter-character pacing to 40ms */
  11. SetLW(Pacing,40);
  12.  
  13. /* Set emulation and toggles */
  14. SetLW(Emulation,1);
  15. SetLW(Echo,0);
  16. SetLW(Linefeeds,0);
  17. SetLW(XonXoff,0);
  18. SetLW(BSIsDel,1);
  19.  
  20. /* Start Script Session, logon and send username and password */
  21.     SendLW("^M") 
  22.     ret=FindLW("wait 20 seconds");
  23.     DelayLW(100);
  24.     SendLW("^[");
  25.  
  26.     ret=FindLW("your name:");
  27.     DelayLW(100);
  28.     SendLW("KENN LYNCH^M");
  29.  
  30.     ret=FindLW("Kenn Lynch [Y,n]? ");
  31.     DelayLW(100);
  32.     SendLW("^M");
  33.  
  34.     ret=FindLW("Password: ");
  35.     DelayLW(100);
  36.     SendLW(GetLW(DialerPassword)||"^M");
  37.  
  38.     ret=FindLW("ss ENTER to continue ");
  39.     DelayLW(100);
  40.     SendLW("^M");
  41.  
  42. /* "move" previous capture file to nova-1.cap */
  43.  
  44. /* A better way to do this would be to datestamp the capture filename */
  45. /* but I still havent quite figured how to do this in Rexx and LW */
  46.  
  47. 'copy nova.cap nova-1.cap';
  48. 'del nova.cap';
  49.     SetLW(Capture, ON,"NOVA.CAP");
  50.  
  51. /*aptures all mail and latest uploads */
  52.  
  53.     ret=FindLW("r mail? [Y,n]");
  54.     DelayLW(100);
  55.     SendLW("Y^M");
  56.  
  57.     ret=FindLW(" files? [Y,n]");
  58.     DelayLW(100);
  59.     SendLW("Y^M");
  60.  
  61.     ret=FindLW("ss ENTER to continue ");
  62.     DelayLW(100);
  63.     SendLW("^M");
  64.  
  65. /* goto the "M"essage areas */
  66.     ret=FindLW("Select:");
  67.     DelayLW(100);
  68.     SendLW("M^M");
  69.  
  70. /* select the games msg area and display/capture "=" all new messages */
  71.     ret=FindLW("Select:");
  72.     DelayLW(100);
  73.     SendLW("A os2games^M");
  74.  
  75.     ret=FindLW("Select:");
  76.     DelayLW(100);
  77.     SendLW("=^M");
  78.  
  79. /* go to the os2comm msg area and display/capture all new messages */
  80.     ret=FindLW("Select:");
  81.     DelayLW(100);
  82.     SendLW("A os2comm^M");
  83.  
  84.     ret=FindLW("Select:");
  85.     DelayLW(100);
  86.     SendLW("=^M");
  87.  
  88. /* go to the os2video msg area and display/capture all new messages */
  89.     ret=FindLW("Select:");
  90.     DelayLW(100);
  91.     SendLW("A os2video^M");
  92.  
  93.     ret=FindLW("Select:");
  94.     DelayLW(100);
  95.     SendLW("=^M");
  96.  
  97. /* go to the os2hw msg area and display/capture all new messages */
  98.     ret=FindLW("Select:");
  99.     DelayLW(100);
  100.     SendLW("A os2hw^M");
  101.  
  102.     ret=FindLW("Select:");
  103.     DelayLW(100);
  104.     SendLW("=^M");
  105.  
  106. /* the os2hw msg area is the largest area I adjusted the timeout */
  107.     SetLW(TimeOut,240);
  108.     ret=FindLW("Select:");
  109.  
  110. /* reset timeout value go to the local msg area and capture all new messages */
  111.     SetLW(TimeOut,60);
  112.     DelayLW(100);
  113.     SendLW("A local^M");
  114.  
  115.     ret=FindLW("Select:");
  116.     DelayLW(100);
  117.     SendLW("=^M");
  118.  
  119. /* "J"ump to the files area and "D"ownload os2new.zip */
  120.  
  121.     ret=FindLW("Select:");
  122.     DelayLW(100);
  123.     SetLW(Capture, OFF);
  124.     'del e:\download\os2new.zip'; 
  125.     SendLW("=JDOS2NEW^M");
  126.  
  127. /* a "G"oodbye forces a logoff after the download */
  128.     ret=FindLW("s) to download ");
  129.     DelayLW(100);
  130.     SendLW("/g^M");
  131.  
  132. /* deletes the prior copy of os2new.txt and unzips the latest download */
  133. /* this is were I'm having "sync" problems                             */
  134.  
  135.     SetLW(TimeOut,100);
  136.     ret=FindLW("null string");
  137.     DelayLW(100);
  138.     'del d:\lwos2\os2new.txt';
  139.     DelayLW(100);
  140.     'unzip e:\download\os2new.zip';
  141.     
  142.     Exit
  143.  
  144.