home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / libs / smodem / extra / smodem.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-11-11  |  1.4 KB  |  51 lines
  1. /* 
  2.    SModem.Rexx (for TERM) Version 1.0 - Based on Hydra.REXX version 0.9
  3. */
  4.  
  5.  OPTIONS results
  6.  OPTIONS FAILAT 6
  7.  
  8. /* Get some TERM-Attributes */
  9.  GETATTR PATHPREFS.BINARYDOWNLOADPATH VAR dlpath
  10.  GETATTR TERM.SCREEN VAR screenname
  11.  GETATTR SERIALPREFS.DEVICENAME VAR devicename
  12.  GETATTR SERIALPREFS.UNIT VAR serunit
  13.  GETATTR SERIALPREFS.BAUDRATE VAR baudrate
  14.  GETATTR PATHPREFS.BINARYUPLOADPATH   VAR ulpath
  15.  
  16. /* convert the dlpath */
  17.    IF (LENGTH(dlpath) ~== 0) & (RIGHT(dlpath,1) ~= ':') THEN
  18.      dlpath = INSERT('/',dlpath,LENGTH(dlpath))
  19.  
  20. /* Request the files*/
  21.    files.count = -1
  22.    REQUESTFILE TITLE '"Select files to upload"' PATH ulpath PATTERN '~(#?.INFO)' MULTI STEM files     
  23.  
  24. /*  Check the result: CANCEL = open "Start Requester" */
  25.    IF (rc == 0) & (files.count >= 0) THEN  
  26.    DO
  27.  
  28. /*make upload-batchfile*/
  29.      CALL OPEN('liste','T:ul','w')
  30.      SAY files.count
  31.      DO i = 0 TO files.count - 1
  32.        CALL WRITELN('liste',files.i)   
  33.      END
  34.      CALL CLOSE('liste') 
  35.    
  36.  
  37. /* Start Hydracom and delete batchfile*/
  38.  
  39.      PROCESSIO OFF
  40.      address COMMAND 'SMODEM DEVICE 'devicename' UNIT 'serunit' BAUD 'baudrate' CTSRTS ULLIST T:UL DLPATH 'dlpath' PUBSCREEN 'screenname
  41.      PROCESSIO ON
  42.  
  43.      ADDRESS COMMAND 'DELETE T:UL'
  44.    END
  45.    ELSE
  46.    DO
  47.      PROCESSIO OFF
  48.      address COMMAND 'SMODEM DEVICE 'devicename' UNIT 'serunit' BAUD 'baudrate' CTSRTS DLPATH 'dlpath'  PUBSCREEN 'screenname
  49.      PROCESSIO ON
  50.    END
  51.