home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / hostmode / hostmode.ksc < prev    next >
Text File  |  2020-01-01  |  29KB  |  1,115 lines
  1. ; HOSTMODE.KSC
  2. ;
  3. ; Utility and management functions for Kermit 95 host mode.
  4. ; Authors: F. da Cruz, C. Gianone
  5. ; Date: December 1995 - January 1996
  6. ; Updated February 1997 for OS/2
  7. ; Updated June 1997 for TAPI
  8. ; Setting of MAXUSERS fixed, December 1997.
  9. ; Recommendations of J.v.Jena jvjena@cs.tu-berlin.de incorporated, March 2000
  10. ; Corrections to _k95program and location of default host.cfg file, Apr 6, 2000
  11. ; More of same plus conversion to modern syntax, fdc, 6 July 2001.
  12. ;
  13. ; Uses of hostmode.bat:
  14. ; 
  15. ; - hostmode.bat makes the following assumptions:
  16. ;   an empty setting for the CFG variable (default) uses host.cfg
  17. ;   in the SCRIPTS subdirectory.
  18. ; 
  19. ; - A nonempty string as CFG value specifies a different subdirectory.
  20. ;   If this subdirectory does not already exist, it is created and
  21. ;   host.cfg is copied to it from the SCRIPTS subdirectory.  You can change
  22. ;   and save this configuration.
  23. ; 
  24. ; - Thus you can have different HOSTxxxx.BAT files that specify different
  25. ;   CFG values to pick up different configurations.
  26. ;
  27. ; Use of shortcuts to [scripts]/hostmode.ksc:
  28. ; 
  29. ; - Assuming the .ksc extension is registered by k95regtl,
  30. ;   create a shortcut for every needed hostmode configuration.
  31. ;   Set the work directory in the properties contextmenu of the
  32. ;   new shortcut to an existing directory. Host.cfg will be put
  33. ;   there.  If you leave the work directory unchanged you get the
  34. ;   default behavior (host.cfg in the scripts directory).
  35. ;
  36. undef _config_changed
  37. undef _userdb_changed
  38. undef _userdb_locked
  39. undef _userdb_loaded
  40. undef _current_user
  41. undef _current_id
  42.  
  43. if < \v(xversion) 1120 stop 1 K95 1.1.20 or later required.
  44.  
  45. asg _k95program \freplace(\v(exedir)k95.exe,/,\\)
  46. asg _k95d_program \freplace(\v(exedir)k95d.exe,/,\\)
  47. if eq "\v(system)" "OS/2" asg _k95program \freplace(\v(exedir)k2.exe,/,\\)
  48.  
  49. ; CLS is built in now.
  50. ; def CLS write screen \27[H\27[2J
  51.  
  52. def UNLOCK {
  53.     if exist \m(_lockfile) delete \m(_lockfile)
  54.     undef _userdb_locked
  55. }
  56.  
  57. def LOCK {
  58.     if def _userdb_locked end 1
  59.     if exist \m(_lockfile) {
  60.     echo LOCKFILE \m(_lockfile) in use by:
  61.     type \m(_lockfile)
  62.     end 2
  63.     }
  64.     open write \m(_lockfile)
  65.     if fail end 3
  66.     writeln file PROPRIETOR
  67.     if fail end 4
  68.     close write
  69.     if fail end 5
  70.     def _userdb_locked 1
  71.     end 0
  72. }
  73. def HOLDSCREEN echo, getc \%9 {Press Enter to continue: }, goto \%1
  74.  
  75. def MAKEVAR2 _assign \%1 \%2
  76.  
  77. def MAKEVAR {
  78.     if = \findex(=,\%1,1) 0 end
  79.     asg \%9 _\freplace(\%1,=,\32)
  80.     makevar2 \%9
  81. }
  82.  
  83. ; The following code was added to accomodate the new Windows multi-user
  84. ; friendly directory layouts introduced with version 1.1.21.  We have
  85. ; check several locations for the directories that hostmode uses and
  86. ; create them in \v(appdata) if the do not exist at all.
  87.  
  88. if exist \v(common)SCRIPTS/hostmode.ksc {
  89.    asg _hostscripts \v(common)
  90. }
  91.  
  92. if exist \v(appdata)SCRIPTS/hostmode.ksc {
  93.    asg _hostscripts \v(appdata)
  94. }
  95.  
  96. if directory \v(exedir)USERS {
  97.     asg _hostroot \v(exedir)
  98.     forward FOUNDDIRS
  99. }
  100. if directory \v(startup)INCOMING {
  101.     asg _hostroot \v(startup)
  102.     forward FOUNDDIRS
  103. }
  104.  
  105. if directory \v(appdata)INCOMING {
  106.     asg _hostroot \v(appdata)
  107.     forward FOUNDDIRS
  108. }
  109.  
  110. cls
  111. echo {Could not find necessary hostmode dirs, creating them...}
  112. if not directory \v(appdata)USERS if not exist \v(appdata)USERS {
  113.    mkdir \v(appdata)USERS
  114. }
  115. if not directory \v(appdata)PUBLIC if not exist \v(appdata)PUBLIC {
  116.    mkdir \v(appdata)PUBLIC
  117. }
  118. if not directory \v(appdata)INCOMING if not exist \v(appdata)INCOMING {
  119.    mkdir \v(appdata)INCOMING
  120. }
  121. if not directory \v(appdata)LOGS if not exist \v(appdata)LOGS {
  122.    mkdir \v(appdata)LOGS
  123. }
  124. if not directory \v(appdata)TMP if not exist \v(appdata)TMP {
  125.    mkdir \v(appdata)TMP
  126. }
  127.  
  128. if not exist \v(appdata)USERS/hostmode.txt {
  129.    copy \m(_hostscripts)USERS/*.TXT \v(appdata)USERS
  130. }
  131.  
  132. if not exist \v(appdata)PUBLIC/hostuser.txt {
  133.    copy \m(_hostscripts)PUBLIC/*.TXT \v(appdata)PUBLIC
  134. }
  135.  
  136. echo
  137. echo {Directories created in \v(appdata)...}
  138. asg _hostroot \v(appdata)
  139. holdscreen FOUNDDIRS
  140.  
  141. :FOUNDDIRS
  142.  
  143. asg _maxusers 100 ; In case there is no config file
  144.  
  145. def _haveconfig 0         ; Have not found config file yet
  146. asg _configfile host.cfg  ; Use config file in current directory
  147. echo STARTING...
  148. if not exist \m(_hostroot)\m(_configfile) {
  149.     if not exist \m(_hostscripts)scripts/host.cfg {
  150.     ec File \m(_configfile) not found - using built-in configuration
  151.         sleep 3
  152.         forward NOCONFIG
  153.     }
  154.  
  155.     if exist \m(_hostscripts)scripts/host.cfg {
  156.         xecho COPYING \m(_hostscripts)scripts/host.cfg to \m(_hostroot)...
  157.         copy \m(_hostscripts)scripts/host.cfg \m(_hostroot)
  158.         if fail {
  159.            echo FAILED
  160.            forward NOCONFIG
  161.         }
  162.         echo OK
  163.     }
  164. }
  165. echo Configuration file = \m(_hostroot)\m(_configfile)
  166. open read \m(_hostroot)\m(_configfile)
  167. if fail forward NOCONFIG
  168. def _haveconfig 1
  169. echo Loading configuration...
  170. while true { read aline, if fail break, makevar \m(aline) }
  171.  
  172. :NOCONFIG
  173. sleep 1
  174.  
  175. dcl \&u[\m(_maxusers)]
  176. if not def _lockfile asg _lockfile \m(_usertree)/USERS.LCK
  177.  
  178. define SAVEUSERDB {
  179.     if exist \fdef(_userbak) del \fdef(_userbak)
  180.     rename \fdef(_userfile) \fdef(_userbak)
  181.     if fail echo {Warning - Failure to back up user database}
  182.     open write \fdef(_userfile)
  183.     if fail {
  184.     echo Failed to open \fdef(_userfile)
  185.         holdscreen LBL_9
  186.     }
  187.     for \%i 1 \&u[0] 1 {
  188.     writeln file \&u[\%i]
  189.     if fail {
  190.         ec, ec Error writing record \%i to \fdef(_userfile)
  191.         ec Old version preserved as \fdef(_userbak)
  192.         break
  193.     }
  194.     }
  195.     close write
  196.     asg \%9 \v(status)
  197.     UNLOCK
  198.     echo
  199.     if not = \%9 0 echo {WARNING - Failed to close \fdef(_userfile)}
  200.     else echo {\fdef(_userfile) saved: \&u[0] records}
  201.     undef _userdb_changed
  202.     undef _userdb_loaded
  203.     undef _current_user
  204.     end \%9
  205. }
  206.  
  207. define SAVECONFIG {
  208.     asg \%8 \freplace(\m(_hostroot)\m(_configfile),\\,/)
  209.     asg \%9 \freplace(\%8,.CFG,.BAK)
  210.     if exist \%9 delete \%9
  211.     rename \%8 \%9
  212.     if fail echo WARNING - Failed to back up "\%8" to "\%9"
  213.     open write \m(_hostroot)\m(_configfile)
  214.     if fail { echo Failed to open \m(_configfile), end 1 }
  215.     writeln file SESSIONS=\m(_sessions)
  216.     writeln file MAXUSERS=\m(_maxusers)
  217.     writeln file INACTIVITY=\m(_inactivity)
  218.     writeln file LOGINTIME=\m(_logintime)
  219.     writeln file HOSTPORT=\m(_hostport)
  220.     writeln file COMMPORT={\m(_commport)}
  221.     writeln file COMSPEED=\m(_comspeed)
  222.     writeln file MODEM=\m(_modem)
  223.     writeln file ANONOK=\m(_anonok)
  224.     writeln file LOGGING=\m(_logging)
  225.     writeln file DLINCOMING=\m(_dlincoming)
  226.     writeln file MSGMAX=\m(_msgmax)
  227.     writeln file PROTOCOL=\m(_protocol)
  228.     writeln file XFERMODE=\m(_xfermode)
  229.     writeln file OWNER={\m(_owner)}
  230.     writeln file HERALD={\m(_herald)}
  231.     writeln file PUBLIC=\m(_public)
  232.     writeln file INCOMING=\fdef(_incoming)
  233.     writeln file LOGDIR=\fdef(_logdir)
  234.     writeln file USERTREE=\fdef(_usertree)
  235.     writeln file TMPDIR=\fdef(_tmpdir)
  236.     writeln file USERFILE=\fdef(_userfile)
  237.     writeln file GREETING=\fdef(_greeting)
  238.     writeln file HELPFILE=\fdef(_helpfile)
  239.     writeln file MSGFILE=\fdef(_msgfile)
  240.     close write
  241.     if success def _config_changed
  242.     else end 1
  243. }
  244.  
  245. ; SPLIT and GETFIELDS are for parsing user database records
  246. ;
  247. def SPLIT {
  248.     asg \%9 \findex(_,\%1)
  249.     asg _LEFT \fbreak(\%1,_)
  250.     asg _RIGHT \fsubstr(\%1,\%9+1)
  251. }
  252.  
  253. def GETFIELDS {
  254.     split {\%1}
  255.     asg U_ID \m(_LEFT)
  256.     split {\m(_RIGHT)}
  257.     asg U_PW \m(_LEFT)
  258.     split {\m(_RIGHT)}
  259.     asg U_PR \m(_LEFT)
  260.     split {\m(_RIGHT)}
  261.     asg U_NM \m(_LEFT)
  262.     split {\m(_RIGHT)}
  263.     asg U_AD \m(_LEFT)
  264.     split {\m(_RIGHT)}
  265.     asg U_TP \m(_LEFT)
  266.     split {\m(_RIGHT)}
  267.     asg U_EM \m(_LEFT)
  268. }
  269.  
  270. :BEGIN ; Program execution starts here...
  271.  
  272. def _priv_cd  1                ; Symbolic constants.
  273. def _priv_dos 2
  274.  
  275.                                         ; Remember startup values of these
  276. if tapi asg _myport {tapi \v(line)}
  277. if not def _myport asg _myport \v(line)    
  278. asg _myspeed \v(speed)
  279. asg _mymodem \v(modem)
  280.  
  281. set exit warning off            ; Now deassign all comm devices
  282. close
  283.  
  284. :LOOP
  285. asg _userbak \freplace(\m(_userfile),.DAT,.BAK)
  286. cls
  287. echo K-95 Host Mode Management
  288. echo
  289. if def _userdb_locked echo * User database is locked *
  290. else echo User database is not loaded
  291. echo
  292. echo { 1 - Start host mode}
  293. echo { 2 - View configuration}
  294. echo { 3 - Change configuration}
  295. echo { 4 - Save configuration}
  296. echo { 5 - Read messages from users}
  297. echo { 6 - Leave a message for a user}
  298. echo { 7 - View/edit current greeting message}
  299. echo { 8 - Post a new greeting message}
  300. echo { 9 - Manage user database}
  301. echo {10 - Help}
  302. echo {11 - Exit}
  303. echo
  304. ask \%a {Your choice: }
  305. if not def \%a goto loop
  306. if not num \%a {
  307.     ec "\%a" - Not a number
  308.     sleep 1
  309.     goto loop
  310. }
  311. if > \%a 0 if not > \%a 11 forward LBL_\%a
  312. echo "\%a" - out of range
  313. sleep 1
  314. goto loop
  315.  
  316. :LBL_1
  317. cls
  318. echo Start Host Mode...
  319. echo
  320. echo { 1 - Telnet}
  321. echo { 2 - Dialup}
  322. echo { 3 - Direct COM port}
  323. echo { 4 - Return to main menu}
  324. echo
  325. ask \%a {Your choice: }
  326. if not def \%a goto LBL_1
  327. if not num \%a {
  328.     ec "\%a" - not a number
  329.     sleep 1
  330.     goto LBL_1
  331. }
  332. if > \%a 0 if not > \%a 4 forward START_\%a
  333. echo "\%a" - out of range
  334. sleep 1
  335. goto LBL_1
  336.  
  337. :START_1 ; Telnet
  338. cls
  339. echo
  340. if def _hostport forw start_1a
  341. echo HOSTPORT not configured.
  342. echo Please choose "Change configuration".
  343. holdscreen LOOP
  344.  
  345. :START_1A
  346. echo Starting Kermit 95 mode on TCP port \m(_hostport).
  347. getok {OK? }
  348. if fail goto loop
  349. if not def _config_changed forward start_1b
  350. echo
  351. getok {Configuration has changed - do you want to save it first? (y/n) }
  352. if success saveconfig
  353.  
  354. :START_1B
  355. if eq "\v(system)" "WIN32" forward S1BWIN32
  356. if not eq "\v(system)" "OS/2" {
  357.     echo Sorry - so far this only works for Windows 95/NT and OS/2...
  358.     holdscreen LOOP
  359. }
  360. if > \m(_sessions) 1 {
  361.     echo To start a TCP/IP host mode listener in OS/2 please follow the
  362.     echo instructions in DOCS\MANUAL\OS2K95.HTML.
  363.     holdscreen LOOP
  364. }
  365. run start \m(_k95program) \m(_hostscripts)scripts/hosttcp.ksc
  366. goto loop
  367.  
  368. :S1BWIN32
  369. if > \m(_sessions) 1 -
  370.  run start -
  371.   \m(_k95d_program) \m(_hostport) "take \m(_hostscripts)scripts/host.ksc, exit"
  372. else run start \m(_k95program) \m(_hostscripts)scripts/hosttcp.ksc
  373. goto loop
  374.  
  375. :START_2
  376. cls
  377. echo
  378. if not eq "\m(_commport)" "" forward START_2B
  379. echo COMMPORT not configured.
  380. getok {Use TAPI (Windows modem device)? }
  381. if success { asg _commport tapi, asg _modem tapi, goto start_2b }
  382.  
  383. echo
  384. echo The following settings were made in your K-95 initialization file:
  385. echo
  386. echo { set modem \m(_mymodem)}
  387. echo { set port \m(_myport)}
  388. echo { set speed \m(_myspeed)}
  389. echo
  390. getok {Use them? }
  391. if success forward START_2C
  392.  
  393. :START_2A
  394. echo
  395. echo Please "Change configuration" to choose or modify serial device settings.
  396. holdscreen LOOP
  397.  
  398. :START_2B
  399. echo Starting Kermit 95 host mode...
  400. echo Will wait for a call on port \m(_commport).
  401. if def _comspeed echo Speed: \m(_comspeed)
  402. echo Modem: \m(_modem)
  403.  
  404. :START_2C
  405. getok {OK? }
  406. if fail goto loop
  407. if not def _config_changed forward start_2d
  408. echo
  409. getok {Configuration has changed - do you want to save it first? (y/n) }
  410. if success saveconfig
  411.  
  412. :START_2D
  413. run start \m(_k95program) \freplace(\m(_hostscripts)scripts/hostmdm.ksc,/,\\)
  414. goto LOOP
  415.  
  416. :START_3
  417. cls
  418. echo
  419. if def \m(_commport) forward START_3C
  420. echo COMMPORT not configured.
  421. if equal "\v(connection)" "serial" forward START_3B
  422. forward START_3A
  423. :START_3B
  424. echo
  425. echo The following settings were made in your K-95 initialization file:
  426. echo
  427. if tapi echo { set port tapi \v(line)}
  428. else echo { set port \v(line)}
  429. echo { set speed \v(speed)}
  430. echo
  431. getok {Use them? }
  432. if success forward START_3C
  433.  
  434. :START_3A
  435. echo
  436. echo Please "Change configuration" to choose or modify serial device settings.
  437. holdscreen LOOP
  438.  
  439. :START_3C
  440. if not def _config_changed forward start_3d
  441. echo
  442. getok {Configuration has changed - do you want to save it first? (y/n) }
  443. if success saveconfig
  444.  
  445. :START_3D
  446. echo
  447. echo Using direct connection on \m(_commport) at \m(_comspeed) bps.
  448. echo
  449. echo Starting Kermit 95 host mode...
  450. run start \m(_k95program) \freplace(\m(_hostscripts)scripts/hostcom.ksc,/,\\)
  451.  
  452. :START_4
  453. goto loop
  454.  
  455. :LBL_2 ; View configuration
  456. if = \m(_haveconfig) 0 {
  457.     echo Can't find configuration file
  458.     holdscreen LOOP
  459. }
  460. echo
  461. echo SESSIONS=\m(_sessions)
  462. echo MAXUSERS=\m(_maxusers)
  463. echo INACTIVITY=\m(_inactivity)
  464. echo HOSTPORT=\m(_hostport)
  465. echo COMMPORT=\m(_commport)
  466. echo COMSPEED=\m(_comspeed)
  467. echo ANONOK=\m(_anonok)
  468. echo LOGGING=\m(_logging)
  469. echo DLINCOMING=\m(_dlincoming)
  470. echo MSGMAX=\m(_msgmax)
  471. echo PROTOCOL=\m(_protocol)
  472. echo XFERMODE=\m(_xfermode)
  473. echo OWNER=\m(_owner)
  474. echo HERALD=\m(_herald)
  475. echo PUBLIC=\m(_public)
  476. echo INCOMING=\m(_incoming)
  477. echo LOGDIR=\m(_logdir)
  478. echo USERTREE=\m(_usertree)
  479. echo TMPDIR=\m(_tmpdir)
  480. echo USERFILE=\m(_userfile)
  481. echo GREETING=\m(_greeting)
  482. echo HELPFILE=\m(_helpfile)
  483. echo MSGFILE=\m(_msgfile)
  484. echo
  485. clear
  486. ask \%a Press the Enter key to return to main menu...
  487. goto loop
  488.  
  489. :LBL_3 ; Change config
  490. if not eq \m(_haveconfig) 0 forward getchanges
  491. ;
  492. ; Set defaults in case they don't have a config file
  493. ;
  494. asg _sessions 1                       ; Maximum number of Telnet sessions
  495. asg _maxusers 100                     ; Maximum number of user IDs
  496. asg _inactivity 1200                  ; Inactivity limit (seconds)
  497. asg _anonok 1                         ; Anonymous logins OK (0 = not OK)
  498. asg _logging 1                        ; Logging enabled (0 = skip logging)
  499. asg _dlincoming 0                     ; OK to download from INCOMING directory
  500. asg _msgmax 200                       ; Longest message size (lines)
  501. asg _protocol kermit                  ; Default file transfer protocol
  502. asg _xfermode binary                  ; Default file transfer mode
  503. asg _owner THE PROPRIETOR             ; Substitute your name, company name, etc
  504. asg _herald Welcome to K-95 Host Mode ; 
  505. asg _public   \m(_hostroot)PUBLIC     ; Directory that users can get files from
  506. asg _incoming \m(_hostroot)INCOMING   ; Directory that users can send file to
  507. asg _logdir   \m(_hostroot)LOGS       ; Directory for host-mode logs
  508. asg _usertree \m(_hostroot)USERS      ; Root of user directory tree
  509. asg _tmpdir   \m(_hostroot)TMP        ; Directory for temp files
  510. asg _userfile \m(_usertree)/USERS.DAT ; User database file
  511. asg _greeting \m(_usertree)/GREETING.TXT ; Message/greeting text filename
  512. asg _helpfile \m(_usertree)/HOSTMODE.TXT ; Host-mode help file
  513. asg _msgfile  \m(_usertree)/MESSAGES.TXT ; Messages for proprietor
  514.  
  515. :GETCHANGES
  516.  
  517. :CF0
  518. ask \%a { Maximum TCP/IP host sessions [\m(_sessions)]: }
  519. if not def \%a forward CFA
  520. if not numeric \%a goto CF0
  521. getok { SESSIONS=\%a, OK? (y/n): }
  522. if fail goto CF0
  523. asg _config_changed 1
  524. asg _sessions \%a
  525.  
  526. :CFA
  527. ask \%a { Maximum number of user IDs [\m(_maxusers)]: }
  528. if not def \%a forward CF1
  529. if not numeric \%a goto CFA
  530. getok { MAXUSERS=\%a, OK? (y/n): }
  531. if fail goto CFA
  532. asg _config_changed 1
  533. asg _maxusers \%a
  534.  
  535. :CF1
  536. ask \%a { Inactivity limit, seconds [\m(_inactivity)]: }
  537. if not def \%a forward CF2
  538. if not numeric \%a goto CF1
  539. getok { INACTIVITY=\%a, OK? (y/n): }
  540. if fail goto CF1
  541. asg _config_changed 1
  542. asg _inactivity \%a
  543. :CF2
  544. ask \%a { TCP port for incoming TCP/IP connections [\m(_hostport)]: }
  545. if not def \%a forward CF3
  546. getok { HOSTPORT=\%a, OK? (y/n): }
  547. if fail goto CF2
  548. asg _config_changed 1
  549. asg _hostport \%a
  550. :CF3
  551. ask \%a { Communications port for incoming dialups [\m(_commport)]: }
  552. if not def \%a forward CF4
  553. getok { COMMPORT=\%a, OK? (y/n): }
  554. if fail goto CF3
  555. asg _config_changed 1
  556. asg _commport \%a
  557. :CF4
  558. ask \%a { Speed of \m(_commport) [\m(_comspeed)]: }
  559. if not def \%a goto CF5
  560. if < 0 \findex(:\%a:,:14400:19200:38400:28800:57600:115200:) forward CF4A
  561. if < 0 \findex(:\%a:,:230400:1200:2400:9600:300:600:1800:4800:) forward CF4A
  562. echo "\%a" - Unknown speed
  563. goto CF4
  564. :CF4A
  565. getok { SPEED=\%a, OK? (y/n): }
  566. if fail goto CF4
  567. asg _config_changed 1
  568. asg _comspeed \%a
  569. :CF5
  570. ask \%a { Type of modem on \m(_commport) [\m(_modem)]: }
  571. if not def \%a forward CF6
  572. getok { MODEM=\%a, OK? (y/n): }
  573. if fail goto CF5
  574. set modem type \%a
  575. if fail {
  576.     echo "\%a" - Unknown modem type
  577.     goto CF5
  578. }
  579. asg _config_changed 1
  580. asg _modem \%a
  581. :CF6
  582. ask \%a { Anonymous guest logins OK (1 = yes, 0 = no) [\m(_anonok)]: }
  583. if not def \%a forward CF7
  584. if not num \m(_anonok) goto CF6
  585. getok { ANONOK=\%a, OK? (y/n): }
  586. if fail goto CF6
  587. asg _config_changed 1
  588. asg _anonok \%a
  589. :CF7
  590. ask \%a { Maximum number of lines for a message [\m(_msgmax)]: }
  591. if not def \%a forw CF8
  592. if not num \m(_msgmax) goto CF7
  593. getok { MSGMAX=\%a, OK? (y/n): }
  594. if fail goto CF7
  595. asg _config_changed 1
  596. asg _msgmax \%a
  597. :CF8
  598. ask \%a { Default file transfer protocol [\m(_protocol)]: }
  599. if not def \%a forw CF9
  600. set protocol \%a
  601. if fail {
  602.     echo "\%a" - Bad protocol
  603.     goto CF8
  604. }
  605. getok { PROTOCOL=\%a, OK? (y/n): }
  606. if fail goto CF8
  607. asg _config_changed 1
  608. asg _protocol \%a
  609. :CF9
  610. ask \%a { Default file transfer mode (text or binary) [\m(_xfermode)]: }
  611. if not def \%a forw CF10
  612. set file type \%a
  613. if fail goto CF9
  614. getok { XFERMODE=\%a, OK? (y/n): }
  615. if fail goto CF9
  616. asg _config_changed 1
  617. asg _xfermode \%a
  618. :CF10
  619. ask \%a { PC owner's or company's name for users to see [\m(_owner)]: }
  620. if not def \%a forw CF11
  621. getok { OWNER=\%a, OK? (y/n): }
  622. if fail goto CF10
  623. asg _config_changed 1
  624. asg _owner \%a
  625. :CF11
  626. ask \%a { Main menu title [\m(_herald)]: }
  627. if not def \%a forw CF12
  628. getok { HERALD=\%a, OK? (y/n): }
  629. if fail goto CF11
  630. asg _config_changed 1
  631. asg _herald \%a
  632. :CF12
  633. ask \%a { Directory readable by all users [\m(_public)]: }
  634. if not def \%a forw CF13
  635. getok { PUBLIC=\%a, OK? (y/n): }
  636. if fail goto CF12
  637. asg _config_changed 1
  638. asg _public \%a
  639. :CF13
  640. ask \%a { Directory writeable by all users [\m(_incoming)]: }
  641. if not def \%a forw CF14
  642. getok { INCOMING=\%a, OK? (y/n): }
  643. if fail goto CF13
  644. asg _config_changed 1
  645. asg _incoming \%a
  646. :CF14
  647. ask \%a { Directory for temporary files [\m(_tmpdir)]: }
  648. if not def \%a forw CF15
  649. getok { TMPDIR=\%a, OK? (y/n): }
  650. if fail goto CF14
  651. asg _config_changed 1
  652. asg _tmpdir \%a
  653. :CF15
  654. ask \%a -
  655. { OK to download from INCOMING directory (1 = yes, 0 = no) [\m(_dlincoming)]: }
  656. if not def \%a forw CF16
  657. if not numeric \%a goto CF15
  658. getok { DLINCOMING=\%a, OK? (y/n): }
  659. if fail goto CF15
  660. asg _config_changed 1
  661. asg _dlincoming \%a
  662. :CF16
  663. ask \%a { Keep log files (1 = yes, 0 = no) [\m(_logging)]: }
  664. if not def \%a forw CF17
  665. getok { LOGGING=\%a, OK? (y/n): }
  666. if fail goto CF16
  667. asg _config_changed 1
  668. asg _logging \%a
  669. :CF17
  670. ask \%a { Directory for log files [\m(_logdir)]: }
  671. if not def \%a forw CF18
  672. getok { LOGDIR=\%a, OK? (y/n): }
  673. if fail goto CF17
  674. asg _config_changed 1
  675. asg _logdir \%a
  676. :CF18
  677. ask \%a { Root of user directory tree [\m(_usertree)]: }
  678. if not def \%a forw CF19
  679. getok { USERTREE=\%a, OK? (y/n): }
  680. if fail goto CF18
  681. asg _config_changed 1
  682. asg _usertree \%a
  683. :CF19
  684. ask \%a { User database file [\m(_userfile)]: }
  685. if not def \%a forw CF20
  686. getok { USERFILE=\%a, OK? (y/n): }
  687. if fail goto CF19
  688. asg _config_changed 1
  689. asg _userfile \%a
  690. :CF20
  691. ask \%a { Login message file for all users [\m(_greeting)]: }
  692. if not def \%a forw CF21
  693. getok { GREETING=\%a, OK? (y/n): }
  694. if fail goto CF20
  695. asg _config_changed 1
  696. asg _greeting \%a
  697. :CF21
  698. ask \%a { File displayed when user requests help [\m(_helpfile)]: }
  699. if not def \%a forw CF22
  700. getok { HELPFILE=\%a, OK? (y/n): }
  701. if fail goto CF21
  702. asg _config_changed 1
  703. asg _helpfile \%a
  704. :CF22
  705. ask \%a { File in which you receive messages from users [\m(_msgfile)]: }
  706. if not def \%a forw CFXX
  707. getok { MSGFILE=\%a, OK? (y/n): }
  708. if fail goto CF22
  709. asg _config_changed 1
  710. asg _msgfile \%a
  711. :CFXX
  712. echo
  713. clear
  714. ask \%a Press the Enter key to return to main menu...
  715. goto loop
  716.  
  717. :LBL_4 ; Save config
  718. write screen Saving \m(_configfile)...
  719. saveconfig
  720. if success echo OK
  721. holdscreen LOOP
  722.  
  723. :LBL_5 ; Read messages
  724. echo
  725. echo Sorry - this is not really a mail program.
  726. echo Starting notepad to view the message file.
  727. echo Use notepad to remove, copy messages, etc.
  728. echo As yet there is no reply reply mechanism.
  729. echo To reply, just choose "Leave message" from
  730. echo from the main menu...
  731. sleep 1
  732. run notepad \freplace(\m(_msgfile),/,\\)
  733. goto loop
  734.  
  735. :LBL_6 ; Leave message for a user
  736. cls
  737. echo Leave a message...
  738. echo
  739. :MSGTO
  740. ask \%u {To: }
  741. if not def \%u goto MSGTO
  742. if dir \m(_usertree)/\%u forward SENDMESSAGE
  743. echo "\%u" - No such user [\m(_usertree)\%u]
  744. holdscreen LOOP
  745.  
  746. :LBL_7 ; View / edit greeting message
  747. cls
  748. echo Starting notepad.
  749. echo Make any desired changes and then save the file...
  750. sleep 1
  751. run notepad \freplace(\m(_greeting),/,\\)
  752. goto loop
  753.  
  754. :LBL_8 ; Post message to all users
  755. cls
  756. echo Post a message for all users...
  757. echo
  758. :MSGTO
  759. def \%u All
  760. forward sendmessage
  761.  
  762. :LBL_9 ; Manage user database
  763. cls
  764. echo User database management functions...
  765. echo
  766. asg \%a {Database filename: \fdef(_userfile)}
  767. if def _userdb_loaded asg \%a \%a - Loaded
  768. else asg \%a \%a - Not loaded
  769. if def _userdb_changed asg \%a \%a - Changed
  770. asg \%b {Current user:      }
  771. if def _current_user asg \%b \%b\m(_current_id)
  772. else asg \%b \%b(none)
  773. echo \%a
  774. if def _userdb_loaded echo Users:             \&u[0]
  775. echo \%b
  776. echo
  777. if exist \fdef(_userfile) {
  778.     echo { 1 - Load user database}
  779. } else {
  780.     echo { 1 - Create user database}
  781. }
  782. echo { 2 - Display user database}
  783. echo { 3 - Look up a user / set current user}
  784. echo { 4 - Add a new user}
  785. echo { 5 - Remove current user}
  786. echo { 6 - Modify current user}
  787. echo { 7 - Save and unload user database}
  788. echo { 8 - Remove lock}
  789. echo { 9 - Return to main menu}
  790. echo
  791. ask \%a {Your choice: }
  792. if not def \%a goto LBL_9
  793. if not num \%a { ec "\%a" - not a number, holdscreen LBL_9 }
  794. if > \%a 0 if not > \%a 9 forward USER_\%a
  795. echo "\%a" - out of range
  796. holdscreen LBL_9
  797.  
  798. :USER_1 ; Load database
  799. if not exist \fdef(_userfile) forward USER_CREATE_DB
  800. if not def _userdb_loaded forward USER_LOAD
  801. echo
  802. echo User database already loaded.
  803. if not def _userdb_changed goto LBL_9
  804. echo You have made changes to it.
  805. getok {Do you want to abandon your changes? }
  806. if success forward USER_LOAD
  807. echo Load canceled.
  808. holdscreen LBL_9
  809.  
  810. :USER_LOAD
  811. lock
  812. if fail { echo Sorry - can't lock user database., holdscreen LBL_9 }
  813. open read \fdef(_userfile)
  814. if fail { echo {Can't open \fdef(_userfile)}, unlock, goto loop }
  815. asg \&u[0] 0
  816. for \%i 1 \m(_maxusers) 1 {
  817.     read \&u[\%i]
  818.     if fail break
  819.     increment \&u[0]
  820. }
  821. close read
  822. def _userdb_loaded 1
  823. ec
  824. ec \fdef(_userfile) loaded: \&u[0] user(s).
  825. holdscreen LBL_9
  826.  
  827. :USER_CREATE_DB ; Create database
  828. open write \fdef(_userfile)
  829. if fail { echo Can't create \fdef(_userfile), holdscreen LBL_9 }
  830. close write
  831. if fail { echo Can't close \fdef(_userfile), holdscreen LBL_9 }
  832. asg _userdb_loaded 1
  833. asg \&u[0] 0
  834. echo \fdef(_userfile) created, now use "Add" to create user IDs.
  835. holdscreen LBL_9
  836.  
  837. :USER_8
  838. if not exist \m(_lockfile) {
  839.     ec
  840.     ec Lock not found.
  841.     holdscreen LBL_9
  842. }
  843. dir \m(_lockfile)
  844. echo
  845. type \m(_lockfile)
  846. echo
  847. getok {OK to remove? }
  848. if success unlock
  849. holdscreen LBL_9
  850.  
  851. :USER_9
  852. goto LOOP
  853.  
  854. :USER_2
  855. if not def _userdb_loaded { ec User database not loaded, forward user_2x }
  856. echo \&u[0] user(s) in \fdef(_userfile).
  857. if def _userdb_changed echo Changes have not been saved.
  858. else echo No changes have been made.
  859. ec
  860. for \%i 1 \&u[0] 1 { echo \%i. \&u[\%i] }
  861. :USER_2X
  862. holdscreen LBL_9
  863.  
  864. :USER_3 ; Look up a user
  865. if not def _userdb_loaded {
  866.     ec
  867.     ec User database not loaded
  868.     holdscreen LBL_9
  869. }
  870. if < \&u[0] 1 { ec, ec No users in database, holdscreen LBL_9 }
  871. echo
  872. echo
  873. ask \%u {User ID or name to look up: }
  874. asg _current_user
  875. for \%i 1 \&u[0] 1 {
  876.     getfields {\&u[\%i]}
  877.     if eq "\m(U_ID)" "\%u" { asg _current_user \%i, break }
  878. }
  879. if not def _current_user {
  880.     ec \%u - Not found
  881.     holdscreen LBL_9
  882. } else {
  883.     ec \%u = user \m(_current_user)
  884. }
  885. getfields {\&u[\m(_current_user)]}
  886. asg _current_id \m(U_ID)
  887.  
  888. ec User ID:   \m(U_ID)
  889. ec Password:  \m(U_PW)
  890. ec Privs:     \m(U_PR)
  891. ec Name:      \m(U_NM)
  892. ec Address:   \m(U_AD)
  893. ec Phone:     \m(U_TP)
  894. ec Email:     \m(U_EM)
  895. holdscreen LBL_9
  896.  
  897. :USER_4 ; Add a new user
  898. if not def _userdb_loaded { ec, ec User database not loaded, holdscr LBL_9 }
  899. ec
  900. ec
  901. ask \%u {User ID: }
  902. if not def \%u goto LBL_9
  903. for \%i 1 \&u[0] 1 {
  904.      split \&u[\%i]
  905.      if eq "\%u" "\m(_LEFT)" {
  906.      echo User "\%u" already exists.
  907.      holdscr LBL_9
  908.     }
  909. }
  910. :USER_PW
  911. ask \%p {Password for \%u: }
  912. ask \%q {Retype password: }
  913. if not eq "\%p" "\%q" {
  914.    echo Passwords do not match - please try again.
  915.    goto USER_PW
  916. }
  917. :USER_PR
  918. echo
  919. echo Enter privilege level...
  920. echo { 0 = None}
  921. echo { 1 = Allowed to CD to any directory}
  922. echo { 2 = Allowed to give DOS commands}
  923. echo { 3 = 1 and 2}
  924. echo
  925. undef \%x
  926. while not def \%x {
  927.     ask \%x {Privilege level (0-2): }
  928. }
  929. if not numeric \%x {
  930.     ec Please enter a digit: 0 thru 3.
  931.     goto USER_PR
  932. }
  933. echo Privilege level for \%u: \%x
  934. getok {OK? }
  935. if fail goto USER_PR
  936. :USER_ETC
  937. ask \%n {User's name (optional): }
  938. ask \%a {User's address (optional): }
  939. ask \%t {User's phone number (optional): }
  940. ask \%e {User's email address (optional): }
  941. ec
  942. ec User ID:   \%u
  943. ec Password:  \%p
  944. ec Privilege: \%x
  945. ec Name:      \%n
  946. ec Address:   \%a
  947. ec Phone:     \%t
  948. ec Email:     \%e
  949. ec
  950. getok {OK to enter? }
  951. if fail goto LBL_9
  952. asg \%i \&u[0]
  953. incr \%i
  954. ec Adding user number \%i...
  955. asg \&u[\%i] \%u_\f.oox(\%p)_\%x_\%n_\%a_\%t_\%e_
  956. asg \&u[0] \%i
  957. asg _userdb_changed 1
  958. holdscreen LBL_9
  959.  
  960. :USER_7 ; Save database
  961. saveuserdb
  962. holdscreen LBL_9
  963.  
  964. :USER_5 ; Remove a user
  965. if not def _userdb_loaded { ec, ec User database not loaded, holdscr LBL_9 }
  966. if def _current_user forward USER_REMOVE
  967. echo No current user, please use Lookup to select a user to remove.
  968. holdscreen LBL_9
  969. :USER_REMOVE
  970. echo
  971. echo Current user is \m(_current_id):
  972. echo \&u[\m(_current_user)]
  973. getok {OK to remove? }
  974. if fail {
  975.     ec \m(_current_id) not removed
  976.     holdscreen LBL_9
  977. }
  978. decrement \&u[0]
  979. for \%i \m(_current_user) \&u[0] 1 {
  980.      asg \&u[\%i] \&u[\%i+1]
  981. }
  982. echo
  983. echo User \m(_current_id) removed.
  984. asg _userdb_changed 1
  985. echo You should go through the user's files yourself by hand and decide
  986. echo what to do with them.
  987. asg _current_id
  988. asg _current_user
  989. holdscreen LBL_9
  990.  
  991. :USER_6 ; Modify current user info
  992. if def _current_user forward USER_CHANGE
  993. echo No current user - please use Lookup to select a user.
  994. holdscreen LBL_9
  995. :USER_CHANGE
  996. ec Current user:
  997. ec
  998. ec User ID:   \m(U_ID)
  999. ec Password:  \m(U_PW)
  1000. ec Privilege: \m(U_PR)
  1001. ec Name:      \m(U_NM)
  1002. ec
  1003. asg \%p \m(U_PW)
  1004. getok {Change this user's password? }
  1005. if fail { echo Password not changed, forward U6_PR }
  1006. :PASS_AGAIN
  1007. ec
  1008. ask \%p {New password:    }
  1009. ask \%q {Retype password: }
  1010. if not eq "\%p" "\%q" {
  1011.     ec Passwords do not match - please try again.
  1012.     goto PASS_AGAIN
  1013. }
  1014. getok {Change \m(U_ID)'s password to "\%p"? }
  1015. if fail { echo Password not changed, forward U6_PR }
  1016. echo Password changed.
  1017. asg _userdb_changed 1
  1018. :U6_PR
  1019. asg \%x \m(U_PR)
  1020. echo \m(U_ID)'s privilege level = \m(U_PR)
  1021. getok {Change it? }
  1022. if fail { echo Privilege not changed, forward USER_XX }
  1023. :U6LOOP
  1024. echo
  1025. echo Enter privilege level...
  1026. echo { 0 = None}
  1027. echo { 1 = Allowed to CD to any directory}
  1028. echo { 2 = Allowed to give DOS commands}
  1029. echo { 3 = 1 and 2}
  1030. echo
  1031. undef \%x
  1032. while not def \%x {
  1033.     ask \%x {Privilege level (0-2): }
  1034. }
  1035. if not numeric \%x { ec Please enter a digit: 0 thru 3., goto U6LOOP }
  1036. echo Privilege level for \m(U_ID): \%x
  1037. getok {OK? }
  1038. if fail goto U6LOOP
  1039. asg _userdb_changed 1
  1040.  
  1041. :USER_XX
  1042. if def _userdb_changed -
  1043. asg \&u[\m(_current_user)] -
  1044.   \m(U_ID)_\f.oox(\%p)_\%x_\m(U_NM)_\m(U_AD)_\m(U_TP)_\m(U_EM)
  1045. holdscreen lbl_9
  1046.  
  1047. :LBL_10 ; Help
  1048. if not exist \m(_usertree)hostmode.txt {
  1049.     echo, echo "\m(_usertree)hostmode.txt" not found
  1050.     holdscreen LOOP
  1051. }
  1052. run notepad \freplace(\m(_usertree)hostmode.txt,/,\\)
  1053. goto loop
  1054.  
  1055. :LBL_11 ; Exit
  1056. if not def _config_changed if not def _userdb_changed forward exit
  1057. echo
  1058. if def _config_changed {
  1059.     echo Configuration is changed.
  1060.     getok {Do you want to save it? }
  1061.     if success saveconfig
  1062. }
  1063. if def _userdb_changed {
  1064.     echo User database is changed.
  1065.     getok {Do you want to save it? }
  1066.     if success saveuserdb
  1067. }
  1068. :EXIT
  1069. unlock
  1070. echo
  1071. exit
  1072.  
  1073. ; Message writer...
  1074.  
  1075. :SENDMESSAGE
  1076. ask \%s {Subject: }
  1077. def \%i 0
  1078. echo Enter the message, finish by entering period (.) alone on a line:
  1079. echo
  1080. dcl \&a[200]
  1081.  
  1082. :MSGLOOP
  1083. incr \%i
  1084. if > \%i 200 goto MSGDONE
  1085. ask \&a[\%i] {\flpad(\%i,3,0)> }
  1086. if not eq "\&a[\%i]" "." goto MSGLOOP
  1087.  
  1088. :MSGDONE
  1089. asg \%n \%i
  1090. echo
  1091. getok {OK to send to \%u? (y/n): }
  1092. if fail goto loop
  1093. if eq "\%u" "All" asg \%f \m(_greeting)
  1094. else asg \%f \m(_usertree)/\%u.MSG
  1095. echo Opening \%f...
  1096. sleep 1
  1097. open append \%f
  1098. if fail { echo Can't open message file \%f, forw msgend }
  1099. writeln file Date: \v(date) \v(time)
  1100. writeln file To: \%u
  1101. writeln file From: \m(_owner)
  1102. writeln file Subject: \%s
  1103. writeln file
  1104. for \%i 1 \%n 1 { writeln file \&a[\%i] }
  1105. close write
  1106. if fail { echo Can't close message file \%f, goto msgend }
  1107.  
  1108. :MSGEND
  1109. dcl \&a[0]
  1110. clear
  1111. ask \%a Press the Enter key to return to main menu...
  1112. goto LOOP
  1113.  
  1114. ; End of HOSTMODE.KSC
  1115.