;; Konto Installer-Script
;; (c) 2000 by Günter Lang

(set @default-dest "")
(set @pretend 0)
(set @user-level 2)


(complete 0)

(message "\nKonto V3.1 (Mai 2000) \n"
         "(c) 2000 by Günter Lang\n"
         "Willkommen zur Installation des Programms\n"
         "Konto\n\n"
         "Dieses Install-Script installiert Konto\n"
         "auf Ihrer Festplatte und richtet dazu das Verzeichnis\n"
         "Konto und das Unterverzeichnis Konto_Dat ein.\n"
         "Das Install-Script kopiert das Startup-Script KontoStartup\n"
         "in das Verzeichniss S auf der Partition  Workbench."
)
(set #theirlevel @user-level )

(set #installdir
    (askdir
           (prompt "Wählen Sie die Partition Ihrer Festplatte, auf der\n"
                   "das Verzeichnis Konto installiert wird.")
           (help @askdir-help)
           (default "Work:")
    )
)

(copyfiles
    (source "/")
    (dest #installdir)
    (pattern "Konto#?")
)

(textfile
    (dest "KontoStartup" )
    (append ";KontoPrefs"))
    
(textfile
    (dest "KontoStartup" )
    (include "KontoStartup")
    (append "\n" ))
    
(textfile
    (dest "KontoStartup" )
    (include "KontoStartup")
    (append #installdir ))
    
(textfile
    (dest "KontoStartup" )
    (include "KontoStartup")
    (append "\n" ))
        
(user 2)
(set sk (askoptions (prompt "\nWollen Sie Sicherheitskopien\n"
   "der Konto-Dateien auf einer Diskette\n"
   "im Laufwerk df0: speichern ?\n")
   (help "\nWenn Sicherheitskopien gewünscht werden\n"
   "werden auf der Diskette in df0: ein Verzeichnis\n"
   "Konto und darin ein Unterverzeichnis Konto_Dat\n"
   "angelegt\n")
   (choices "Nein"
            "Ja")
   (default 0)
   (back (retrace))
   )
)
   (user #theirlevel)
   (complete 20) 
   
(textfile
    (dest "KontoStartup" )
    (include "KontoStartup")
    (append sk )
)

(textfile
    (dest "KontoStartup" )
    (include "KontoStartup")
    (append "\n")
)
    
(set intsk (+ sk))

(if (= intsk 2)
     (message "\n\n\nLegen Sie die als Sicherheitsdiskette\n"
              "vorgesehene Diskette in das Laufwerk df0:\n")
)
(if ( = intsk 2)
     (makedir "df0:Konto")
)	
(if ( = intsk 2)
     (makedir "df0:Konto/Konto_Dat")
)	
				


(copyfiles
       (prompt "\n\n\nKopiere die KontoStartup-Datei nach S")
       (help"")
       (source "KontoStartup")
       (dest "S:")
)

(delete
       ("KontoStartup")
)

(complete 99)

(message "\n\nKonto befinded sich nun auf Ihrer Festplatte\n"
         "im Verzeichnis " #installdir "Konto.\n")

(complete 100)