; WS_PackHELP Installation V1.0
; 

(complete 0)

(working "\n\nSie haben den Auto-Modus gewählt!\n"
         "Von nun an läuft alles automatisch ab!\n\n"
         "Lehnen Sie sich zurück und warten Sie ab!")


; ------- WS_PackHELP KOPIEREN
(set @default-source
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis oder die Diskette mit"
               " dem Programm WS_PackHELP aus!")
      (help "Das Verzeichnis oder die Diskette enthält das Programm WS_PackHELP "
            "die Dokumentation, die Config-Datei und auch das Installation-Programm\n\n"    
             @askdir-help)
      (default "")
   )
)

(set @default-dest                        ; Verzeichnis aussuchen 
   (askdir
      (prompt "In welches Verzeichnis soll WS_PackHELP kopiert werden ? ")
      (help "Wählen Sie zuerst eine Partition Ihrer Festplatte, ein Laufwerk"
            " oder ein Verzeichnis aus, auf das Sie gerne WS_PackHELP installieren"
            " würden. Dann drücken Sie auf PROCEED und das Programm beginnt mit "
            "der Arbeit.\n\n" )
            @askdir-help
      (default "SYS:WS_PackHELP")
   )
)

(if                                       ; Verzeichnis erzeugen
   (= (exists @default-dest) 0)
   (makedir @default-dest)
)


(copyfiles                                ; WS_PackHELP kopieren
   (prompt "\nWS_PackHELP wird in das Verzeichnis kopiert ...\n")
   (help @copyfiles-help)
   (source @default-source)
   (dest @default-dest)
   (pattern "WS_PackHELP#?")
   (confirm)
)


(set @SourceDocsDir (tackon @default-source "Docs"))
(set @SourceDocsDir
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Doc-Dateien"
               " kopiert werden sollen aus!")
      (help "Das Verzeichnis enthält die Dokumentationsdateien des Programmes"
	    " WS_PackHELP\n\n"
             @askdir-help)
      (default @SourceDocsDir)
   )
)

(set @DestDocsDir (tackon @default-dest "Docs"))
(if                                       ; Verzeichnis erzeugen
   (= (exists @DestDocsDir) 0)
   (makedir @DestDocsDir)
)

(set @DestDocsDir
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis aus, in das die Doc-Dateien"
               " kopiert werden sollen aus!")
      (help "Das Verzeichnis enthält dann die kopierten Doc-Dateien des Programmes"
	    " WS_PackHELP\n\n"
             @askdir-help)
      (default @DestDocsDir)
   )
)

(copyfiles                                ; WS_PackHELP Doc-Dateien kopieren
   (prompt "\nWS_PackHELP Docs-Dateien werden in das Verzeichnis kopiert ...\n")
   (help @copyfiles-help)
   (source @SourceDocsDir)
   (dest @DestDocsDir)
   (all)
   (confirm)
)

(set @default-config "s")
(if 
   (= (exists "s:Packer.config") 0)
   (copyfiles                                ; CONFIG nach s: kopieren
      (prompt "\nDie Konfigurationsdateien werden nach s: kopiert ...\n")
      (help @copyfiles-help)
      (source @default-config)
      (dest "s:")
      (newname "Packer.config_New")
      (choices "Packer.config")
      (confirm)
   )
)

(if
  (= (exists (tackon @DestDocsDir "WS_PackHELP.dok")) 0) 
  (copyfiles
     (prompt "\nDie ReadMe-Datei wird kopiert ...\n")
     (help @copyfiles-help)
     (source @default-source)
     (dest  @default-dest)
     (choices "ReadMe" "ReadMe.info")
     (confirm)
   )
)

(if
  (= (exists (tackon @DestDocsDir "WS_PackHELP.doc")) 0) 
  (copyfiles
     (prompt "\nDie Liesmich-Datei wird kopiert ...\n")
     (help @copyfiles-help)
     (source @default-source)
     (dest  @default-dest)
     (choices "Liesmich" "Liesmich.info")
     (confirm)
   )
)

(set @SourceRegDir (tackon @default-source "Registration"))
(set @SourceRegDir
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Registrierungs-Dateien"
               " kopiert werden sollen aus!")
      (help "Das Verzeichnis enthält die Registrierungs-Dateien des Programmes"
	    " WS_PackHELP\n\n"
             @askdir-help)
      (default @SourceRegDir)
   )
)

(set @DestRegDir (tackon @default-dest "Registration"))
(if                                       ; Verzeichnis erzeugen
   (= (exists @DestRegDir) 0)
   (makedir @DestRegDir)
)

(set @DestRegDir
   (askdir
      (prompt "Bitte wählen Sie das Verzeichnis aus, in das die Registrierungs-Dateien"
               " kopiert werden sollen aus!")
      (help "Das Verzeichnis enthält dann die kopierten Registireungs-Dateien des Programmes"
	    " WS_PackHELP\n\n"
             @askdir-help)
      (default @DestRegDir)
   )
)

(copyfiles                                ; WS_PackHELP Registration kopieren
   (prompt "\nWS_PackHELP Registrierungs-Dateien werden in das Verzeichnis kopiert ...\n")
   (help @copyfiles-help)
   (source @SourceRegDir)
   (dest @DestRegDir)
   (all)  
  (confirm)
)

(copyfiles
   (prompt "\nDas Installprogramm und Installscript werden kopiert\n")
   (help @copyfiles-help)
   (source @default-source)
   (dest  @default-dest)
   (pattern "In#?")
   (confirm)
)

(complete 100)

; ------- FERTIG

(message (cat 
   "\nInstallation von WS_PackHELP ist beendet.\n\n"
   "Entfernen Sie nun die Diskette aus Ihrem Laufwerk, wenn Sie "
   "das Programm von einer Diskette installiert haben und starten Sie "
   "WS_PackHELP.\n\nViel Spaß !")
)