; script to Install FServ
; Should be run from WorkBench by double-clicking on the icon

(set version2 36)

(complete 0)

(set @default-dest "DH0:")

(set answer1
        (askchoice
                (prompt "Wo soll FServ installiert werden?")
                (choices "Hard Disk" "Floppy Disk")
         (help "Wenn Du Hard Disk auswählst, wird FServ auf die Festplatte "
            "installiert.  Du wirst nach einem Verzeichniss gefragt, wo da "
            "Packet installiert werden soll. Vorgabe ist DH0:. Ein Verzeichniss "
            "mit dem Namen `FServ` wird dort erzeugt. \n\n"
            "Im Verzeichniss `Turbo30` befindet sich eine 68030er-Version der "
            "Software, die von Hand nachinstalliert werden muss.\n"
         )
                (default 0)
        )
)

(if (= answer1 0)
  (
     (set dest2 (askdir  (prompt "Bitte das Zielverzeichniss für FServ Verzeichniss wählen")
                          (default @default-dest)
                          (help "Wähle eine Partition oder ein Verzeichniss in "
                                "das FServ installiert werden soll. Dieses Programm "
				"wird ein Verzeichniss mit dem Namen `FServ` dort "
				"erzeugen und die File dorthin kopieren."
                          )
                )
     )
     (set dest1 (tackon dest2 "FServ"))
     (set dest3 (tackon dest1 "Help"))
     (set @default-dest dest1)
     (message "\n\nErzeuge das Verzeichniss in " 
               dest1
     )
      
     (makedir dest2 (safe) (infos))
     (makedir dest1 (safe) (infos))
     (makedir ("%s/Help" dest1) (safe))
     (makedir ("%s/Programme" dest1) (safe))
     
     (set parts
          (askoptions 
             (prompt "Was soll installiert werden?")
             (choices "FServ"
                     "FSManager"
                     "FSConfig"
                     "On-Line Hilfe"
		     "Hilfsdateien"
             )
             (help "Du musst nicht das komplette Packet installieren. "
		   "FSManager ist das Programm zum komfortablen verwalten "
		   "der Programme auf dem Server, FSConfig ist das Konfigurations "
		   "Programm, FServ ist der FileServer selber. Die Hilfsdateien "
		   "werden von FServ bei Anforderung der Hilfe gesendet.\n\n"
             )
          )
      )
)
)                     

(complete 10)
      (if (IN parts 1)
        (
          (set error (trap 4
             (copyfiles
                (source "FServ")
                    (dest dest1)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
)

(complete 25)
      (if (IN parts 0)
        (
          (set error (trap 4
             (copyfiles
                (source "Help")
                    (dest dest3)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
)

(complete 70)
      (if (IN parts 2)
        (
          (set error (trap 4
             (copyfiles
                (source "FSManager")
                    (dest dest1)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
)

(complete 85)
      (if (IN parts 3)
        (
          (set error (trap 4
             (copyfiles
                (source "FSConfig")
                    (dest dest1)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
)

(complete 100)
      (if (IN parts 4)
        (
          (set error (trap 4
             (copyfiles
                (source "Dok")
                    (dest dest1)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
)


(if (= answer1 1)
  (
                (message "\n\nEine Installation auf Disketten ist leider "
		         "zur Zeit noch nicht vorgesehen und macht "
			 "auch wenig Sinn!"
                )
  )
)