home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / easyvideo / install-easyvideo < prev    next >
Text File  |  1996-12-28  |  7KB  |  275 lines

  1. ; Installations script für EasyVideo $VER 3.3
  2.  
  3. (set @default_dest "SYS:EasyVideo")
  4.  
  5. ; Fehler / Cleanup
  6.  
  7. (onerror
  8.         (makeassign "EasyVideo" (safe))
  9. )
  10.  
  11. ; schauen ob updatet
  12.  
  13. (set is_update 0)
  14. (set EVideo_dest (getassign "EasyVideo" "a"))
  15.  
  16. ; Wenn Update, ob überschreiben
  17.  
  18. (if EVideo_dest
  19.     ; then
  20.         (if (askbool
  21.             (prompt "Ihr EasyVideo befindet sich schon im Verzeichnis \""
  22.                                         EVideo_dest
  23.                                         "\". Möchten Sie in dieses Verzeichnis updaten?"
  24.                         )
  25.                         (help
  26. "Der Installer hat schon eine Kopie von EasyVideo entdeckt. Soll "
  27. "diese Installation erhalten werden oder möchten Sie ein Update (Ja) ? "
  28.                         )
  29.                         (default 1)
  30.                 )
  31.  
  32.                 (set is_update 1)               ; if user wants in same place
  33.  
  34.                 (set EVideo_dest                      ; if user wants in different place
  35.             (askdir
  36.             (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
  37.                 (help
  38. "Es wird das von Ihnen angegebene Verzeichnis verwendet, "
  39. "und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
  40. "bereits existieren"
  41.                      )
  42.                 (default "SYS:EasyVideo")
  43.                      (newpath "SYS:EasyVideo")
  44.             )
  45.                 )
  46.         )
  47.     ; else
  48.     (
  49.         (set EVideo_dest
  50.             (askdir
  51.                 (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
  52.                 (help
  53. "Es wird das von Ihnen angegebene Verzeichnis verwendet, "
  54. "und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
  55. "bereits existieren"
  56.                      )
  57.                 (default "SYS:EasyVideo")
  58.                      (newpath "SYS:EasyVideo")
  59.             )
  60.         )
  61.     )
  62. )
  63.  
  64. (if (not (exists EVideo_dest) )
  65.     (makedir EVideo_dest (prompt "Erstelle Direktory") (infos) (confirm) (help) )
  66. )
  67.  
  68. (makeassign "EasyVideo" EVideo_dest (safe))
  69.  
  70. (makeassign "VideoInstallDisk" "" (safe))
  71.  
  72. ; Make EasyVideo drawer & icon if not there
  73.  
  74. (if (not is_update)
  75.     (makedir EVideo_dest (infos))
  76. )
  77.  
  78. (set @default-dest EVideo_dest)
  79.  
  80. (copyfiles
  81.     (source "VideoInstallDisk:")
  82.     (pattern "EasyVideo#?")
  83.     (dest EVideo_dest)
  84.      (infos)
  85. )
  86. (if (not (exists (tackon EVideo_dest "MyVideo.dat")))
  87. (copyfiles
  88.     (source "VideoInstallDisk:MyVideo.dat")
  89.     (dest EVideo_dest)
  90.      (infos)
  91. )
  92. )
  93. (copyfiles
  94.     (source "VideoInstallDisk:Doku")
  95.     (dest (tackon EVideo_dest "Doku") )
  96.     (all)
  97.     (infos)
  98. )
  99.  
  100. (copyfiles
  101.     (source "VideoInstallDisk:Doku.info")
  102.     (dest EVideo_dest)
  103. )
  104.  
  105. (copyfiles
  106.     (source "VideoInstallDisk:Rexx")
  107.     (dest (tackon EVideo_dest "Rexx") )
  108.     (all)
  109.     (infos)
  110. )
  111.  
  112. (copyfiles
  113.     (source "VideoInstallDisk:Catalogs")
  114.     (dest (tackon EVideo_dest "Catalogs") )
  115.     (all)
  116.     (infos)
  117. )
  118.  
  119. (if (not (EXISTS("c:RX")))
  120.     (copyfiles (source "VideoInstallDisk:c/RX") (dest "c:") (infos))
  121. )
  122.  
  123. ( if (EXISTS("S:Video.config"))
  124.   (set copy_oldprefs
  125.         (askbool (prompt "Standardeinstellungen S:Video.config überschreiben?")
  126.                  (help "Ja, existierendes Konfigurationsfile in S: wird überschrieben. "
  127.                               "Ihre persönlichen Einstellungen und der eventuell vorhandene "
  128.                               "Registrierkey geht dabei verloren! "
  129.                               "Wird die Einstellung nicht überschrieben, ergänzt EV fehlende "
  130.                               "Einträge in der alten Konfiguration mit sinnvollen Einträgen. "
  131.                  )
  132.         )
  133.   )
  134. )
  135.   
  136. ( if copy_oldprefs
  137.     ( copyfiles
  138.         (source "VideoInstallDisk:ENV/Video.config")
  139.         (dest "S:" )
  140.         (infos)
  141.     )
  142.     ( transcript "Standardeinstellungsfile Video.config wird nicht nach S: kopiert." )
  143. )
  144.  
  145. ( if (EXISTS("EnvArc:Video.config"))
  146.   (set copy_prefs 
  147.         (askbool (prompt "Standardeinstellungen EnvArc:Video.config überschreiben?")
  148.                  (help "Ja, existierende Konfigurationsfile in EnvArc: wird überschrieben. "
  149.                               "Ihre persönlichen Einstellungen und der eventuell vorhandene "
  150.                               "Registrierkey geht dabei verloren! "
  151.                               "Wird die Einstellung nicht überschrieben, ergänzt EV fehlende "
  152.                               "Einträge in der alten Konfiguration mit sinnvollen Einträgen. "
  153.                  )
  154.         )
  155.   )
  156.   ( if (Not (EXISTS("S:Video.config"))) ( set copy_prefs 1 ))
  157. )
  158.   
  159. ( if copy_prefs
  160.     ( copyfiles
  161.         (source "VideoInstallDisk:ENV/Video.config")
  162.         (dest "EnvArc:" )
  163.         (infos)
  164.     )
  165.     ( transcript "Standardeinstellungsfile Video.config wird nicht nach ENVARC: kopiert." )
  166. )
  167.  
  168. ( if (EXISTS "VideoInstallDisk:libs/amigaguide.library" (noreq))
  169.  (
  170.   (working "Installiere AmigaGuide...")
  171.   (copylib
  172.     (source "VideoInstallDisk:libs/amigaguide.library")
  173.     (dest "LIBS:")
  174.   )
  175.   (copyfiles
  176.     (source "VideoInstallDisk:c/amigaguide")
  177.     (dest "C:")
  178.     (infos)
  179.   )
  180.  )
  181. )
  182.  
  183. ( if (EXISTS "VideoInstallDisk:libs/asl.library" (noreq))
  184.  (
  185.   (working "Aktualisiere LIBS:...")
  186.   (copylib
  187.     (source "VideoInstallDisk:libs/explode.library")
  188.     (dest "LIBS:")
  189.   )
  190.   (copylib
  191.     (source "VideoInstallDisk:libs/rexxsupport.library")
  192.     (dest "LIBS:")
  193.   )
  194.   (copylib
  195.     (source "VideoInstallDisk:libs/rexxsyslib.library")
  196.     (dest "LIBS:")
  197.   )
  198.   (copylib
  199.     (source "VideoInstallDisk:libs/asl.library")
  200.     (dest "LIBS:")
  201.   )
  202.   (copylib
  203.     (source "VideoInstallDisk:libs/mathffp.library")
  204.     (dest "LIBS:")
  205.   )
  206.   (copylib
  207.     (source "VideoInstallDisk:libs/mathieeedoubbas.library")
  208.     (dest "LIBS:")
  209.   )
  210.   (copylib
  211.     (source "VideoInstallDisk:libs/mathieeedoubtrans.library")
  212.     (dest "LIBS:")
  213.   )
  214.   (copylib
  215.     (source "VideoInstallDisk:libs/mathtrans.library")
  216.     (dest "LIBS:")
  217.   )
  218.   (copylib
  219.      (source "VideoInstallDisk:libs/diskfont.library")
  220.      (dest "LIBS:")
  221.   )
  222.  )
  223. )
  224.  
  225. (if (askbool
  226.         (prompt "Soll ich für Sie die Zeichensätze aktualisieren?")
  227.       (help
  228. "EasyVideo liefert ein paar nützliche Zeichensätze mit. Möchten Sie diese nutzen, "
  229. "antworten Sie mit JA. Wurde EasyVideo schon einmal installiert, müssen die Fonts nicht "
  230. "noch einmal kopiert werden."
  231.       )
  232.     )
  233.     (
  234.     (working "Copiere Fonts...")
  235.     (copyfiles
  236.         (source "VideoInstallDisk:fonts")
  237.         (dest "FONTS:")
  238.         (all)
  239.         (infos)
  240.     )
  241.     )
  242. )
  243. (working "")
  244.  
  245. ; modify S:User-Startup
  246.  
  247. (startup "EasyVideo"
  248.         (prompt
  249.                 "Ich definiere ein Assign für EasyVideo in der \"S:user-startup\". "
  250.                 "Als Direktory kann in der Konfiguration dann \"EasyVideo:\" angegeben werden."
  251.         (help "Ist besser so! EasyVideo erkennt an Hand dieses Assigns das Vorhandensein "
  252.                   "einer älteren Version und aktualisiert in dieses Verzeichnis. "
  253.           )
  254.         (command "ASSIGN EasyVideo: \"" EVideo_dest "\"")
  255.         )
  256. )
  257.  
  258. ; reinitialize assigns
  259.  
  260. (makeassign "EasyVideo" EVideo_dest)
  261.  
  262. (complete 100)
  263.  
  264.  ; cleanup
  265.  
  266. (makeassign "VideoInstallDisk" (safe))
  267.  
  268. (exit (cat 
  269.        "\nSollten Sie soeben über eine vorhandene Konfiguration "
  270.          "Installiert haben und Sie sind registrierter Nutzer von EV, "
  271.          "können Sie den Registriercode mit Doppelklick auf "
  272.          "\"EasyVideoRegistrier\" von der Diskette übernehmen!\n"
  273.         )
  274. )
  275.