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