home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Magazine / AWeb / DropZone / Install-DropZone < prev    next >
Text File  |  1999-10-17  |  4KB  |  156 lines
  1. ; $VER: Install DropZone 7.10.99)
  2. ; Installer script by WHMP 17 Oct 1999
  3. ; Description: Installer script for DropZone ARexx script
  4.  
  5. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  6. (set awv 3)
  7. (set awr 1)
  8. (set #needInst43 "You must use Installer version 43 or greater.  Use the Installer program from your AWeb-II disk.")
  9. (if (< (/ @installer-version 65536) 43)
  10.   (abort #needInst43)
  11. )
  12.  
  13. (set #installing "Installing ")
  14. ; offer to back up a file or drawer
  15. (procedure bumprev #bumpfile #bumptxt
  16.   (if (exists #bumpfile)
  17.     (
  18.       (set bump 1)
  19.       (while (exists (cat #bumpfile "_old" bump) ) (set bump (+ bump 1)) )
  20.       (if
  21.         (askbool
  22.           (default 1)
  23.           (prompt (cat "\n\n\nBackup " #bumpfile " as "
  24.               #bumpfile "_old" bump " ?\n\n\n "
  25.           #bumptxt ) )
  26.           (help
  27.             (cat "\n\n\n\"" #bumpfile "\" is about to be over written.\n"
  28.               "\nYou are being given the chance to back it up."
  29.               " If you are unsure select yes... just in case ;-D ."
  30.             )
  31.           )
  32.         )
  33.         ;        (rename #bumpfile (cat #bumpfile "_old" bump))
  34.         ( (set bdest (cat #bumpfile "_old" bump))
  35.           (copyfiles
  36.             (source #bumpfile)
  37.             (dest bdest)
  38.             (all)
  39.           )
  40.         )
  41.       )
  42.     )
  43.   )
  44. )
  45.  
  46. ;add a line to a settings file
  47.  
  48. (procedure addpref #preffile #preftext
  49.   (foreach "ENVARC:AWeb3" "~(program|browser|gui|network|window|settings)"
  50.     (
  51.       (if (= @each-type 2)
  52.         (run (cat "echo >>ENVARC:AWeb3/" @each-name "/" #preffile " \"" #preftext  "\"") )
  53.       )
  54.     )
  55.   )
  56.   (run (cat "echo >>ENVARC:AWeb3/" #preffile " \"" #preftext  "\"") )
  57. )
  58.  
  59. (set #no-aweb-ii
  60.   (cat "You must have completed the AWeb-II 3.x installation before "
  61.     "you can install the %s plug-in. No AWeb3: assign has been found."
  62.   )
  63. )
  64. (if (not (exists "AWeb3:" (noreq)))
  65.   (abort (#no-aweb-ii "Utilities"))
  66. )
  67.  
  68. (set @default-dest "AWeb3:")
  69. (bumprev "envarc:aweb3"
  70.   (cat "Your previously SAVED AWeb 3.x configuration"
  71.   " is in this directory.")
  72. ) ; backup any previous AWeb3 prefs
  73.  
  74. (set menbut
  75.   (askoptions
  76.     (prompt
  77.       "\n\nInstall DropZone as\n"
  78.           )
  79.     (help "\nThe GUI buttons appear on the main AWeb window"
  80. "\nThe ARexx menu is attached to the main AWeb window\n"
  81. ;"The image popup menu is used to play with individual images from Web pages\n"
  82. "GUI buttons are only available with \n"
  83. "settings-GUI-options-show user buttons on\n")
  84.             (choices "A GUI Button"
  85.               "An ARexx Menu Entry"
  86.               ""
  87.               "" )
  88.     (default 5)
  89.   )
  90. )
  91. (if(bitand 1 menbut)
  92. (addpref "gui" "UBUT DZoneRUN AWebpath:plugins/DropZone.awebrx")
  93. )
  94. (if(bitand 2 menbut)
  95. (addpref "gui" "AREX 0;AWebpath:plugins/DropZone.awebrx;DropZone")
  96. )
  97. ;(if(bitand 4 menbut)
  98. ;      (addpref "gui" "PUPI 3Image+RUN AWeb3:Plugins/Image.awebrx %u")
  99. ;)
  100. ;(if(bitand 8 menbut)
  101. ;     (addpref "gui" "UKEY 0355 run AWebpath:plugins/DropZone.awebrx")
  102. ;)
  103. (copyfiles
  104.   (source "DropZone.awebrx")
  105.   (dest (tackon @default-dest "plugins"))
  106.   (prompt #installing "DropZone")
  107. )
  108. (copyfiles
  109.   (source "DropZone_Doc.HTML")
  110.   (dest (tackon @default-dest "plugins"))
  111.   (prompt #installing "DropZone")
  112. )
  113. (copylib
  114.   (source "awnpipe-handler")
  115.   (dest "l:")
  116.   (prompt #installing "AWNPipe-handler")
  117. )
  118.  
  119.   (copyfiles
  120.     (dest "Devs:dosdrivers")
  121.     (source "awnpipe")
  122.     (prompt #installing "AWebNews Pipe:")
  123.     (infos)
  124.   )
  125.             (run "C:assign AWNPipe: dismount")
  126.             (run "C:mount AWNPipe:")
  127.  
  128.  
  129. (if (= @user-level 2)
  130.   ( bumprev "env:aweb3"
  131.     (cat "Your previous ACTIVE AWeb 3.x configuration"
  132.     " is in this directory.")
  133.   ) ;backup any active prefs
  134. )
  135.  
  136. (delete "env:aweb3/#?" (all))
  137.  
  138. (copyfiles
  139.   (source "ENVARC:AWeb3")
  140.   (dest "ENV:AWeb3")
  141.   (all)
  142. )
  143.  
  144.  
  145. (complete 100)
  146. (set @default-dest "AWeb3:plugins")
  147.  
  148.  
  149. (exit  "\n\n" @app-name
  150.   " is now installed.\n\n"
  151.   "If this is an update instalation be sure to check your GUI "
  152. " settings for duplicate entries."
  153. "\n"
  154. )
  155.  
  156.