home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / TMHOST05.ZIP / THCONFIG.SCR < prev    next >
Text File  |  1992-02-01  |  8KB  |  281 lines
  1. ;
  2. ; MODIFIED from: THCONFIG.SCR by White River Software, 3 January, 1992
  3. ;
  4.  
  5. String scriptdir,ch
  6.  
  7. NEWUSERLEVEL = 1             ; new user level
  8. SYSOPLEVEL = 2               ; sysop level
  9. DETECTBAUD = 1               ; set to 0 if COM baud rate is locked
  10. query baud,INITIALBAUD       ; initial baud rate (highest baud rate)
  11. YELLTIME = 3                 ; amount of time to display the alarm
  12. YELLSOUND = 1                ; amount of time to ring the alarm
  13. query dirscript,HOSTDIR      ; directory holding *.SBH
  14. query dirupload,DOWNLOADDIR  ; host download directory
  15. query dirdownload,UPLOADDIR  ; host upload directory   
  16. RUNPROGRAM=""                ; RUN PROGRAM program
  17.  
  18. TIMEWAIT = 30                ; Set this to allow for phone to stop ringing.
  19. TIMEIDLE = 300               ; Set inactivity timeout in seconds.
  20. CACHE = 0                    ; Flush a delayed write cache.
  21. FLUSHCOMMAND=""              ; DOS command used to flush cache. 
  22.  
  23.    procedure Pause
  24.    string ch
  25.    print
  26.    print "Press [Enter] to continue ",
  27.    repeat
  28.       inputch ch
  29.    until success
  30.    print
  31.    print
  32.    endproc
  33.  
  34.  
  35.  
  36. query dirscript,scriptdir
  37. concat SCRIPTDIR,"\"
  38. strpos SCRIPTDIR,"\\",pos
  39. If pos=0
  40.    concat SCRIPTDIR,"THCONFIG.SBH"
  41. else
  42.    substr SCRIPTDIR,1,pos,SCRIPTDIR
  43.    concat SCRIPTDIR,"THCONFIG.SBH"
  44. endif
  45. open scriptdir
  46.  
  47. if success
  48.    read s
  49.    atoi s,NEWUSERLEVEL       ; new user level
  50.    read s
  51.    atoi s,SYSOPLEVEL         ; sysop level
  52.    read s
  53.    atoi s,DETECTBAUD         ; detect baud rate
  54.    read s
  55.    atoi s,INITIALBAUD        ; initial baud rate
  56.    read s
  57.    atoi s,YELLTIME           ; yell time
  58.    read s
  59.    atoi s,YELLSOUND          ; yell sound
  60.    read HOSTDIR              ; directory containing H*.SBH
  61.    read DOWNLOADDIR          ; download directory
  62.    read UPLOADDIR            ; upload directory
  63.    read s
  64.    atoi s,TIMEWAIT           ; Active Delay Time
  65.    read s
  66.    atoi s,TIMEIDLE           ; Inactive Timeout
  67.    read s
  68.    atoi s,CACHE              ; Use Cache?
  69.    read FLUSHCOMMAND         ; DOS flush command for cache
  70.    read RUNPROGRAM           ; RUN PROGRAM program
  71.    close
  72. endif
  73.  
  74. finish = 0
  75. while not finish
  76.    clear text
  77.    print 
  78.    print "    Tel-Host Configuration    "
  79.    print 
  80.    print "A: New user level     : ",NEWUSERLEVEL
  81.    print "B: Sysop level        : ",SYSOPLEVEL
  82.    print "C: Detect baud rate   : ",
  83.    if DETECTBAUD
  84.       print "ON"
  85.    else
  86.       print "OFF"
  87.    endif
  88.    print "D: Initial baud rate  : ",INITIALBAUD
  89.    print "E: Yell time          : ",YELLTIME," seconds"
  90.    print "F: Yell sound         : ",YELLSOUND," seconds"
  91.    print "G: Host directory     : ",HOSTDIR
  92.    print "H: Download directory : ",DOWNLOADDIR
  93.    print "I: Upload directory   : ",UPLOADDIR     
  94.    print
  95.    print "Advanced features..."
  96.    print
  97.    print "J: Activation Delay   : ",TIMEWAIT," seconds"
  98.    print "K: Inactive Timeout   : ",TIMEIDLE," seconds"
  99.    print "L: Using D/W Cache?   : ",   
  100.    if CACHE
  101.      print "YES  Flush Command = ",FLUSHCOMMAND
  102.    else
  103.      print "NO"
  104.    endif 
  105.    print "M: RUN Program        : ",RUNPROGRAM
  106.    print "    (See Tel-Host Documentation)"
  107.    print
  108.    print "S: Save configuration and run host mode"
  109.    print "Q: Abort configuration"
  110.    print
  111.    print "Which option: ",
  112.    repeat
  113.       inputch ch
  114.    until success
  115.    print ch
  116.    print
  117.    print
  118.  
  119.    switch ch
  120.       case "A":
  121.          print "Enter new user level: ",
  122.          input s
  123.          ss = ""
  124.          concat ss,s
  125.          if ss<>""
  126.             atoi ss,NEWUSERLEVEL
  127.          endif
  128.       case "B":
  129.          print "Enter sysop level: ",
  130.          input s
  131.          ss = ""
  132.          concat ss,s
  133.          if ss<>""
  134.             atoi ss,SYSOPLEVEL
  135.          endif
  136.       case "C":
  137.          DETECTBAUD = not DETECTBAUD
  138.       case "D":
  139.          print "Enter initial baud rate: ",
  140.          input s
  141.          ss = ""
  142.          concat ss,s
  143.          if ss<>""
  144.             atoi ss,baud
  145.          endif
  146.          switch baud
  147.             case   300: INITIALBAUD = baud
  148.             case  1200: INITIALBAUD = baud
  149.             case  2400: INITIALBAUD = baud
  150.             case  4800: INITIALBAUD = baud
  151.             case  9600: INITIALBAUD = baud
  152.             case 19200: INITIALBAUD = baud
  153.             case 38400: INITIALBAUD = baud
  154.             otherwise : print
  155.                         print "Invalid value"
  156.                         print
  157.                         Pause
  158.          endswitch
  159.       case "E":
  160.          print "Enter yell time (0 to turn off): ",
  161.          input s
  162.          ss = ""
  163.          concat ss,s
  164.          if ss<>""
  165.             atoi ss,YELLTIME
  166.          endif
  167.       case "F":
  168.          print "Enter yell sound length (0 to turn off): ",
  169.          input s
  170.          ss = ""
  171.          concat ss,s
  172.          if ss<>""
  173.             atoi ss,YELLSOUND
  174.          endif
  175.       case "G":
  176.          print "Enter host directory which contains H*.SBH: ",
  177.          input s
  178.          ss = ""
  179.          concat ss,s
  180.          if ss<>""
  181.             HOSTDIR = ss
  182.          endif
  183.       case "H":
  184.          print "Enter host download directory: ",
  185.          input s
  186.          ss = ""
  187.          concat ss,s
  188.          if ss<>""
  189.             DOWNLOADDIR = ss
  190.          endif
  191.       case "I":
  192.          print "Enter host upload directory: ",
  193.          input s
  194.          ss = ""
  195.          concat ss,s
  196.          if ss<>""
  197.             UPLOADDIR = ss
  198.          endif
  199.       case "J":
  200.          print "Enter Active Delay time in seconds: ",
  201.          input s
  202.          ss = ""
  203.          concat ss,s
  204.          if ss<>""
  205.             atoi ss,TIMEWAIT
  206.          endif                       
  207.       case "K":
  208.          print "Enter Inactive Time-out, in seconds: ",
  209.          input s
  210.          ss = ""
  211.          concat ss,s
  212.          if ss<>""
  213.             atoi ss,TIMEIDLE
  214.          endif
  215.       case "L":
  216.          If CACHE
  217.            CACHE=0
  218.            FLUSHCOMMAND = ""
  219.          else
  220.            CACHE=1
  221.            print "Make sure to include the no prompt flag..."
  222.            print "Enter DOS command to flush cache: ", 
  223.            input s
  224.            ss = ""
  225.            concat ss,s
  226.            if ss<>""
  227.               FLUSHCOMMAND = ss
  228.            endif
  229.          endif
  230.       case "M":
  231.          print "Enter program.  (Include PATH) : ",
  232.            input s
  233.            ss = ""
  234.            concat ss,s
  235.            if ss<>""
  236.               RUNPROGRAM = ss
  237.            endif
  238.       case "S":
  239.          delete SCRIPTDIR
  240.          create SCRIPTDIR
  241.          if not success
  242.             print "Cannot create THCONFIG.SBH"
  243.             print "Configuration aborted"
  244.             finish = 1
  245.          else
  246.             write NEWUSERLEVEL
  247.             write SYSOPLEVEL
  248.             write DETECTBAUD
  249.             write INITIALBAUD
  250.             write YELLTIME
  251.             write YELLSOUND
  252.             write HOSTDIR
  253.             write DOWNLOADDIR
  254.             write UPLOADDIR
  255.             write TIMEWAIT
  256.             write TIMEIDLE
  257.             write CACHE
  258.             write FLUSHCOMMAND
  259.             write RUNPROGRAM
  260.             close
  261.             print "Configuration completed"
  262.             Pause
  263.             print "Starting host mode"
  264.             concat HOSTDIR,"\"
  265.             strpos HOSTDIR,"\\",pos
  266.             If pos=0
  267.                concat HOSTDIR,"TEL-HOST.SCR"
  268.             else
  269.                substr HOSTDIR,1,pos,HOSTDIR
  270.                concat HOSTDIR,"TEL-HOST.SCR"
  271.             endif
  272.             script HOSTDIR
  273.          endif
  274.       case "Q":
  275.          print "Configuration aborted"
  276.          finish = 1
  277.    endswitch
  278. endwhile
  279.  
  280.  
  281.