home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / MDR-Install < prev    next >
Text File  |  2000-08-19  |  23KB  |  773 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Installation software for MDR INET_DIAL WWW Interface package
  4. ;
  5. ; $VER: INET_DIAL-Install 1.62 (13.08.00)
  6. ;
  7. ; ©Copyright 2000 MDR INTERFACES Ltd
  8. ;
  9. ;------------------------------------------------------------------------
  10. ;
  11. (onerror (CLEANUP))
  12.  
  13. (set #wrongversion
  14. (cat "You have an old version of the program 'Installer' "
  15.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  16.      "Please check your configuration!"
  17. ))
  18.  
  19. (set #welcome
  20. (cat "\nWelcome to the the Installation of the MDR INET_DIAL WWW Interface Package!"
  21. ))
  22.  
  23. (set #mdrdestdir-prompt "Please select the drawer where the drawer 'MDR_INET' for the WWW Interface package should be created.")
  24. (set #mdrdestdir-help   "Typically, 'Work:' is selected as destination.")
  25.  
  26. (set #destdir-prompt    "\nPlease select the drawer where %s should be installed.\n")
  27. (set #destdir-help      "If you have modified your installation, the Installer and the Surfer package may not be able to find certain drawers. If you are not sure, keep with the default values.")
  28.  
  29. (set #browser-prompt "\nPlease select which Internet Browser you intend to use with INET_DIAL")
  30. (set #browser-help   "\nSelect the Internet Browser you wish to use. \n\nPlease remember to re-install INET_DIAL if you wish to change your Browser!")
  31.  
  32. (set #stack-prompt   "\nPlease select the TCP/IP stack installed on your Amiga")
  33. (set #stack-help     "\nSelect the TCP/IP stack you wish to use. \n\nPlease remember to re-install INET_DIAL if you wish to change the stack!")
  34.  
  35. (set #webserver-prompt "\nPlease select the Web Server software which you will use for CONTROL")
  36. (set #webserver-help "\nSelect the Web Server for the [optional] Control Applications. \n\nPlease remember to re-install INET_DIAL if you change your Web Server!")
  37.  
  38. (set #mdrdir-info       "the MDR_INET applications")
  39.  
  40. (set #installing        "Installing %s...")
  41.  
  42. (set #no-diskspace      "\nTo install the MDR INET_DIAL WWW Interface package into '%s', you need at least %ld bytes of free harddrive space!")
  43.  
  44. (set #startup-prompt    "\nSome lines need to be added to S:User-Startup for %s:\n\n%s")
  45. (set #startup-help      "The WWW Interface package won't work correctly without these lines!")
  46.  
  47. (set #ask-config        "\nThe MDR INET_DIAL WWW Interface package has now been installed. Do you want to set up the configuration for it?")
  48. (set #ask-config-help   "Without setting up the configuration after an installation or an update, you might run into problems later!")
  49.  
  50. (set #prefsave-prompt   "\nDo you want to keep the existing preferences for\n\n'%s'?")
  51. (set #prefsave-help     "If you don't keep existing preferences, they will be overwritten with default values!")
  52. ;
  53. ;------------------------------------------------------------------------
  54. ; Cleanup any temporary mess we created
  55. (procedure CLEANUP
  56.     ; Nothing to cleanup
  57.     (delete (tackon @default-dest ".tempinstall") (all) (optional "force"))
  58. ) ; CLEANUP
  59.  
  60. ;------------------------------------------------------------------------
  61. ; Obtain an installation path
  62. (procedure GETPATH #gp_envname #gp_default #gp_remdir #gp_msg #gp_help
  63.  
  64.     (set #gp_res "")
  65.     (while (= "" #gp_res)
  66.         (set #gp_res #gp_default)
  67.         (if (not (exists #gp_res (noreq)))
  68.           (
  69.             (if (= #gp_res "Work:")
  70.               (
  71.                 (set #gp_res "")
  72.                 (set #gp_default @default-dest)
  73.               )
  74.             ) ; if
  75.  
  76.             (if (<> "" #gp_envname)
  77.               (
  78.                 (set #gp_res (getenv (cat "MDR/Path_" #gp_envname)))
  79.  
  80.                 (if (AND (<> "" #gp_res) #gp_remdir)
  81.                   (
  82.                     ; Remove the "Internet" suffix
  83.                     (set #gp_res (pathonly #gp_res))
  84.                   )
  85.                 ) ; if
  86.               )
  87.               (
  88.                 (set #gp_res "")
  89.               )
  90.             ) ; if
  91.           )
  92.         ) ; if
  93.  
  94.         (if (OR (= "" #gp_res) (= @user-level 2))
  95.           (
  96.             ; We had a problem. So we need to ask the user!
  97.             (set #gp_res
  98.                 (expandpath
  99.                     (askdir
  100.                         (prompt #gp_msg)
  101.                         (help #gp_help)
  102.                         (default #gp_default)
  103.                     )
  104.                 )
  105.             )
  106.           )
  107.         ) ; if
  108.  
  109.         ; If the directory does not exist, retry!
  110.         (if (<> "" #gp_res)
  111.           (
  112.             (if (not (exists #gp_res (noreq)))
  113.                 (set #gp_res "")
  114.             ) ; if
  115.           )
  116.         ) ; if
  117.     ) ; while
  118.  
  119.     ; return the result!
  120.     (set #gp_res #gp_res)
  121.  
  122. ) ; GETPATH
  123. ;------------------------------------------------------------------------
  124. ; We can't handle this script without Installer 42.9 or better!
  125. (if (< @installer-version 2752521)
  126.   (
  127.     (message #wrongversion)
  128.     (exit (quiet))
  129.   )
  130. )
  131. ;
  132. ;------------------------------------------------------------------------
  133. ; intro
  134. (message "\nINET_DIAL" "\n\nWWW Interface software" "\n\n ©2000 MDR Interfaces Ltd" "\nDanehill, Sussex, Great Britain" "\n\nAuthor: Richard de Rivaz"
  135. "\n\nwww.mdr.co.uk" "\ntel: +44(0)1825-790294" "\nFax: +44(0)1825-790119" (all))
  136. ;
  137. (complete 2)
  138. ;
  139. (message "\nThe MDR INET_DIAL WWW Interface software is integrated with a Web Browser and Mailer, providing WWW and remote computer connection software, as well as a `dial-in' server for remote computers." "\n\nBefore proceeding, please therefore ensure that you have the following software pre-installed" "\n\nYAM Mailer and AWEB-II, VOYAGER or IBROWSE Web Browsers (Registered)" "\n\nAMITCP, MIAMI or MIAMI DeLuxe TCP/IP Stack (Registered)" (all))
  140. ;
  141. (complete 4)
  142. ;
  143. (message "\n\nPlease note that INET_DIAL can also provide a local and remote equipment control function using MDR, X-10 protocols and AREXX." "\n\nMDR and X-10 control devices are separately available from MDR." "\n\nTo be able to use this facility you will need to install the APACHE web server software and one additional serial port for each protocol." (all))
  144. ;
  145. (message "\n\nINET_DIAL" "\n\nDOCUMENTATION" "\n\nFull Documentation is provided with this installation process. The files in HTML format are stored in MDR:DOCS/ and can be viewed using any Web Browser" (all))
  146. ;
  147. (complete 6)
  148. ;
  149. (message "INET_DIAL LICENCE""\n\nPlease note that, whilst every effort has been made to ensure that this software operates correctly, the software is provided on an `as is' basis licenced to the user. " "No representations or warranties are made with respect to the accuracy, reliability, performance, currentness, or operation of this software and information, and all use is at your own risk." "Neither MDR nor the author can accept any liability whatsoever for loss or consequential loss either of data or physical damage arising from the use of this software. Please click on `PROCEED' if you accept the terms of this licence." (all))
  150. ;
  151. (complete 8)
  152. ;------------------------------------------------------------------------
  153. ;
  154. (set finstall 1)
  155. ;
  156. (welcome)
  157. ;
  158. (complete 22)
  159. ;
  160. ;------------------------------------------------------------------------
  161.     ; assume a new installation
  162.     (set AddMDRAssign FALSE)
  163.     (set IsUpdate FALSE)
  164.  
  165.     ; First find the MDR_INET base
  166.  
  167.     (set #mdrdirbase (GETPATH "WWW Internet Package" "Work:" TRUE #mdrdestdir-prompt #mdrdestdir-help))
  168.  
  169.     ; We have to create a drawer "MDR_INET" there!
  170.     (set #mdrdir (tackon #mdrdirbase "MDR_INET"))
  171.  
  172.     ; If this is a new installation, we check the diskspace!
  173.       (
  174.         ; For a new setup, we should leave some space!
  175.         (if (< (getdiskspace #mdrdirbase) 2000000)
  176.             (abort (#no-diskspace #mdrdirbase 2000000))
  177.         )
  178.       )
  179.  
  180.       (
  181.         (makedir #mdrdir (infos))
  182.         (makedir (tackon #mdrdir "PREFS") (infos))
  183.         (makedir (tackon #mdrdir "LOGS") (infos))
  184.         (makedir (tackon #mdrdir "LOCKS") (infos))
  185.         (makedir (tackon #mdrdir "BACKUP") (infos))
  186.         (makedir (tackon #mdrdir "DOCS") (infos))
  187.         (makedir (tackon #mdrdir "MAILSTORE") (infos))
  188.         (makedir (tackon #mdrdir "AUTHORISATION") (infos))
  189.         (makedir (tackon #mdrdir "AREXX") (infos))
  190.         (makedir (tackon #mdrdir "BIN") (infos))
  191.         (makedir (tackon #mdrdir "PRINTBUFFER") (infos))
  192.         (makedir (tackon #mdrdir "TCPIP") (infos))
  193.         (makedir (tackon #mdrdir "TCPIP/L") (infos))
  194.         (makedir (tackon #mdrdir "TCPIP/BIN") (infos))
  195.         (makedir (tackon #mdrdir "EVENTS") (infos))
  196.         (makedir "SYS:PREFS/ENV-ARCHIVE/SANA2" (infos))
  197.       )
  198.  
  199.     (set @default-dest #mdrdir)
  200.  
  201. ;
  202. ;------------------------------------------------------------------------
  203. (set browser   (askchoice (choices "AWEB-II" "IBROWSE")
  204.                         (prompt #browser-prompt)
  205.                         (help #browser-help)
  206.                )
  207. )
  208. (if (= browser 0) (set mdrbrowser "AWEB-II"))
  209. (if (= browser 1) (set mdrbrowser "IBROWSE"))
  210. (if (= browser 2) (set mdrbrowser "VOYAGER"))
  211.  
  212. ;------------------------------------------------------------------------
  213. (set stack    (askchoice (choices "AMITCP" "MIAMI" "MIAMI DeLuxe")
  214.                         (prompt #stack-prompt)
  215.                         (help #stack-help)
  216.               )
  217. )
  218. (if (= stack 0) (set mdrstack "AMITCP"))
  219. (if (= stack 1) (set mdrstack "MIAMI"))
  220. (if (= stack 2) (set mdrstack "MIAMI DeLuxe"))
  221. ;------------------------------------------------------------------------
  222. (set webserver  (askchoice (choices "none" "APACHE")
  223.                         (prompt #webserver-prompt)
  224.                         (help #webserver-help)
  225.               )
  226. )
  227. (if (= webserver 1) (set mdrwebserver "APACHE"))
  228. (if (= webserver 0) (set mdrwebserver "none installed"))
  229. ;------------------------------------------------------------------------
  230. (message "\nYou have selected\n\n\n\nWeb Browser = " mdrbrowser "\n\nTCP/IP Stack = " mdrstack "\n\nWeb Server = " mdrwebserver "\n\nLocation of files = " #mdrdir "/" (all))
  231. ;------------------------------------------------------------------------
  232. ;
  233. (message "\n\n\n\nthe MDR INET_DIAL WWW Interface files will now be copied" (all))
  234. ;
  235. ;
  236. (complete 24)
  237. ;
  238. (working (#installing "Read_Me!"))
  239. (copyfiles
  240.     (source "Read_me!")
  241.     (dest (tackon #mdrdir "" (infos)))
  242.     (optional "force" "askuser")
  243. )
  244. ;
  245. (complete 26)
  246. ;
  247. (working (#installing "Inet_dial"))
  248. (copyfiles
  249.     (source "BIN/Inet_dial")
  250.     (dest (tackon #mdrdir "BIN" (infos)))
  251.     (optional "force" "askuser")
  252. )
  253. ;
  254. (working (#installing "MDRSocket"))
  255. (copyfiles
  256.     (source "BIN/MDRSocket")
  257.     (dest (tackon #mdrdir "BIN" (infos)))
  258.     (optional "force" "askuser")
  259. )
  260. ;
  261. (complete 27)
  262. ;
  263. (working (#installing "MDRArexx"))
  264. (copyfiles
  265.     (source "BIN/MDRArexx")
  266.     (dest (tackon #mdrdir "BIN" (infos)))
  267.     (optional "force" "askuser")
  268. )
  269. ;
  270. (complete 28)
  271. ;
  272. (working (#installing "AutoMail"))
  273. (copyfiles
  274.     (source "BIN/AutoMail")
  275.     (dest (tackon #mdrdir "BIN") (infos))
  276.     (optional "force" "askuser")
  277. )
  278. ;
  279. (complete 30)
  280. ;
  281. (working (#installing "MDRBackup"))
  282. (copyfiles
  283.     (source "BIN/MDRBackup")
  284.     (dest (tackon #mdrdir "BIN" (infos)))
  285.     (optional "force" "askuser")
  286. )
  287. ;
  288. (complete 32)
  289. ;
  290. (working (#installing "chown"))
  291. (copyfiles
  292.     (source "BIN/chown")
  293.     (dest (tackon #mdrdir "BIN"))
  294.     (optional "force" "askuser")
  295. )
  296. ;
  297. (complete 34)
  298. ;
  299. (working (#installing "chmod"))
  300. (copyfiles
  301.     (source "BIN/chmod")
  302.     (dest (tackon #mdrdir "BIN"))
  303.     (optional "force" "askuser")
  304. )
  305. ;
  306. (complete 36)
  307. ;
  308. (working (#installing "mapdevice"))
  309. (copyfiles
  310.     (source "BIN/mapdevice")
  311.     (dest (tackon #mdrdir "BIN"))
  312.     (optional "force" "askuser")
  313. )
  314. ;
  315. (complete 38)
  316. ;
  317. (working (#installing "mdr_reboot"))
  318. (copyfiles
  319.     (source "BIN/mdr_reboot")
  320.     (dest (tackon #mdrdir "BIN"))
  321.     (optional "force" "askuser")
  322. )
  323. ;
  324. (complete 40)
  325. ;
  326. (if (= stack 1)
  327.     (
  328.        (working (#installing "send_now! (MIAMI)"))
  329.        (copyfiles
  330.            (source "BIN/MIAMI/send_now!.MIAMI")
  331.            (dest (tackon #mdrdir "BIN") (infos))
  332.            (optional "force" "askuser")
  333.        )
  334.     )
  335. )   
  336. ;
  337. (if (= stack 2)
  338.     (
  339.        (working (#installing "send_now! (MIAMIDX)"))
  340.        (copyfiles
  341.            (source "BIN/MIAMI/send_now!.MIAMIDX")
  342.            (dest (tackon #mdrdir "BIN") (infos))
  343.            (optional "force" "askuser")
  344.        )
  345.     )
  346. )
  347. ;
  348. (if (= stack 0)
  349.     (
  350.         (working (#installing "send_now! (AMITCP)"))
  351.         (copyfiles
  352.            (source "BIN/AMITCP/send_now!")
  353.            (dest (tackon #mdrdir "BIN") (infos))
  354.            (optional "force" "askuser")
  355.         )
  356.     )
  357. )
  358. ;
  359. (complete 42)
  360. ;
  361. (working (#installing "Inet_dial_connect.awebrx"))
  362. (copyfiles
  363.     (source "AREXX/Inet_dial_connect.awebrx")
  364.     (dest (tackon #mdrdir "AREXX"))
  365.     (optional "force" "askuser")
  366. )
  367. ;
  368. (complete 44)
  369. ;
  370. (working (#installing "Inet_dial_disconnect.awebrx"))
  371. (copyfiles
  372.     (source "AREXX/Inet_dial_disconnect.awebrx")
  373.     (dest (tackon #mdrdir "AREXX"))
  374.     (optional "force" "askuser")
  375. )
  376. ;
  377. (complete 46)
  378. ;
  379. (working (#installing "Inet_dial_quit.awebrx"))
  380. (copyfiles
  381.     (source "AREXX/Inet_dial_quit.awebrx")
  382.     (dest (tackon #mdrdir "AREXX"))
  383.     (optional "force" "askuser")
  384. )
  385. ;
  386. (complete 48)
  387.  
  388. (working (#installing "mdr_controlrefresh.awebrx"))
  389. (copyfiles
  390.     (source "AREXX/mdr_controlrefresh.awebrx")
  391.     (dest (tackon #mdrdir "AREXX"))
  392.     (optional "force" "askuser")
  393. )
  394. ;
  395. (working (#installing "mdr_logonrefresh.awebrx"))
  396. (copyfiles
  397.     (source "AREXX/mdr_logonrefresh.awebrx")
  398.     (dest (tackon #mdrdir "AREXX"))
  399.     (optional "force" "askuser")
  400. )
  401. ;
  402. (working (#installing "mdr_logoutrefresh.awebrx"))
  403. (copyfiles
  404.     (source "AREXX/mdr_logoutrefresh.awebrx")
  405.     (dest (tackon #mdrdir "AREXX"))
  406.     (optional "force" "askuser")
  407. )
  408. ;
  409. (complete 49)
  410.  
  411. (working (#installing "mdr_videorefresh.awebrx"))
  412. (copyfiles
  413.     (source "AREXX/mdr_videorefresh.awebrx")
  414.     (dest (tackon #mdrdir "AREXX"))
  415.     (optional "force" "askuser")
  416. )
  417. ;
  418. (complete 50)
  419.  
  420. (working (#installing "mdr_eventrefresh.awebrx"))
  421. (copyfiles
  422.     (source "AREXX/mdr_eventrefresh.awebrx")
  423.     (dest (tackon #mdrdir "AREXX"))
  424.     (optional "force" "askuser")
  425. )
  426. ;
  427. (complete 51)
  428.  
  429. (working (#installing "mdr_settingsrefresh.awebrx"))
  430. (copyfiles
  431.     (source "AREXX/mdr_settingsrefresh.awebrx")
  432.     (dest (tackon #mdrdir "AREXX"))
  433.     (optional "force" "askuser")
  434. )
  435. ;
  436. (complete 52)
  437.  
  438. (working (#installing "mdr_refresh.awebrx"))
  439. (copyfiles
  440.     (source "AREXX/mdr_refresh.awebrx")
  441.     (dest (tackon #mdrdir "AREXX"))
  442.     (optional "force" "askuser")
  443. )
  444. ;
  445. (complete 53)
  446.  
  447. (working (#installing "mdr_settings.awebrx"))
  448. (copyfiles
  449.     (source "AREXX/mdr_settings.awebrx")
  450.     (dest (tackon #mdrdir "AREXX"))
  451.     (optional "force" "askuser")
  452. )
  453. ;
  454. (complete 54)
  455.  
  456. (working (#installing "mdr_setvideo.awebrx"))
  457. (copyfiles
  458.     (source "AREXX/mdr_setvideo.awebrx")
  459.     (dest (tackon #mdrdir "AREXX"))
  460.     (optional "force" "askuser")
  461. )
  462. ;
  463. (complete 56)
  464. ;
  465. (working (#installing "mdr_register.awebrx"))
  466. (copyfiles
  467.     (source "AREXX/mdr_register.awebrx")
  468.     (dest (tackon #mdrdir "AREXX"))
  469.     (optional "force" "askuser")
  470. )
  471. ;
  472. (complete 58)
  473. ;
  474. (working (#installing "killhandler"))
  475. (copyfiles
  476.     (source "TCPIP/killhandler")
  477.     (dest (tackon #mdrdir "TCPIP"))
  478.     (optional "force" "askuser")
  479. )
  480. ;
  481. (complete 60)
  482. ;
  483. (working (#installing "letnet"))
  484. (copyfiles
  485.     (source "TCPIP/letnet")
  486.     (dest (tackon #mdrdir "TCPIP/BIN"))
  487.     (optional "force" "askuser")
  488. )
  489. ;
  490. (complete 62)
  491. ;
  492. (working (#installing "netfs-handler"))
  493. (copyfiles
  494.     (source "TCPIP/netfs-handler")
  495.     (dest (tackon #mdrdir "TCPIP/L"))
  496.     (optional "force" "askuser")
  497. )
  498. ;
  499. (complete 64)
  500. ;
  501. (working (#installing "netfs-server"))
  502. (copyfiles
  503.     (source "TCPIP/netfs-server")
  504.     (dest (tackon #mdrdir "TCPIP"))
  505.     (optional "force" "askuser")
  506. )
  507. ;
  508. (complete 66)
  509. ;
  510. (working (#installing "netmount"))
  511. (copyfiles
  512.     (source "TCPIP/netmount")
  513.     (dest (tackon #mdrdir "TCPIP"))
  514.     (optional "force" "askuser")
  515. )
  516. ;
  517. (complete 68)
  518. ;
  519. (working (#installing "remoteview"))
  520. (copyfiles
  521.     (source "TCPIP/remoteview")
  522.     (dest (tackon #mdrdir "TCPIP"))
  523.     (optional "force" "askuser")
  524. )
  525. ;
  526. (complete 69)
  527. ;
  528. (working (#installing "rhcslip.device"))
  529. (copyfiles
  530.     (source "TCPIP/rhcslip.device")
  531.     (dest (tackon #mdrdir "TCPIP"))
  532.     (optional "force" "askuser")
  533. )
  534. ;
  535. (complete 70)
  536. ;
  537. (working (#installing "remotecli"))
  538. (copyfiles
  539.     (source "TCPIP/remotecli")
  540.     (dest (tackon #mdrdir "TCPIP"))
  541.     (optional "force" "askuser")
  542. )
  543. ;
  544. (working (#installing "remoteprint"))
  545. (copyfiles
  546.     (source "TCPIP/remoteprint")
  547.     (dest (tackon #mdrdir "TCPIP"))
  548.     (optional "force" "askuser")
  549. )
  550. ;
  551. (complete 71)
  552. ;
  553. (working (#installing "remotearexx"))
  554. (copyfiles
  555.     (source "TCPIP/remotearexx")
  556.     (dest (tackon #mdrdir "TCPIP"))
  557.     (optional "force" "askuser")
  558. )
  559. ;
  560. (complete 72)
  561. ;
  562. (
  563.     (working (#installing "Configuration file"))
  564.     (copyfiles
  565.        (source "PREFS/mdr_internet")
  566.        (dest (tackon #mdrdir "PREFS"))
  567.        (optional "force" "askuser")
  568.     )
  569. )
  570. ;
  571. (complete 73)
  572. ;
  573. (working (#installing "documentation"))
  574. (copyfiles
  575.     (source "DOCS/mdr_inet_dial.html")
  576.     (dest (tackon #mdrdir "DOCS"))
  577.     (optional "force" "askuser")
  578. )
  579. ;
  580. (copyfiles
  581.     (source "DOCS/mdr_unavailable.html")
  582.     (dest (tackon #mdrdir "DOCS"))
  583.     (optional "force" "askuser")
  584. )
  585. ;
  586. ;
  587. (copyfiles
  588.     (source "DOCS/vh40.png")
  589.     (dest (tackon #mdrdir "DOCS"))
  590.     (optional "force" "askuser")
  591. )
  592. ;
  593. (complete 74)
  594. ;
  595. (working (#installing "inet_dial_netfs.jpg"))
  596. (copyfiles
  597.     (source "DOCS/inet_dial_netfs.jpg")
  598.     (dest (tackon #mdrdir "DOCS"))
  599.     (optional "force" "askuser")
  600. )
  601. ;
  602. (complete 75)
  603. ;
  604. (working (#installing "inet_dial_www.jpg"))
  605. (copyfiles
  606.     (source "DOCS/inet_dial_www.jpg")
  607.     (dest (tackon #mdrdir "DOCS"))
  608.     (optional "force" "askuser")
  609. )
  610. ;
  611. (complete 76)
  612. ;
  613. (working (#installing "inet_dial_status.jpg"))
  614. (copyfiles
  615.     (source "DOCS/inet_dial_status.jpg")
  616.     (dest (tackon #mdrdir "DOCS"))
  617.     (optional "force" "askuser")
  618. )
  619. ;
  620. (complete 77)
  621. ;
  622. (working (#installing "inet_dial_settings.jpg"))
  623. (copyfiles
  624.     (source "DOCS/inet_dial_settings.jpg")
  625.     (dest (tackon #mdrdir "DOCS"))
  626.     (optional "force" "askuser")
  627. )
  628. ;
  629. (complete 78)
  630. ;
  631. (working (#installing "inet_dial_mail.jpg"))
  632. (copyfiles
  633.     (source "DOCS/inet_dial_mail.jpg")
  634.     (dest (tackon #mdrdir "DOCS"))
  635.     (optional "force" "askuser")
  636. )
  637. ;
  638. (complete 79)
  639. ;
  640. (working (#installing "inet_dial_control.jpg"))
  641. (copyfiles
  642.     (source "DOCS/inet_dial_control.jpg")
  643.     (dest (tackon #mdrdir "DOCS"))
  644.     (optional "force" "askuser")
  645. )
  646. ;
  647. (complete 80)
  648. ;
  649. (working (#installing "mdr.jpg"))
  650. (copyfiles
  651.     (source "DOCS/mdr.jpg")
  652.     (dest (tackon #mdrdir "DOCS"))
  653.     (optional "force" "askuser")
  654. )
  655. ;
  656. (complete 82)
  657. ;
  658. (working (#installing "mdr_inet_dial.jpg"))
  659. (copyfiles
  660.     (source "DOCS/mdr_inet_dial.jpg")
  661.     (dest (tackon #mdrdir "DOCS"))
  662.     (optional "force" "askuser")
  663. )
  664. ;
  665. (complete 84)
  666. ;
  667. (working (#installing "apache.gif"))
  668. (copyfiles
  669.     (source "DOCS/apache.gif")
  670.     (dest (tackon #mdrdir "DOCS"))
  671.     (optional "force" "askuser")
  672. )
  673. ;
  674. (complete 86)
  675. ;
  676. (working (#installing "copyright notice"))
  677. (copyfiles
  678.     (source "DOCS/copyrights")
  679.     (dest (tackon #mdrdir "DOCS"))
  680.     (optional "force" "askuser")
  681. )
  682. ;
  683. (complete 88)
  684. ;
  685. (working (#installing "Picture"))
  686. (copyfiles
  687.     (source "DOCS/trossi1.jpg")
  688.     (dest (tackon #mdrdir "DOCS"))
  689.     (optional "force" "askuser")
  690. )
  691. ;
  692. (complete 90)
  693. ;
  694. ;------------------------------------------------------------------------
  695. ;create assign if does not exist
  696. ;
  697. (if (= "" (getassign "MDR" "adv"))
  698.     (Set AddMDRAssign TRUE)
  699. ) ; if
  700. ;
  701. (if AddMDRAssign
  702.   (
  703.     (makeassign "MDR" #mdrdir)
  704.     (makeassign "DSERVER" #mdrdirbase)
  705.   )
  706. )
  707. ;
  708. (complete 92)
  709. ;
  710. (if (= stack 1)
  711.     (
  712.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nAssign AMITCP: MDR:TCPIP " "\nPath MDR:BIN ADD" "\nstack 100000" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5"  "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  713.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  714.            (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  715.            (help #startup-help)
  716.            (command cmd)
  717.        )
  718.     )
  719. )
  720. ;
  721. (if (= stack 2)
  722.     (
  723.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nAssign AMITCP: MDR:TCPIP " "\nPath MDR:BIN ADD" "\nstack 100000" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  724.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  725.            (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  726.            (help #startup-help)
  727.            (command cmd)
  728.        )
  729.     )
  730. )
  731. ;
  732. (if (= stack 0)
  733.     (
  734.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nPath MDR:BIN ADD" "\nstack 100000" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  735.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  736.           (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  737.           (help #startup-help)
  738.           (command cmd)
  739.        )
  740.     )
  741. )
  742. ;
  743. ;
  744. (complete 94)
  745. ;
  746. ;------------------------------------------------------------------------
  747. ; Finally create some information about INET_DIAL
  748. ;
  749. (makedir "ENV:MDR" (infos))
  750. (makedir "ENVARC:MDR" (infos))
  751. (textfile (dest "ENV:MDR/Stack_MDR") (append mdrstack))
  752. (textfile (dest "ENVARC:MDR/Stack_MDR") (append mdrstack))
  753. (textfile (dest "ENV:MDR/Browser_MDR") (append mdrbrowser))
  754. (textfile (dest "ENVARC:MDR/Browser_MDR") (append mdrbrowser))
  755. (textfile (dest "ENV:MDR/Server_MDR") (append mdrwebserver))
  756. (textfile (dest "ENVARC:MDR/Server_MDR") (append mdrwebserver))
  757. (complete 96)
  758. ;
  759. (message "\nINET_DIAL is shareware. Please register for support and access to all functions." "\n\nUnregistered users are restricted to WWW and remote computer access and automatic mailchecking. The software is not time limited." "\n\nPlease send any bug reports to bug-report@mdr.co.uk quoting INET_DIAL serial number. Please direct any suggestions for further development to suggestions@mdr.co.uk subject 'inet_dial'." "\n\nenjoy!" (all))
  760. (complete 98)
  761. (message "\n\nINET_DIAL will be automatically started by the file `s:user-startup' after a reboot." "\n\nFirst time users will then be invited to configure their system.""\n\nTo start INET_DIAL please therefore remove all removeable disks from your computer and reboot after exiting installer!" (all))
  762. (complete 100)
  763. ;------------------------------------------------------------------------
  764. ;
  765. (CLEANUP)
  766. (exit)
  767. ;
  768. ;------------------------------------------------------------------------
  769. ;
  770. ; *** EOT ***
  771. ;------------------------------------------------------------------------
  772. ;
  773.