Amiga MA Magazine 1998 #3/amigamamagazinepolishissue1998.iso/bazy/easyvideo/install-easyvideo

Text File | 1996-12-28 | 7KB | 275 lines

; Installations script für EasyVideo $VER 3.3

(set @default_dest "SYS:EasyVideo")

; Fehler / Cleanup

(onerror
        (makeassign "EasyVideo" (safe))
)

; schauen ob updatet

(set is_update 0)
(set EVideo_dest (getassign "EasyVideo" "a"))

; Wenn Update, ob überschreiben

(if EVideo_dest
    ; then
        (if (askbool
            (prompt "Ihr EasyVideo befindet sich schon im Verzeichnis \""
                                        EVideo_dest
                                        "\". Möchten Sie in dieses Verzeichnis updaten?"
                        )
                        (help
"Der Installer hat schon eine Kopie von EasyVideo entdeckt. Soll "
"diese Installation erhalten werden oder möchten Sie ein Update (Ja) ? "
                        )
                        (default 1)
                )

                (set is_update 1)               ; if user wants in same place

                (set EVideo_dest                      ; if user wants in different place
            (askdir
            (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help
"Es wird das von Ihnen angegebene Verzeichnis verwendet, "
"und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
"bereits existieren"
                     )
                (default "SYS:EasyVideo")
                     (newpath "SYS:EasyVideo")
            )
                )
        )
    ; else
    (
        (set EVideo_dest
            (askdir
                (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help
"Es wird das von Ihnen angegebene Verzeichnis verwendet, "
"und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
"bereits existieren"
                     )
                (default "SYS:EasyVideo")
                     (newpath "SYS:EasyVideo")
            )
        )
    )
)

(if (not (exists EVideo_dest) )
    (makedir EVideo_dest (prompt "Erstelle Direktory") (infos) (confirm) (help) )
)

(makeassign "EasyVideo" EVideo_dest (safe))

(makeassign "VideoInstallDisk" "" (safe))

; Make EasyVideo drawer & icon if not there

(if (not is_update)
    (makedir EVideo_dest (infos))
)

(set @default-dest EVideo_dest)

(copyfiles
    (source "VideoInstallDisk:")
    (pattern "EasyVideo#?")
    (dest EVideo_dest)
     (infos)
)
(if (not (exists (tackon EVideo_dest "MyVideo.dat")))
(copyfiles
    (source "VideoInstallDisk:MyVideo.dat")
    (dest EVideo_dest)
     (infos)
)
)
(copyfiles
    (source "VideoInstallDisk:Doku")
    (dest (tackon EVideo_dest "Doku") )
    (all)
    (infos)
)

(copyfiles
    (source "VideoInstallDisk:Doku.info")
    (dest EVideo_dest)
)

(copyfiles
    (source "VideoInstallDisk:Rexx")
    (dest (tackon EVideo_dest "Rexx") )
    (all)
    (infos)
)

(copyfiles
    (source "VideoInstallDisk:Catalogs")
    (dest (tackon EVideo_dest "Catalogs") )
    (all)
    (infos)
)

(if (not (EXISTS("c:RX")))
    (copyfiles (source "VideoInstallDisk:c/RX") (dest "c:") (infos))
)

( if (EXISTS("S:Video.config"))
  (set copy_oldprefs
        (askbool (prompt "Standardeinstellungen S:Video.config überschreiben?")
                 (help "Ja, existierendes Konfigurationsfile in S: wird überschrieben. "
                              "Ihre persönlichen Einstellungen und der eventuell vorhandene "
                              "Registrierkey geht dabei verloren! "
                              "Wird die Einstellung nicht überschrieben, ergänzt EV fehlende "
                              "Einträge in der alten Konfiguration mit sinnvollen Einträgen. "
                 )
        )
  )
)

( if copy_oldprefs
    ( copyfiles
        (source "VideoInstallDisk:ENV/Video.config")
        (dest "S:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach S: kopiert." )
)

( if (EXISTS("EnvArc:Video.config"))
  (set copy_prefs
        (askbool (prompt "Standardeinstellungen EnvArc:Video.config überschreiben?")
                 (help "Ja, existierende Konfigurationsfile in EnvArc: wird überschrieben. "
                              "Ihre persönlichen Einstellungen und der eventuell vorhandene "
                              "Registrierkey geht dabei verloren! "
                              "Wird die Einstellung nicht überschrieben, ergänzt EV fehlende "
                              "Einträge in der alten Konfiguration mit sinnvollen Einträgen. "
                 )
        )
  )
  ( if (Not (EXISTS("S:Video.config"))) ( set copy_prefs 1 ))
)

( if copy_prefs
    ( copyfiles
        (source "VideoInstallDisk:ENV/Video.config")
        (dest "EnvArc:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach ENVARC: kopiert." )
)

( if (EXISTS "VideoInstallDisk:libs/amigaguide.library" (noreq))
 (
  (working "Installiere AmigaGuide...")
  (copylib
    (source "VideoInstallDisk:libs/amigaguide.library")
    (dest "LIBS:")
  )
  (copyfiles
    (source "VideoInstallDisk:c/amigaguide")
    (dest "C:")
    (infos)
  )
 )
)

( if (EXISTS "VideoInstallDisk:libs/asl.library" (noreq))
 (
  (working "Aktualisiere LIBS:...")
  (copylib
    (source "VideoInstallDisk:libs/explode.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsupport.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsyslib.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/asl.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathffp.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubbas.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubtrans.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathtrans.library")
    (dest "LIBS:")
  )
  (copylib
     (source "VideoInstallDisk:libs/diskfont.library")
     (dest "LIBS:")
  )
 )
)

(if (askbool
        (prompt "Soll ich für Sie die Zeichensätze aktualisieren?")
      (help
"EasyVideo liefert ein paar nützliche Zeichensätze mit. Möchten Sie diese nutzen, "
"antworten Sie mit JA. Wurde EasyVideo schon einmal installiert, müssen die Fonts nicht "
"noch einmal kopiert werden."
      )
    )
    (
    (working "Copiere Fonts...")
    (copyfiles
        (source "VideoInstallDisk:fonts")
        (dest "FONTS:")
        (all)
        (infos)
    )
    )
)
(working "")

; modify S:User-Startup

(startup "EasyVideo"
        (prompt
                "Ich definiere ein Assign für EasyVideo in der \"S:user-startup\". "
                "Als Direktory kann in der Konfiguration dann \"EasyVideo:\" angegeben werden."
        (help "Ist besser so! EasyVideo erkennt an Hand dieses Assigns das Vorhandensein "
                  "einer älteren Version und aktualisiert in dieses Verzeichnis. "
          )
        (command "ASSIGN EasyVideo: \"" EVideo_dest "\"")
        )
)

; reinitialize assigns

(makeassign "EasyVideo" EVideo_dest)

(complete 100)

 ; cleanup

(makeassign "VideoInstallDisk" (safe))

(exit (cat
       "\nSollten Sie soeben über eine vorhandene Konfiguration "
         "Installiert haben und Sie sind registrierter Nutzer von EV, "
         "können Sie den Registriercode mit Doppelklick auf "
         "\"EasyVideoRegistrier\" von der Diskette übernehmen!\n"
        )
)