Aminet 10/aminetcdnumber101996.iso/Aminet/comm/ambos/AmBoS.lha/AmBoS_Install/Install_AmBoS

Text File | 1995-11-13 | 3KB | 134 lines

(user 2)
(set MainPath        "BBS:")
(set SourcePath        "AmBoS")

(set destpath
    (askdir
        (prompt "Wo soll das AmBoS-Verzeichnis erzeugt werden ?")
        (help "In das von Ihnen gewählte Verzeichnis wird das AmBoS-Demo kopiert. Es wird ein Icon für das Verzeichnis erzeugt")
        (default "work:")
    )
)

(set @default-dest
    (tackon destpath "AmBoS")
)

(set result
    (makedir @default-dest
        (prompt "Erzeuge AmBoS-Verzeichnis...")
        (safe)
    )
)

(set result
    (copyfiles
        (prompt "Kopiere AmBoS-Files...")
        (help "Es werden nun die AmBoS-File kopiert")
        (source SourcePath)
        (dest @default-dest)
        (all)
        (infos)
        (optional fail)
        (safe)
    )
)

(set result
    (copyfiles
        (prompt "Kopiere AmBoS-Files...")
        (help "Es werden nun die AmBoS-File kopiert")
        (source "AmBoS.info")
        (dest destpath)
        (safe)
    )
)

(set result
    (copylib
        (prompt "Kopiere Libraries...")
        (help "Es werden nun die AmBoS-Libraries kopiert")
        (source "libs/bbs.library")
        (dest "libs:")
        (optional fail)
        (safe)
    )
)

(set result
    (copyfiles
        (prompt "Kopiere Fonts...")
        (help "Es werden nun die AmBoS-Fonts kopiert")
        (source "fonts")
        (dest "fonts:")
        (all)
        (infos)
        (optional fail)
        (safe)
    )
)

(set result
    (copyfiles
        (prompt "Kopiere Catalogs...")
        (help "Es werden nun die AmBoS-Catalogs kopiert")
        (source "Locale")
        (dest "Locale:")
        (all)
        (infos)
        (optional fail)
        (safe)
    )
)

(set forstartup ("assign bbs: \"%s\"" @default-dest))

(set result
    (startup "AmBoS-Hauptprogramm"
        (prompt "Es wird das BBS-Assign in Ihre User-Startup eingefügt")
        (help "Das Assign wird von AmBoS benötigt, um die nötigen Datenfiles zu finden")
        (command forstartup)
    )
)
(makeassign "bbs" @default-dest)

(set result
    (askbool
        (default 1)
        (prompt "AmBoS macht von allen Datenfiles ein Backup. Dazu muß allerdings das Assign 'backup:' eingerichtet sein. Soll dieses Assign in Ihre User-Startup einfügt werden ?")
        (help "Dieses Assign benötigt AmBoS um Backups von den Systemdaten zu machen")
        (choices "Ja" "Nein")
    )
)

(if result
    (
        (set destpath
            (askdir
                (prompt "Wo soll das Backup-Verzeichnis erzeugt werden ?")
                (help "In das von Ihnen gewählte Verzeichnis werden die backups der Systemdaten gemacht. Es sollte ein Verzeichnis auf einer Partition ungleich der BBS-Partition gewählte werden.")
                (default "data:")
            )
        )
        (set backuppath
            (tackon destpath "Backup")
        )
        (set result
            (makedir backuppath
                (prompt "Erzeuge backup-Verzeichnis...")
                (infos)
                (safe)
            )
        )
        (set backupassign ("assign backup: \"%s\"" backuppath))
        (set result
            (startup "AmBoS-Backupverzeichnis"
                (prompt "Es wird das Backup-Assign in Ihre User-Startup eingefügt")
                (help "Das Assign wird von AmBoS benötigt, um backups von den Datenfiles zu machen.")
                (command backupassign)
            )
        )
        (makeassign "backup" backuppath)
    )
)