; $VER: Install_AWeb-II 2.88 14.02.98
; 14 FEB 1998 WHMP
; Description: Installer script for AWeb-II 3.x extras

(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set awv 3)
(set awr 1)
(set #needInst43 "You must use Installer version 43 or greater.  Use the Installer program from your AWeb-II disk.")
(if (< (/ @installer-version 65536) 43)
  (abort #needInst43)
)

(set #installing "Installing ")
; offer to back up a file or drawer
(procedure bumprev #bumpfile #bumptxt
  (if (exists #bumpfile)
    (
      (set bump 1)
      (while (exists (cat #bumpfile "_old" bump) ) (set bump (+ bump 1)) )
      (if
        (askbool
          (default 1)
          (prompt (cat "\n\n\nBackup " #bumpfile " as "
              #bumpfile "_old" bump " ?\n\n\n "
          #bumptxt ) )
          (help
            (cat "\n\n\n\"" #bumpfile "\" is about to be over written.\n"
              "\nYou are being given the chance to back it up."
              " If you are unsure select yes... just in case ;-D ."
            )
          )
        )
        ;        (rename #bumpfile (cat #bumpfile "_old" bump))
        ( (set bdest (cat #bumpfile "_old" bump))
          (copyfiles
            (source #bumpfile)
            (dest bdest)
            (all)
          )
        )
      )
    )
  )
)

;add a line to a settings file

(procedure addpref #preffile #preftext
  (foreach "ENVARC:AWeb3" "~(program|browser|gui|network|window|settings)"
    (
      (if (= @each-type 2)
        (run (cat "echo >>ENVARC:AWeb3/" @each-name "/" #preffile " \"" #preftext  "\"") )
      )
    )
  )
  (run (cat "echo >>ENVARC:AWeb3/" #preffile " \"" #preftext  "\"") )
)

(set #no-aweb-ii
  (cat "You must have completed the AWeb-II 3.1 installation before "
    "you can install the %s plug-in. No AWeb3: assign has been found."
  )
)
(if (not (exists "AWeb3:" (noreq)))
  (abort (#no-aweb-ii "Utilities"))
)

(set @default-dest "AWeb3:")
(bumprev "envarc:aweb3"
  (cat "Your previously SAVED AWeb 3.1 configuration"
  " is in this directory.")
) ; backup any previous AWeb3 prefs


(addpref "gui" "PUPI 3x-viewerrun AWeb3:plugins/x-viewer.awebrx %u")
(copyfiles
  (source "X-Viewer.awebrx")
  (dest (tackon @default-dest "plugins"))
  (prompt #installing "X-Viewer")
)

(if (= @user-level 2)
  ( bumprev "env:aweb3"
    (cat "Your previous ACTIVE AWeb 3.1 configuration"
    " is in this directory.")
  ) ;backup any active prefs
)

(delete "env:aweb3/#?" (all))

(copyfiles
  (source "ENVARC:AWeb3")
  (dest "ENV:AWeb3")
  (all)
)


(complete 100)
(set @default-dest "AWeb3:plugins")


(exit  "\n\n" @app-name
  " is now in your Image PopUp Menu.\n\n"
  "If this is an update instalation be sure to check your GUI and/or ARexx menu"
" settings for duplicate entries.")