home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / MDR-Install.BAK < prev    next >
Text File  |  2000-05-11  |  22KB  |  736 lines
  1. ;------------------------------------------------------------------------
  2. ;
  3. ; Installation software for MDR INET_DIAL WWW Interface package
  4. ;
  5. ; $VER: INET_DIAL-Install 1.56 (11.05.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 remeber 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 Web Browser (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 "BACKUP") (infos))
  185.         (makedir (tackon #mdrdir "DOCS") (infos))
  186.         (makedir (tackon #mdrdir "MAILSTORE") (infos))
  187.         (makedir (tackon #mdrdir "AUTHORISATION") (infos))
  188.         (makedir (tackon #mdrdir "AREXX") (infos))
  189.         (makedir (tackon #mdrdir "BIN") (infos))
  190.         (makedir (tackon #mdrdir "PRINTBUFFER") (infos))
  191.         (makedir (tackon #mdrdir "TCPIP") (infos))
  192.         (makedir (tackon #mdrdir "TCPIP/L") (infos))
  193.         (makedir (tackon #mdrdir "EVENTS") (infos))
  194.         (makedir "SYS:PREFS/ENV-ARCHIVE/SANA2" (infos))
  195.       )
  196.  
  197.     (set @default-dest #mdrdir)
  198.  
  199. ;
  200. ;------------------------------------------------------------------------
  201. (set browser   (askchoice (choices "AWEB-II")
  202.                         (prompt #browser-prompt)
  203.                         (help #browser-help)
  204.                )
  205. )
  206. (if (= browser 0) (set mdrbrowser "AWEB-II"))
  207. (if (= browser 1) (set mdrbrowser "VOYAGER"))
  208. (if (= browser 2) (set mdrbrowser "IBROWSE"))
  209.  
  210. ;------------------------------------------------------------------------
  211. (set stack    (askchoice (choices "AMITCP" "MIAMI" "MIAMI DeLuxe")
  212.                         (prompt #stack-prompt)
  213.                         (help #stack-help)
  214.               )
  215. )
  216. (if (= stack 0) (set mdrstack "AMITCP"))
  217. (if (= stack 1) (set mdrstack "MIAMI"))
  218. (if (= stack 2) (set mdrstack "MIAMI DeLuxe"))
  219. ;------------------------------------------------------------------------
  220. (set webserver  (askchoice (choices "APACHE" "none")
  221.                         (prompt #webserver-prompt)
  222.                         (help #webserver-help)
  223.               )
  224. )
  225. (if (= webserver 0) (set mdrwebserver "APACHE"))
  226. (if (= webserver 1) (set mdrwebserver "none installed"))
  227. ;------------------------------------------------------------------------
  228. (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))
  229. ;------------------------------------------------------------------------
  230. ;
  231. (message "\n\n\n\nthe MDR INET_DIAL WWW Interface files will now be copied" (all))
  232. ;
  233. ;
  234. (complete 24)
  235. ;
  236. (working (#installing "Read_Me!"))
  237. (copyfiles
  238.     (source "Read_me!")
  239.     (dest (tackon #mdrdir "" (infos)))
  240.     (optional "force" "askuser")
  241. )
  242. ;
  243. (complete 26)
  244. ;
  245. (working (#installing "Inet_dial"))
  246. (copyfiles
  247.     (source "BIN/Inet_dial")
  248.     (dest (tackon #mdrdir "BIN" (infos)))
  249.     (optional "force" "askuser")
  250. )
  251. ;
  252. (complete 27)
  253. ;
  254. (working (#installing "MDRArexx"))
  255. (copyfiles
  256.     (source "BIN/MDRArexx")
  257.     (dest (tackon #mdrdir "BIN" (infos)))
  258.     (optional "force" "askuser")
  259. )
  260. ;
  261. (complete 28)
  262. ;
  263. (working (#installing "AutoMail"))
  264. (copyfiles
  265.     (source "BIN/AutoMail")
  266.     (dest (tackon #mdrdir "BIN") (infos))
  267.     (optional "force" "askuser")
  268. )
  269. ;
  270. (complete 30)
  271. ;
  272. (working (#installing "MDRBackup"))
  273. (copyfiles
  274.     (source "BIN/MDRBackup")
  275.     (dest (tackon #mdrdir "BIN" (infos)))
  276.     (optional "force" "askuser")
  277. )
  278. ;
  279. (complete 32)
  280. ;
  281. (working (#installing "chown"))
  282. (copyfiles
  283.     (source "BIN/chown")
  284.     (dest (tackon #mdrdir "BIN"))
  285.     (optional "force" "askuser")
  286. )
  287. ;
  288. (complete 34)
  289. ;
  290. (working (#installing "chmod"))
  291. (copyfiles
  292.     (source "BIN/chmod")
  293.     (dest (tackon #mdrdir "BIN"))
  294.     (optional "force" "askuser")
  295. )
  296. ;
  297. (complete 36)
  298. ;
  299. (working (#installing "mapdevice"))
  300. (copyfiles
  301.     (source "BIN/mapdevice")
  302.     (dest (tackon #mdrdir "BIN"))
  303.     (optional "force" "askuser")
  304. )
  305. ;
  306. (complete 38)
  307. ;
  308. (working (#installing "mdr_reboot"))
  309. (copyfiles
  310.     (source "BIN/mdr_reboot")
  311.     (dest (tackon #mdrdir "BIN"))
  312.     (optional "force" "askuser")
  313. )
  314. ;
  315. (complete 40)
  316. ;
  317. (if (= stack 1)
  318.     (
  319.        (working (#installing "send_now! (MIAMI)"))
  320.        (copyfiles
  321.            (source "BIN/MIAMI/send_now!.MIAMI")
  322.            (dest (tackon #mdrdir "BIN") (infos))
  323.            (optional "force" "askuser")
  324.        )
  325.     )
  326. )   
  327. ;
  328. (if (= stack 2)
  329.     (
  330.        (working (#installing "send_now! (MIAMIDX)"))
  331.        (copyfiles
  332.            (source "BIN/MIAMI/send_now!.MIAMIDX")
  333.            (dest (tackon #mdrdir "BIN") (infos))
  334.            (optional "force" "askuser")
  335.        )
  336.     )
  337. )
  338. ;
  339. (if (= stack 0)
  340.     (
  341.         (working (#installing "send_now! (AMITCP)"))
  342.         (copyfiles
  343.            (source "BIN/AMITCP/send_now!")
  344.            (dest (tackon #mdrdir "BIN") (infos))
  345.            (optional "force" "askuser")
  346.         )
  347.     )
  348. )
  349. ;
  350. (complete 42)
  351. ;
  352. (working (#installing "Inet_dial_connect.awebrx"))
  353. (copyfiles
  354.     (source "AREXX/Inet_dial_connect.awebrx")
  355.     (dest (tackon #mdrdir "AREXX"))
  356.     (optional "force" "askuser")
  357. )
  358. ;
  359. (complete 44)
  360. ;
  361. (working (#installing "Inet_dial_disconnect.awebrx"))
  362. (copyfiles
  363.     (source "AREXX/Inet_dial_disconnect.awebrx")
  364.     (dest (tackon #mdrdir "AREXX"))
  365.     (optional "force" "askuser")
  366. )
  367. ;
  368. (complete 46)
  369. ;
  370. (working (#installing "Inet_dial_quit.awebrx"))
  371. (copyfiles
  372.     (source "AREXX/Inet_dial_quit.awebrx")
  373.     (dest (tackon #mdrdir "AREXX"))
  374.     (optional "force" "askuser")
  375. )
  376. ;
  377. (complete 48)
  378.  
  379. (working (#installing "mdr_controlrefresh.awebrx"))
  380. (copyfiles
  381.     (source "AREXX/mdr_controlrefresh.awebrx")
  382.     (dest (tackon #mdrdir "AREXX"))
  383.     (optional "force" "askuser")
  384. )
  385. ;
  386. (complete 49)
  387.  
  388. (working (#installing "mdr_videorefresh.awebrx"))
  389. (copyfiles
  390.     (source "AREXX/mdr_videorefresh.awebrx")
  391.     (dest (tackon #mdrdir "AREXX"))
  392.     (optional "force" "askuser")
  393. )
  394. ;
  395. (complete 50)
  396.  
  397. (working (#installing "mdr_eventrefresh.awebrx"))
  398. (copyfiles
  399.     (source "AREXX/mdr_eventrefresh.awebrx")
  400.     (dest (tackon #mdrdir "AREXX"))
  401.     (optional "force" "askuser")
  402. )
  403. ;
  404. (complete 51)
  405.  
  406. (working (#installing "mdr_settingsrefresh.awebrx"))
  407. (copyfiles
  408.     (source "AREXX/mdr_settingsrefresh.awebrx")
  409.     (dest (tackon #mdrdir "AREXX"))
  410.     (optional "force" "askuser")
  411. )
  412. ;
  413. (complete 52)
  414.  
  415. (working (#installing "mdr_refresh.awebrx"))
  416. (copyfiles
  417.     (source "AREXX/mdr_refresh.awebrx")
  418.     (dest (tackon #mdrdir "AREXX"))
  419.     (optional "force" "askuser")
  420. )
  421. ;
  422. (complete 53)
  423.  
  424. (working (#installing "mdr_settings.awebrx"))
  425. (copyfiles
  426.     (source "AREXX/mdr_settings.awebrx")
  427.     (dest (tackon #mdrdir "AREXX"))
  428.     (optional "force" "askuser")
  429. )
  430. ;
  431. (complete 54)
  432.  
  433. (working (#installing "mdr_setvideo.awebrx"))
  434. (copyfiles
  435.     (source "AREXX/mdr_setvideo.awebrx")
  436.     (dest (tackon #mdrdir "AREXX"))
  437.     (optional "force" "askuser")
  438. )
  439. ;
  440. (complete 56)
  441. ;
  442. (working (#installing "mdr_register.awebrx"))
  443. (copyfiles
  444.     (source "AREXX/mdr_register.awebrx")
  445.     (dest (tackon #mdrdir "AREXX"))
  446.     (optional "force" "askuser")
  447. )
  448. ;
  449. (complete 58)
  450. ;
  451. (working (#installing "killhandler"))
  452. (copyfiles
  453.     (source "TCPIP/killhandler")
  454.     (dest (tackon #mdrdir "TCPIP"))
  455.     (optional "force" "askuser")
  456. )
  457. ;
  458. (complete 60)
  459. ;
  460. (working (#installing "letnet"))
  461. (copyfiles
  462.     (source "TCPIP/letnet")
  463.     (dest (tackon #mdrdir "TCPIP"))
  464.     (optional "force" "askuser")
  465. )
  466. ;
  467. (complete 62)
  468. ;
  469. (working (#installing "netfs-handler"))
  470. (copyfiles
  471.     (source "TCPIP/netfs-handler")
  472.     (dest (tackon #mdrdir "TCPIP/L"))
  473.     (optional "force" "askuser")
  474. )
  475. ;
  476. (complete 64)
  477. ;
  478. (working (#installing "netfs-server"))
  479. (copyfiles
  480.     (source "TCPIP/netfs-server")
  481.     (dest (tackon #mdrdir "TCPIP"))
  482.     (optional "force" "askuser")
  483. )
  484. ;
  485. (complete 66)
  486. ;
  487. (working (#installing "netmount"))
  488. (copyfiles
  489.     (source "TCPIP/netmount")
  490.     (dest (tackon #mdrdir "TCPIP"))
  491.     (optional "force" "askuser")
  492. )
  493. ;
  494. (complete 68)
  495. ;
  496. (working (#installing "remoteview"))
  497. (copyfiles
  498.     (source "TCPIP/remoteview")
  499.     (dest (tackon #mdrdir "TCPIP"))
  500.     (optional "force" "askuser")
  501. )
  502. ;
  503. (complete 69)
  504. ;
  505. (working (#installing "rhcslip.device"))
  506. (copyfiles
  507.     (source "TCPIP/rhcslip.device")
  508.     (dest (tackon #mdrdir "TCPIP"))
  509.     (optional "force" "askuser")
  510. )
  511. ;
  512. (complete 70)
  513. ;
  514. (working (#installing "remotecli"))
  515. (copyfiles
  516.     (source "TCPIP/remotecli")
  517.     (dest (tackon #mdrdir "TCPIP"))
  518.     (optional "force" "askuser")
  519. )
  520. ;
  521. (complete 71)
  522. ;
  523. (working (#installing "remotearexx"))
  524. (copyfiles
  525.     (source "TCPIP/remotearexx")
  526.     (dest (tackon #mdrdir "TCPIP"))
  527.     (optional "force" "askuser")
  528. )
  529. ;
  530. (complete 72)
  531. ;
  532. (
  533.     (working (#installing "Configuration file"))
  534.     (copyfiles
  535.        (source "PREFS/mdr_internet")
  536.        (dest (tackon #mdrdir "PREFS"))
  537.        (optional "force" "askuser")
  538.     )
  539. )
  540. ;
  541. (complete 73)
  542. ;
  543. (working (#installing "documentation"))
  544. (copyfiles
  545.     (source "DOCS/mdr_inet_dial.html")
  546.     (dest (tackon #mdrdir "DOCS"))
  547.     (optional "force" "askuser")
  548. )
  549. ;
  550. (copyfiles
  551.     (source "DOCS/mdr_unavailable.html")
  552.     (dest (tackon #mdrdir "DOCS"))
  553.     (optional "force" "askuser")
  554. )
  555. ;
  556. (complete 74)
  557. ;
  558. (working (#installing "inet_dial_netfs.jpg"))
  559. (copyfiles
  560.     (source "DOCS/inet_dial_netfs.jpg")
  561.     (dest (tackon #mdrdir "DOCS"))
  562.     (optional "force" "askuser")
  563. )
  564. ;
  565. (complete 75)
  566. ;
  567. (working (#installing "inet_dial_www.jpg"))
  568. (copyfiles
  569.     (source "DOCS/inet_dial_www.jpg")
  570.     (dest (tackon #mdrdir "DOCS"))
  571.     (optional "force" "askuser")
  572. )
  573. ;
  574. (complete 76)
  575. ;
  576. (working (#installing "inet_dial_status.jpg"))
  577. (copyfiles
  578.     (source "DOCS/inet_dial_status.jpg")
  579.     (dest (tackon #mdrdir "DOCS"))
  580.     (optional "force" "askuser")
  581. )
  582. ;
  583. (complete 77)
  584. ;
  585. (working (#installing "inet_dial_settings.jpg"))
  586. (copyfiles
  587.     (source "DOCS/inet_dial_settings.jpg")
  588.     (dest (tackon #mdrdir "DOCS"))
  589.     (optional "force" "askuser")
  590. )
  591. ;
  592. (complete 78)
  593. ;
  594. (working (#installing "inet_dial_mail.jpg"))
  595. (copyfiles
  596.     (source "DOCS/inet_dial_mail.jpg")
  597.     (dest (tackon #mdrdir "DOCS"))
  598.     (optional "force" "askuser")
  599. )
  600. ;
  601. (complete 79)
  602. ;
  603. (working (#installing "inet_dial_control.jpg"))
  604. (copyfiles
  605.     (source "DOCS/inet_dial_control.jpg")
  606.     (dest (tackon #mdrdir "DOCS"))
  607.     (optional "force" "askuser")
  608. )
  609. ;
  610. (complete 80)
  611. ;
  612. (working (#installing "mdr.jpg"))
  613. (copyfiles
  614.     (source "DOCS/mdr.jpg")
  615.     (dest (tackon #mdrdir "DOCS"))
  616.     (optional "force" "askuser")
  617. )
  618. ;
  619. (complete 82)
  620. ;
  621. (working (#installing "mdr_inet_dial.jpg"))
  622. (copyfiles
  623.     (source "DOCS/mdr_inet_dial.jpg")
  624.     (dest (tackon #mdrdir "DOCS"))
  625.     (optional "force" "askuser")
  626. )
  627. ;
  628. (complete 84)
  629. ;
  630. (working (#installing "apache.gif"))
  631. (copyfiles
  632.     (source "DOCS/apache.gif")
  633.     (dest (tackon #mdrdir "DOCS"))
  634.     (optional "force" "askuser")
  635. )
  636. ;
  637. (complete 86)
  638. ;
  639. (working (#installing "copyright notice"))
  640. (copyfiles
  641.     (source "DOCS/copyrights")
  642.     (dest (tackon #mdrdir "DOCS"))
  643.     (optional "force" "askuser")
  644. )
  645. ;
  646. (complete 88)
  647. ;
  648. (working (#installing "Picture"))
  649. (copyfiles
  650.     (source "DOCS/trossi1.jpg")
  651.     (dest (tackon #mdrdir "DOCS"))
  652.     (optional "force" "askuser")
  653. )
  654. ;
  655. (complete 90)
  656. ;
  657. ;------------------------------------------------------------------------
  658. ;create assign if does not exist
  659. ;
  660. (if (= "" (getassign "MDR" "adv"))
  661.     (Set AddMDRAssign TRUE)
  662. ) ; if
  663. ;
  664. (if AddMDRAssign
  665.   (
  666.     (makeassign "MDR" #mdrdir)
  667.     (makeassign "DSERVER" #mdrdirbase)
  668.   )
  669. )
  670. ;
  671. (complete 92)
  672. ;
  673. (if (= stack 1)
  674.     (
  675.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nAssign AMITCP: MDR:TCPIP " "\nPath MDR:BIN ADD" "\nstack 100000" "\necho starting MIAMI" "\nrun >NIL: MIAMI:MIAMI" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5"  "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  676.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  677.            (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  678.            (help #startup-help)
  679.            (command cmd)
  680.        )
  681.     )
  682. )
  683. ;
  684. (if (= stack 2)
  685.     (
  686.        (set cmd (cat "Assign MDR: \"" #mdrdir "\"\nAssign AMITCP: MDR:TCPIP " "\nPath MDR:BIN ADD" "\nstack 100000" "\necho starting MIAMIDX" "\nrun >NIL: MIAMI:MIAMIDX" "\nwait 5" "\necho starting YAM" "\nrun >NIL: YAM:YAM" "\nwait 5" "\necho starting INET_DIAL" "\nRun >NIL: MDR:BIN/Inet_Dial"))
  687.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  688.            (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  689.            (help #startup-help)
  690.            (command cmd)
  691.        )
  692.     )
  693. )
  694. ;
  695. (if (= stack 0)
  696.     (
  697.        (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"))
  698.        (startup "INET_DIAL  ©2000 MDR Interfaces Ltd"
  699.           (prompt (#startup-prompt "INET_DIAL WWW Interface Package" cmd))
  700.           (help #startup-help)
  701.           (command cmd)
  702.        )
  703.     )
  704. )
  705. ;
  706. ;
  707. (complete 94)
  708. ;
  709. ;------------------------------------------------------------------------
  710. ; Finally create some information about INET_DIAL
  711. ;
  712. (makedir "ENV:MDR" (infos))
  713. (makedir "ENVARC:MDR" (infos))
  714. (textfile (dest "ENV:MDR/Stack_MDR") (append mdrstack))
  715. (textfile (dest "ENVARC:MDR/Stack_MDR") (append mdrstack))
  716. (textfile (dest "ENV:MDR/Browser_MDR") (append mdrbrowser))
  717. (textfile (dest "ENVARC:MDR/Browser_MDR") (append mdrbrowser))
  718. (textfile (dest "ENV:MDR/Server_MDR") (append mdrwebserver))
  719. (textfile (dest "ENVARC:MDR/Server_MDR") (append mdrwebserver))
  720. (complete 96)
  721. ;
  722. (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))
  723. (complete 98)
  724. (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))
  725. (complete 100)
  726. ;------------------------------------------------------------------------
  727. ;
  728. (CLEANUP)
  729. (exit)
  730. ;
  731. ;------------------------------------------------------------------------
  732. ;
  733. ; *** EOT ***
  734. ;------------------------------------------------------------------------
  735. ;
  736.