home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qns311.zip / Q-SETUP.CMD < prev    next >
OS/2 REXX Batch file  |  1991-02-19  |  6KB  |  155 lines

  1. ;┌──────────────────────────────────────────────────────────────────────────┐
  2. ;│ Q-SETUP.CMD        Copyright 1988-1991 by Rik Brown                      │
  3. ;│                                                                          │
  4. ;│                    Set up defaults and commands script                   │
  5. ;└──────────────────────────────────────────────────────────────────────────┘
  6.  
  7. ; SET DEFAULTS
  8.  
  9.   TurnON   8_BIT                        ; 8-bit mode
  10.   TurnON   ONLINE                       ; Turn on  ONLINE checking
  11.   TurnOFF  XON/XOFF                     ; Turn off Xon/Xoff flow control
  12.   TurnOFF  BS_DEL                       ; BS=^H enabled
  13.   TurnOFF  ECHO                         ; Turn off local echo mode (duplex)
  14.   TurnOFF  LINEFEED                     ; Do not add LFs to incoming CRs
  15.   TurnOFF  LOG                          ; Turn off regular Qmodem log
  16.   TurnOFF  MUSIC                        ; ANSI music mode OFF
  17.   TurnOFF  NOISE                        ; Beeps and bells OFF
  18.   TurnOFF  PRINT                        ; Turn off local print echo mode
  19.   TurnOFF  SCROLL                       ; Turn off scroll-back capture mode
  20.   TurnOFF  SPLIT                        ; Turn off split screen mode
  21.  
  22.   CLRSCR                                ; Clear screen
  23.  
  24. ; CHECK FOR CARRIER DROP FLAG
  25.   IF '$6' > '0' COMMANDS                ; Restart commands if carrier dropped
  26.  
  27.   ATWRITE 1  1 15 "┌──────────────────────────────────────────────────────────────────────────────┐"
  28.   ATWRITE 1  2 15 "│                                                                              │"
  29.   ATWRITE 20 2 15 "Reading configurations from Q-SETUP.CFG"
  30.   ATWRITE 1  3 15 "└──────────────────────────────────────────────────────────────────────────────┘"
  31.  
  32.   GOTOXY 1 4                            ; Move cursor down
  33.  
  34. ; DECLARE STRINGS
  35.  
  36.   STRING bbsname                        ; BBS Name
  37.   STRING cmdscript                      ; Name of this controlling script
  38.   STRING cfgcomment                     ; Temporary VAR for CFG file reads
  39.   STRING language                       ; PCBoard Script Prompts Language
  40.   STRING maxconn                        ; Maximum attempts: handshake
  41.   STRING maxdial                        ; Maximum attempts: dials
  42.   STRING maxdlmail                      ; Maximum attempts: DL mail
  43.   STRING maxulmail                      ; Maximum attempts: UL mail
  44.   STRING minbaud                        ; Minimum baud connect rate
  45.   STRING names                          ; Your FIRST & LAST NAME
  46.   STRING phone1                         ; BBS Phone Number 1
  47.   STRING phone2                         ; BBS Phone Number 2
  48.   STRING pword                          ; Your PASSWORD
  49.   STRING maildate                       ; Mail date stamping batch file
  50.   STRING maildir                        ; Mail directory location
  51.   STRING maildoor                       ; Mail door # OR name
  52.   STRING mailpswd                       ; Mail door password
  53.   STRING mailscript                     ; Mail door script
  54.   STRING mailUL                         ; Mail UL packet filespec
  55.   STRING mailDL                         ; Mail DL packet filespec
  56.   STRING sessioncap                     ; Session capture file name
  57.   STRING sessionlog                     ; Session log file name
  58.   STRING sdate                          ; Starting date
  59.   STRING stime                          ; Starting time
  60.  
  61.   STRING currentclr                     ; Script "Current" Line F/BG Color
  62.   STRING scrcolor                       ; Script Fore/Background Color
  63.   STRING startcolor                     ; Script "Start" Line F/BG Color
  64.   STRING titlecolor                     ; Script Titles F/BG Color
  65.  
  66. ; ASSIGN STRINGS
  67.  
  68.   OPENFILE $SCPATH\Q-SETUP.CFG READ
  69.   READFILE mailscript
  70.   READFILE cfgcomment
  71.   READFILE cmdscript
  72.   READFILE cfgcomment
  73.   READFILE bbsname
  74.   READFILE cfgcomment
  75.   READFILE phone1
  76.   READFILE cfgcomment
  77.   READFILE phone2
  78.   READFILE cfgcomment
  79.   READFILE language
  80.   READFILE cfgcomment
  81.   READFILE pword
  82.   READFILE cfgcomment
  83.   READFILE maildate
  84.   READFILE cfgcomment
  85.   READFILE maildoor
  86.   READFILE cfgcomment
  87.   READFILE mailpswd
  88.   READFILE cfgcomment
  89.   READFILE mailUL
  90.   READFILE cfgcomment
  91.   READFILE mailDL
  92.   READFILE cfgcomment
  93.   READFILE minbaud
  94.   READFILE cfgcomment
  95.   READFILE sessioncap
  96.   READFILE cfgcomment
  97.   READFILE sessionlog
  98.   READFILE cfgcomment
  99.   READFILE maildir
  100.   READFILE cfgcomment
  101.   READFILE names
  102.   READFILE cfgcomment
  103.   READFILE scrcolor
  104.   READFILE cfgcomment
  105.   READFILE titlecolor
  106.   READFILE cfgcomment
  107.   READFILE startcolor
  108.   READFILE cfgcomment
  109.   READFILE currentclr
  110.   READFILE cfgcomment
  111.   READFILE maxdial
  112.   READFILE cfgcomment
  113.   READFILE maxconn
  114.   READFILE cfgcomment
  115.   READFILE maxdlmail
  116.   READFILE cfgcomment
  117.   READFILE maxulmail
  118.   READFILE cfgcomment
  119.   CLOSEFILE
  120.  
  121.   ASSIGN stime        "$time"           ; Start date (don't change!)
  122.   ASSIGN sdate        "$date"           ; Start time (don't change!)
  123.  
  124.   ASSIGN 0 0                            ; Initialize counter: dials
  125.   ASSIGN 1 0                            ; Initialize counter: handshakes
  126.   ASSIGN 2 0                            ; Initialize    flag: MAIL UL
  127.   ASSIGN 3 0                            ; Initialize counter: DL mail attempts
  128.   ASSIGN 4 0                            ; Initialize counter: UL mail attempts
  129.   ASSIGN 5 1                            ; Initialize counter: dial rotation
  130.   ASSIGN 6 0                            ; Initialize    flag: carrierdrop
  131.  
  132.   DOS "if exist $maildir\$sessionlog del $maildir\$sessionlog"
  133.   DOS "if exist $maildir\$sessioncap del $maildir\$sessioncap"
  134.   LOG             $maildir\$sessionlog  ; Open Session Log File
  135.   CAPTURE         $maildir\$sessioncap  ; Open Session Capture File
  136.   DEBUG OFF                             ; <- Set to ON or OFF (usually OFF)
  137.  
  138.   DOS "if exist $maildir\success.* del $maildir\success.*"
  139. ; Clear success indicators from any prior aborted script.
  140.  
  141.   EXIST $maildir\$mailUL MAILUL_EXISTS  ; See if mailUL exists
  142.     GOTO COMMANDS
  143.  
  144.   MAILUL_EXISTS:
  145.     INCR 2                              ; Sets MAILUL flag
  146.     GOTO COMMANDS
  147.  
  148. COMMANDS:
  149.  
  150.   CLRSCR                                ; Clear any screen leftovers
  151.  
  152.   SCRIPT Q-LOGON.SCR
  153.   SCRIPT $mailscript
  154.   SCRIPT Q-LOGOFF.SCR
  155.