home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / cdity / viewer.lha / Viewer / INSTALL-Viewer < prev    next >
Encoding:
Text File  |  1993-01-30  |  4.1 KB  |  148 lines
  1. ; Viewer Installation V1.0
  2. ; 
  3.  
  4. (complete 0)
  5.  
  6. (working "\n\nSie haben den Auto-Modus gewählt!\n"
  7.          "Von nun an läuft alles automatisch ab!\n\n"
  8.          "Lehnen Sie sich zurück und warten Sie ab!")
  9.  
  10.  
  11. ; ------- Viewer KOPIEREN
  12. (set @default-source
  13.    (askdir
  14.       (prompt "Bitte wählen Sie das Verzeichnis oder die Diskette mit"
  15.                " dem Programm Viewer aus!")
  16.       (help "Das Verzeichnis oder die Diskette enthält das Programm Viewer "
  17.             "die Dokumentation, und auch das Installation-Programm\n\n"    
  18.              @askdir-help)
  19.       (default "")
  20.    )
  21. )
  22.  
  23. (set @default-dest                        ; Verzeichnis aussuchen 
  24.    (askdir
  25.       (prompt "In welches Verzeichnis soll Viewer kopiert werden ? ")
  26.       (help "Wählen Sie zuerst eine Partition Ihrer Festplatte, ein Laufwerk"
  27.             " oder ein Verzeichnis aus, auf das Sie gerne Viewer installieren"
  28.             " würden. Dann drücken Sie auf PROCEED und das Programm beginnt mit "
  29.             "der Arbeit.\n\n" )
  30.             @askdir-help
  31.       (default "sys:Viewer")
  32.    )
  33. )
  34.  
  35. (if                                       ; Verzeichnis erzeugen
  36.    (= (exists @default-dest) 0)
  37.    (makedir @default-dest)
  38. )
  39.  
  40.  
  41. (copyfiles                                ; Viewer kopieren
  42.    (prompt "\nViewer wird in das Verzeichnis kopiert ...\n")
  43.    (help @copyfiles-help)
  44.    (source @default-source)
  45.    (dest @default-dest)
  46.    (pattern "Viewer#?")
  47.    (confirm)
  48. )
  49.  
  50.  
  51. (set @SourceDocsDir (tackon @default-source "Docs/deutsch"))
  52. (set @DestDocsDir (tackon @default-dest "Docs"))
  53. (if                                       ; Verzeichnis erzeugen
  54.    (= (exists @DestDocsDir) 0)
  55.    (makedir @DestDocsDir)
  56. )
  57.  
  58. (copyfiles                                ; Viewer Doc-Dateien kopieren
  59.    (prompt "\nViewer Docs-Dateien werden in das Verzeichnis kopiert ...\n")
  60.    (help @copyfiles-help)
  61.    (source @SourceDocsDir)
  62.    (dest @DestDocsDir)
  63.    (all)
  64.    (confirm)
  65. )
  66.  
  67. (if
  68.   (= (exists (tackon @DestDocsDir "Viewer.dok")) 0) 
  69.   (copyfiles
  70.      (prompt "\nDie Liesmich-Datei wird kopiert ...\n")
  71.      (help @copyfiles-help)
  72.      (source @default-source)
  73.      (dest  @default-dest)
  74.      (choices "Liesmich" "Liesmich.info")
  75.      (confirm)
  76.    )
  77. )
  78.  
  79. (set @SourceRegDir (tackon @default-source "Registration"))
  80. (set @DestRegDir (tackon @default-dest "Registration"))
  81. (if                                       ; Verzeichnis erzeugen
  82.    (= (exists @DestRegDir) 0)
  83.    (makedir @DestRegDir)
  84. )
  85.  
  86. (copyfiles                                ; Viewer Registration kopieren
  87.    (prompt "\nViewer Registrierungs-Dateien werden in das Verzeichnis kopiert ...\n")
  88.    (help @copyfiles-help)
  89.    (source @SourceRegDir)
  90.    (dest @DestRegDir)
  91.    (all)  
  92.   (confirm)
  93. )
  94.  
  95. (set @SourceLocDir (tackon @default-source "Catalogs/Deutsch"))
  96. (set @DestLocDir (tackon @default-dest "Catalogs"))
  97. (if                                       ; Verzeichnis erzeugen
  98.    (= (exists @DestLocDir) 0)
  99.    (makedir @DestLocDir)
  100. )
  101.  
  102. (copyfiles                                ; Viewer CD und CT-Dateien kopieren
  103.    (prompt "\nViewer CD und CT-Dateien werden in das Verzeichnis kopiert ...\n")
  104.    (help @copyfiles-help)
  105.    (source @SourceLocDir)
  106.    (dest @DestLocDir)
  107.    (choices "Viewer.cd" "Viewer.ct")  
  108.   (confirm)
  109. )
  110.  
  111. (set @LocDir ("LOCALE:Catalogs/Deutsch"))
  112. (if (exists @LocDir)
  113.    (
  114.      (set @SourceLocDir (tackon @default-source "Catalogs/Deutsch"))
  115.      (set @DestLocDir ("LOCALE:Catalogs/Deutsch"))
  116.  
  117.      (copyfiles                                ; Viewer Catalog-Dateien kopieren
  118.        (prompt "\nViewer Catalog-Datei wird in das Verzeichnis kopiert\n")
  119.        (help @copyfiles-help)
  120.        (source @SourceLocDir)
  121.        (dest @DestLocDir)
  122.        (choices "Viewer.catalog")  
  123.        (confirm)
  124.      )
  125.    )
  126. )
  127.  
  128. (copyfiles
  129.    (prompt "\nDas Installprogramm und Installscript werden kopiert\n")
  130.    (help @copyfiles-help)
  131.    (source @default-source)
  132.    (dest  @default-dest)
  133.    (pattern "In#?")
  134.    (confirm)
  135. )
  136.  
  137. (complete 100)
  138.  
  139. ; ------- FERTIG
  140.  
  141. (message (cat 
  142.    "\nInstallation von Viewer ist beendet.\n\n"
  143.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk, wenn Sie "
  144.    "das Programm von einer Diskette installiert haben und starten Sie "
  145.    "Viewer.\n\nViel Spaß !")
  146.  
  147. ) 
  148.