home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Netzwerk / parbench.lha / ParBench.SetUp.3.2.Beta < prev    next >
Encoding:
Text File  |  1993-09-10  |  17.5 KB  |  438 lines
  1. ;Opening Header                      ;Credits & Info
  2.     ;/*************************************************************************/
  3.     ;/*                                                                       */
  4.     ;/* This install script was authored with FLOW from New Horizons Software */
  5.     ;/*    An incredible Outline/Thought Processor great for programming!!    */
  6.     ;/*                                                                       */
  7.     ;/*    Special Thanks to Randy Brooks of New Horizons for the updates.    */
  8.     ;/*                                                                       */
  9.     ;/*                      Started 8-25-93 @ 1:00pm                         */
  10.     ;/*                         Last Update 9-10-93                           */
  11.     ;/*                                                                       */
  12.     ;/*               ©1993 Vernon Graner All Rights Reserved                 */
  13.     ;/*                                                                       */
  14.     ;/*************************************************************************/
  15.  
  16. (PROCEDURE SetUp                     ;Define Variables and set defaults
  17.     (
  18.     (set CPU (database "cpu")) ;discover what the CPU type is
  19.     (set User_Dest     "None") ;Set a flag for size check
  20.     (set @default-dest "SYS:") ;Make the system the default destination
  21.     (set NET_Size       13123) ;Space required by the ParNET Files
  22.     (set Amiga_Size     17223) ;Space required by the Amiga-Amiga scripts
  23.     (set CDTV_Size      16282) ;Space required by the Amiga-CDTV Scripts
  24.     (set DOCS_Size      83778) ;Space required by the ParBENCH docs
  25.     (set Guide_Size    105789) ;Space required by the AmigaGuide Files
  26.     (set Sys_Needed     83150) ;Space required by the SYS files
  27.     (transcript "ParBENCH installation on "@default-dest)
  28.     ))
  29. (PROCEDURE Options                   ;Ask all the questions
  30.     (                           ;Begin Procedure
  31.     (set Install                ;Ask user Install or Uninstall
  32.         (AskChoice (Prompt "Do you want to INSTALL or UNINSTALL packages on your system?\n (For Addtional Information hit HELP!)")
  33.             (help "\nOne of my Pet Peaves is when a software author provides a way to install the myraid of files into all the little cubbyholes on your system but then does NOT provide a simple way to remove those well hidden files from the deep dark bowels of your computer. The UNINSTALL choice will allow you to remove any one or ALL of the files that were installed by ParBENCH from your system. Install will, of course place the needed files onto your system. ")
  34.             (choices "INSTALL" "UNINSTALL")
  35.             (default 0 )
  36.             )
  37.             )
  38.     (If (= install 0)           ;Set "The_Word_x"s
  39.         (;then
  40.             (Set The_Word_1 ("install"))
  41.             (Set The_Word_2 ("to")) 
  42.         )
  43.         (;else
  44.             (Set The_Word_1 ("remove"))
  45.             (Set The_Word_2 ("from"))
  46.         )
  47.         )
  48.     (set Package                ;Ask user what package(s) to work with
  49.         (AskOptions (Prompt ("Choose the packages to %s:" The_Word_1))
  50.             (help "\n  Amiga<->CDTV is just the files for connecting an Amiga to a CDTV. This allows reading CDROM's like the Hypermedia Concepts Fred Fish collection. This choice deals only with files used by ParNET to communicate with a CDTV.\n\n  Amiga<->Amiga is the needed files to communicate between two Amiga Computers. \n\n  ")
  51.             (choices "Amiga<->CDTV ParNET" "Amiga<->Amiga ParNET" "ParBENCH Documentation" "AmigaGuide®")
  52.             (default -1)
  53.             )
  54.             )
  55.     (IF (= install 0)           ;Ask if the user wants 680x0 device
  56.         (IF (or (in package 0) (in package 1))
  57.             (
  58.             (set Turbo
  59.             (askchoice (Prompt ("Do you want to %s the 680x0 parnet.device? (Hit HELP for details!)" The_Word_1))
  60.                 (help "\nThe Tulsa Amiga Users Group provided this file and claims it is a 68040/030/020 optimized version of the parnet.device.\n\n  Some users claim it greatly enhances the speed of the NET: handling when installed on a machine with the correct processor.\n\nPlease note that this is an EXPERIMENTAL file and has not been tested, nor approved for use, by the Software Distillery or the authors of ParNET. (Yet!) :) It is provided here as a 'Power User' option.")
  61.                 (choices "Normal parnet.device" "680x0  parnet.device")
  62.                 (IF (> CPU 68000) (default 1) (default 0) )
  63.                 )
  64.                 )
  65.                 )
  66.                 )
  67.                 )
  68.     (IF (OR                     ;Ask user for Destination
  69.         (in package 0) (in package 1) (in package 2)) (
  70.         (set User_Dest 
  71.         (askdir 
  72.             (prompt ("Select the location to %s the ParNET Drawer %s."The_Word_1 The_Word_2))
  73.             (help "\n  ParBENCH relies on there being a Drawer called 'ParNET' in order for it to install properly. This drawer must exist in order for the remainder of this script to function.")
  74.             (default @default-dest)
  75.             );end askdir
  76.             );end set
  77.             );end or
  78.             (set User_Dest "None")
  79.             )
  80.     (If (NOT                    ;Add "ParNET" to the chosen destination
  81.         (= User_Dest "None"))
  82.         (set @default-dest (TackOn (User_Dest) ("ParNET")) )
  83.         )
  84.     ))                          ;End Procedure
  85. (PROCEDURE Size_Check                ;Check the source & destination sizes
  86.     (
  87.     (If (or (in package 0) (in package1)) (set Total_Needed (+ Total_Needed Net_Size)))
  88.     (If (= (in package 0)) (set Total_Needed (+ Total_Needed Amiga_Size)))
  89.     (If (= (in package 1)) (set Total_Needed (+ Total_Needed CDTV_Size)))
  90.     (If (= (in package 2)) (set Total_Needed (+ Total_Needed DOCS_Size)))
  91.     (If (= (in package 3)) (set Total_Needed (+ Total_Needed Guide_Size)))
  92.     
  93.     (set SYS_Avail (getdiskspace "SYS:"))
  94.     (set User_Dest_Avail (getdiskspace User_Dest))
  95.     
  96.     (if (> SYS_Avail 1024000)       ;Convert for SYS_Avail
  97.         (;then
  98.         (set SYS_Avail (/ SYS_Avail 1024000))
  99.         (Set Size_Unit_1 "MB")
  100.         )
  101.         (;Else
  102.         (if (> SYS_Avail 1024)
  103.             (;then
  104.             (set SYS_Avail (/ SYS_Avail 1024))
  105.             (set Size_Unit_1 "KB")
  106.             );else
  107.             (Set Size_Unit_1 "Bytes")
  108.             )
  109.         )
  110.         )
  111.     (if (> User_Dest_Avail 1024000) ;Convert for User_Dest_Avail
  112.         (;then
  113.         (set User_Dest_Avail (/ User_dest_Avail 1024000))
  114.         (Set Size_Unit_2 "MB")
  115.         )
  116.         (;Else
  117.         (if (> User_Dest_Avail 1024)
  118.             (;then
  119.             (set User_Dest_Avail (/ User_Dest_Avail 1024))
  120.             (set Size_Unit_2 "KB")
  121.             )
  122.             (Set Size_Unit_2 "Bytes")
  123.             )
  124.         )
  125.         )
  126.     (if (> Total_Needed 1024000)    ;Convert for Total_Needed
  127.         (;then
  128.         (set Total_Needed (/ Total_Needed 1024000))
  129.         (Set Size_Unit_3 "MB")
  130.         )
  131.         (;Else
  132.         (if (> Total_Needed 1024)
  133.             (;then
  134.             (set Total_Needed (/ Total_Needed 1024))
  135.             (set Size_Unit_3 "KB")
  136.             )
  137.             (Set Size_Unit_3 "Bytes")
  138.             )
  139.         )
  140.         )
  141.     (if (> SYS_Needed 1024000)      ;Convert for SYS_Needed
  142.         (;then
  143.         (set SYS_Needed (/ SYS_Needed 1024000))
  144.         (Set Size_Unit_4 "MB")
  145.         )
  146.         (;Else
  147.         (if (> SYS_Needed 1024)
  148.             (;then
  149.             (set SYS_Needed (/ SYS_Needed 1024))
  150.             (set Size_Unit_4 "KB")
  151.             )
  152.             (Set Size_Unit_4 "Bytes")
  153.             )
  154.         )
  155.         )
  156.     
  157.     ))
  158. (PROCEDURE Size_Display              ;Show the source & destination sizes
  159.     (
  160.     (message
  161.         ("\n\n")
  162.         ("Required space for ParNET Drawer is %ld %s.\n" Total_Needed Size_Unit_3         )
  163.         ("Available space on %s is %ld %s.\n\n" User_Dest User_Dest_Avail Size_Unit_2  )
  164.         ("Required space for ParNET SYS files is %ld %s.\n" SYS_Needed Size_Unit_4        )
  165.         ("Available on the SYS: partition is %ld %s.\n" SYS_Avail Size_Unit_1             )
  166.         ("\n")
  167.         ("If there is enough space for the files hit proceed.")
  168.         )
  169.     ))
  170. (PROCEDURE Size_Abort                ;Warn that there is not enough space
  171.     (
  172.     (if (<= Avail_SYS_Size Needed_Size)
  173.         (abort
  174.         ("There is only %ld bytes available disk space on your SYS: partition.\n\n" available-sys)
  175.         ("You need an addtional %ld bytes of space to install all needed files.\n\n" (- ParNET_SYS_Size available-sys))
  176.         ("Please delete some files from your SYS: partition to make room and then run this install script again.")
  177.         ))
  178.     (if (<= available-dest ParNET_DEST_Size)
  179.         (abort
  180.         ("There is only %ld bytes available disk space on your chosen partition.\n\n" available-dest)
  181.         ("You need an addtional %ld bytes of space to install all needed files.\n\n" (- ParNET_DEST_Size available-dest))
  182.         ("Please delete some files from your chosen partition to make room and then run this install script again.")
  183.         ))
  184.     ))
  185. (PROCEDURE Install_ExitMsg           ;Closing message after install 
  186.     (
  187.     (run "ParBENCH:S/Sounds/SuperPlay ParBENCH:S/Sounds/install.complete")
  188.     (exit "ParBENCH is Copyright ©1992/1993 Vernon Graner\nGraner Sound Multimedia Studios\n7002b Oak Meadow Circle Austin, Texas 78736\nVoice#(512)-288-2515\n\nPlease try and Support Shareware Authors! :)")
  189.     ))
  190. (PROCEDURE Remove_ExitMsg            ;Closing message after remove
  191.     (
  192.     (run "ParBENCH:S/Sounds/SuperPlay ParBENCH:S/Sounds/remove.complete")
  193.     (exit "ParBENCH is Copyright ©1992/1993 Vernon Graner\nGraner Sound Multimedia Studios\n7002b Oak Meadow Circle Austin, Texas 78736\nVoice#(512)-288-2515\n\nPlease try and Support Shareware Authors! :)")
  194.     ))
  195.  
  196. (PROCEDURE Install_CDTV              ;Install scripts needed for CDTV
  197.     (
  198.     (copyfiles (Prompt "For Addtional Information on this file hit HELP.")
  199.         (help "\n  These scripts are used to make it easier to connect with CDTV via ParNET. It is the same as Boot.HOST except that it has additional code to sense the Hypermedia Concepts Fred Fish Collection CDROM V1.5+ and add PNET.Keys capabilities as well as assigning logical CD0: to NET:CD0, allowing the CD_SAMPLER to operate.")
  200.         (source "ParBENCH:ParNET")
  201.         (dest @default-dest)
  202.         (files)
  203.         (infos)
  204.         (noposition)
  205.         (pattern "CDTV.#?")
  206.         (confirm)
  207.         )
  208.     ))
  209. (PROCEDURE Install_Amiga             ;Install scripts for Amiga
  210.     (
  211.     (copyfiles(Prompt "For Addtional Information on these files hit HELP.")
  212.         (help "\n  These scripts are used to launch the network between two Amigas. You really only need one of each type on each machine IE: Boot.HOST on machine 1, Boot.CLIENT on machine 2. If you want maximum versatility you may install both, as that is the default condition.")
  213.         (source "ParBENCH:ParNET")
  214.         (dest @default-dest)
  215.         (files)
  216.         (infos)
  217.         (noposition)
  218.         (pattern "Boot.#?")
  219.         (confirm)
  220.         )
  221.     ))
  222. (PROCEDURE Install_DOCS              ;Install ParBENCH.Guide docs
  223.     (
  224.     (copyfiles (Prompt "ParBENCH.Guide (For Addtional Information on this file hit HELP.)")
  225.         (help "\n  The ParBENCH.Guide is an 80k text file for use with Commodore's AmigaGuide hypertext system. It is reccomended that it be kept in the ParNET drawer for quick and easy reference but if you are short on space you could omit it and just refere to it on disk.")
  226.         (source "ParBENCH:Utilities")
  227.         (dest @default-dest)
  228.         (files)
  229.         (infos)
  230.         (noposition)
  231.         (pattern "ParBENCH.GUIDE")
  232.         (confirm)
  233.         )
  234.     ))
  235. (PROCEDURE Install_Guide             ;Install the CBM AmigaGuide distribution
  236.     (
  237.     (CopyLib (Prompt "Copying amigaguide.library to your SYS:Libs directory")
  238.         (help "\n ")
  239.         (source "ParBENCH:LIBS/amigaguide.library")
  240.         (dest   "Libs:")
  241.         (confirm)
  242.         )
  243.     (CopyLib (Prompt "Copying WDisplay to your SYS:Utilities directory")
  244.         (help "\n  ")
  245.         (source "ParBENCH:Utilities/WDisplay")
  246.         (dest "SYS:Utilities")
  247.         (confirm)
  248.         (infos)
  249.         (noposition)
  250.         )
  251.     (CopyLib (Prompt "Copying AmigaGUIDE to your SYS:Utilities directory")
  252.         (help "\n  ")
  253.         (source "ParBENCH:Utilities/AmigaGuide")
  254.         (dest "SYS:Utilities")
  255.         (confirm)
  256.         (infos)
  257.         (noposition)
  258.         )
  259.     (CopyLib (Prompt "Copying HELP.GUIDE to your SYS:S directory")
  260.         (help "\n  ")
  261.         (source "ParBENCH:S/HELP.GUIDE")
  262.         (dest "SYS:S")
  263.         (confirm)
  264.         (infos)
  265.         (noposition)
  266.         )
  267.     ))
  268. (PROCEDURE Install_NET               ;Install ParNET support files
  269.     (
  270.     (CopyFiles (Prompt "Copying ParNET Utilities")
  271.         (help "\nRun.NETCHAT--The icon to launch the 2 way NetChat program\nRun.NETKEYS--See ParBENCH.GUIDE for Details\nRun.NETSTAT--See ParBENCH.GUIDE for Details ")
  272.         (source "ParBENCH:ParNET")
  273.         (dest @default-dest)
  274.         (infos)
  275.         (noposition)
  276.         (pattern "#?net#?")
  277.         (confirm)
  278.         )
  279.     (CopyFiles (Prompt "Copying MoveSYS Command")
  280.         (help "\n  MoveSYS is a public domain utility used to change the system directory from the disk an Amiga booted from, to an alternate device. This utility allows you to assign all system files over the network.\n\n  A typical application would be an A500 with no hard drive being assigned to use an A2000's hard drive over the network.")
  281.         (source "ParBENCH:Parnet")
  282.         (dest @default-dest)
  283.         (infos)
  284.         (noposition)
  285.         (pattern "MoveSYS")
  286.         (confirm)
  287.         )
  288.     (CopyFiles (Prompt "Copying Default ParNET Icons")
  289.         (help "\n  This file is the Default Icon file ParBENCH uses for drives that would otherwise not appear. This file may be created by you or changed to taste.")
  290.         (source "ParBENCH:Parnet")
  291.         (dest @default-dest)
  292.         (pattern "node.rinfo")
  293.         (confirm)
  294.         )
  295.     (CopyFiles (Prompt "Files to be copied to your C: directory.")
  296.         (help "\n\n NetPNet-Server is required for ParNET to operate. ParBENCH relies on it being in the C: directory.\n\n  NetSTAT is a utility used by the Monitor.NET script to give a graphic display of network activity. It is not required for ParNET to operate.\n\n  PNetKeys is used by the NetKEYS script to allow control of the remote machine's mouse & keyboard. It is not required for ParNET to operate.")
  297.         (source "ParBENCH:C/")
  298.         (dest "C:")
  299.         (Files)
  300.         (pattern "#?")
  301.         (Confirm)
  302.         )
  303.     (CopyFiles (Prompt "Files to be copied to your L: directory.")
  304.         (help "See the ParBENCH.Guide for details on these files.")
  305.         (source "ParBENCH:L/")
  306.         (dest "L:")
  307.         (pattern "#?")
  308.         (confirm)
  309.         )
  310.     (copyfiles (Prompt "Files to be copied to your DEVS: directory.")
  311.         (help "See the ParBENCH.Guide for details on these files.")
  312.         (source "ParBENCH:Devs/")
  313.         (dest "DEVS:")
  314.         (pattern "Mountlist.Parnet.#?")
  315.         (Files)
  316.         (confirm)
  317.         )
  318.     (if (= Turbo 0)    ;copy normal parnet.device to devs:
  319.         (copylib (prompt "Copying ParNET.device to your DEVS: directory.")
  320.             (help "See the ParBENCH.Guide for details on this file.")
  321.             (source "ParBENCH:devs/parnet.device")
  322.             (dest "SYS:DEVS")
  323.             (confirm)
  324.             ))
  325.     (if (= Turbo 1)    ;copy turbo parnet.device to devs:
  326.         (CopyLib (prompt "Copying ParNET.device to your DEVS: directory.")
  327.             (help "See the ParBENCH.Guide for details on this file.")
  328.             (source "ParBENCH:devs/030/parnet.device")
  329.             (dest "SYS:DEVS")
  330.             (confirm)
  331.             ))
  332.     ))
  333.  
  334. (PROCEDURE Remove_CDTV               ;Remove the CDTV scripts
  335.     (
  336.     (working ("Removing CDTV Network Scripts." ) )
  337.     (delete ("%s/CDTV.extras"       @default-dest) )
  338.     (delete ("%s/CDTV.extras.info"  @default-dest) )
  339.     (delete ("%s/CDTV.connect"      @default-dest) )
  340.     (delete ("%s/CDTV.connect.info" @default-dest) )
  341.     ))
  342. (PROCEDURE Remove_Amiga              ;Remove Amiga scripts
  343.     (
  344.     (working ("Removing Amiga Network Scripts." ) )
  345.     (delete ("%s/boot.host"          @default-dest) )
  346.     (delete ("%s/boot.host.info"     @default-dest) )
  347.     (delete ("%s/boot.client"        @default-dest) )
  348.     (delete ("%s/boot.client.info"   @default-dest) )
  349.     ))
  350. (PROCEDURE Remove_DOCS               ;Remove ParBENCH.Guide docs
  351.     (
  352.     (working ("Removing ParBENCH Documentation." ) )
  353.     (delete ("%s/ParBENCH.Guide"          @default-dest) )
  354.     (delete ("%s/ParBENCH.Guide.info"     @default-dest) )
  355.     ))
  356. (PROCEDURE Remove_Guide              ;Remove CBM AmigaGuide files
  357.     (
  358.     (working ("Removing AmigaGuide files" ) )
  359.     (delete ("LIBS:amigaguide.library") )
  360.     (delete ("SYS:Utilities/WDisplay") )
  361.     (delete ("SYS:Utilities/WDisplay.info") )
  362.     (delete ("SYS:AmigaGuide") )
  363.     (delete ("SYS:AmigaGuide.info") )
  364.     (delete ("S:Help.guide") )
  365.     ))
  366. (PROCEDURE Remove_NET                ;Remove ParNET support files
  367.     (
  368.     ;Remove from default-dest
  369.         (working ("Removing files from %s" @default-dest) )
  370.         (delete ("%s/Run.NETKEYS"          @default-dest) )
  371.         (delete ("%s/Run.NETKEYS.info"     @default-dest) )
  372.         (delete ("%s/Run.NETSTAT"          @default-dest) )
  373.         (delete ("%s/Run.NETSTAT.info"     @default-dest) )
  374.         (delete ("%s/Run.NetCHAT"          @default-dest) )
  375.         (delete ("%s/Run.NetCHAT.info"     @default-dest) )
  376.         (delete ("%s/MoveSYS"              @default-dest) )
  377.         (delete ("%s/MoveSYS.info"         @default-dest) )
  378.         (delete ("%s/node.rinfo"           @default-dest) )
  379.         (delete ("%s/MoveSYS"              @default-dest) )
  380.     ;Remove from C:
  381.         (working ("removing files from C:"))
  382.         (delete ("C:Inform") )
  383.         (delete ("C:NetPatch") )
  384.         (delete ("C:NetSTAT") )
  385.         (delete ("C:ReBoot") )
  386.         (delete ("C:Send") )
  387.         (delete ("C:LInfo") )
  388.         (delete ("C:NetCMD") )
  389.         (delete ("C:NetPNet-Server") )
  390.         (delete ("C:PNetKevs") )
  391.         (delete ("C:Receive") )
  392.     ;Remove from L:
  393.         (working ("removing files from L:"))
  394.         (delete ("L:mouse-handler") )
  395.         (delete ("L:netpnet-handler") )
  396.     ;Remove from DEVS:
  397.         (working ("Removing files from DEVS:"))
  398.         (delete ("DEVS:MountList.ParNET.Client") )
  399.         (delete ("DEVS:MountList.ParNET.Host") )
  400.         (delete ("DEVS:MountList.ParNET.Mouse") )
  401.         (delete ("DEVS:parnet.device") )
  402.     ;Remove Drawer
  403.         (working ("Removing ParNET Drawer from %s" User_Dest))
  404.         (delete  ("%sParNET"                   User_Dest) )
  405.         (delete  ("%s/ParNET"                   User_Dest) )
  406.         (delete  ("%sParNET.info"              User_Dest) )
  407.         (delete  ("%s/ParNET.info"              User_Dest) )
  408.     ))
  409.     
  410.  
  411. ;Main                                ;The actual Program! :)
  412.     (
  413.     (SetUp)
  414.     (Options)
  415.     (IF (= install 0)       ;Install or Remove?
  416.     (                       ;Then
  417.     (Size_Check)
  418.     (Size_Display)
  419.     (If (in Package 0)                     (Install_CDTV)   )
  420.     (If (in Package 1)                     (Install_Amiga)  )
  421.     (If (in Package 2)                     (Install_DOCS)   )
  422.     (If (in Package 3)                     (Install_Guide)  )
  423.     (If (or (in Package 0) (in package 1)) (Install_NET)    )
  424.     (Install_ExitMsg)
  425.     )
  426.     (                        ;Else Remove
  427.     (run "ParBENCH:S/Sounds/SuperPlay ParBENCH:S/Sounds/warning.sample")
  428.     (message "\n!!!!-=>WARNING<=-!!!!\n\nYou have chosen to DELETE files from your system!\n\nHit proceed to DELETE files\n\n Hit ABORT to exit without deletion")
  429.     (If (in Package 0)                      (Remove_CDTV)   )
  430.     (If (in Package 1)                      (Remove_Amiga)  )
  431.     (If (in Package 2)                      (Remove_DOCS)   )
  432.     (If (in Package 3)                      (Remove_Guide)  )
  433.     (If (or (in Package 0) (in package 1))  (Remove_NET)    )
  434.     (Remove_ExitMsg)
  435.     )
  436.     ))
  437.     
  438.