; AmBoS-Fix generated on Tuesday 15-Feb-00 23:19:25.

(set #UpdateVersion "150200")

; $VER: AmBoS-Fix 1.1 (15.02.00) © 2000 AmBoS-Team

(set #language (getenv "Language"))

(set @default-dest "BBS:")

(complete 0)

(user 2)


; ---------------------------------------------------------------------
; --- procedure to copy an icon file, backup if needed

(procedure IconCopy

 (working #Checking-Files)

 (set #iIconCopy-Source "%s%s")			; full path
 (set #iIconCopy-Dest "%s%s")			; full path
 (set #iIconCopy-BackSource "%s%s")		; full path
 (set #iIconCopy-BackDest "Backup:\%s")		; directory

 (if (not (exists (#iIconCopy-Dest #IconCopy-DestDir #IconCopy-SourceFile)))
  (
    (copyfiles
      (source (#iIconCopy-Source #IconCopy-SourceDir #IconCopy-SourceFile))
      (dest #IconCopy-DestDir)
      (optional "nofail")
    )
  )
  (

    (if (= #MakeBackups "1")
     (
 
        (copyfiles
          (source (#iIconCopy-BackSource #IconCopy-DestDir #IconCopy-SourceFile))
          (dest (#iIconCopy-BackDest #UpdateVersion))
          (optional "nofail" "force")
        )
     )
    )

    (copyfiles
      (source (#iIconCopy-Source #IconCopy-SourceDir #IconCopy-SourceFile))
      (dest #IconCopy-DestDir)
      (optional "nofail")
      (prompt #IconCopy-Prompt)
      (help #IconCopy-Help)
      (confirm)
    )

  )

 )

)


; ---------------------------------------------------------------------
; --- procedure to copy a file (with version check when dest file 
;     exists), backup if needed


(procedure VerCopy

 (working #Checking-Files)

 (set #iVerCopy-Source "%s%s")			; full path
 (set #iVerCopy-Dest "%s%s")			; full path
 (set #iVerCopy-BackSource "%s%s")		; full path
 (set #iVerCopy-BackDest "Backup:\%s")		; directory
 (set #iVerCopy-Prompt "\n\%s")

 (if (not (exists (#iVerCopy-Dest #VerCopy-DestDir #VerCopy-SourceFile)))
  (
    (copyfiles
      (source (#iVerCopy-Source #VerCopy-SourceDir #VerCopy-SourceFile))
      (dest #VerCopy-DestDir)
      (optional "nofail")
    )
  )
  (

    (if (= #MakeBackups "1")
     (
 
        (copyfiles
          (source (#iVerCopy-BackSource #VerCopy-DestDir #VerCopy-SourceFile))
          (dest (#iVerCopy-BackDest #UpdateVersion))
          (optional "nofail" "force")
        )
     )
    )

    (copylib
      (source (#iVerCopy-Source #VerCopy-SourceDir #VerCopy-SourceFile))
      (dest #VerCopy-DestDir)
      (optional "oknodelete" "force")
      (prompt (#iVerCopy-Prompt #VerCopy-SourceFile))
      (help #VerCopy-Help)
      (confirm)
    )

  )

 )

)


; ----------------------------------------------------------------------
; --- set english strings

(set #PretendAbort 
 (cat "\nPretend mode cannot be used with this installation."))
 
(set #WrongKickstart
 (cat "\nYou have to install at least Kickstart / Workbench 2.0\n"
      "before installing AmBoS."))

      
(set #Introduction
 (cat "\nWelcome to the AmBoS-Fix release %s.\n\n"
      "Please use this installation if you want to\n"
      "update an existing AmBoS system."))
      
(set #NoBBSAssign
 (cat "\nAssign 'BBS:' not found in your system.\n\n"
      "Be sure that your AmBoS system is\n"
      "installed properly."))

(set #NoBackupAssign
 (cat "\nAssign 'Backup:' not found in your system.\n\n"
      "Be sure that your AmBoS system is\n"
      "installed properly."))
      
(set #MakeBackups
 (cat "\n\nShould backups be created of your updated files?"))
 
(set #MakeBackups-Help
 (cat "\n Please decide if you wish keep the updated\n"
      " files in the 'Backup:' drawer.\n\n"
      " Files will be copied to 'Backup:\%s\'."))
      
(set #VerCopy-Help
 (cat "\n Please decide if you wish to install the file.\n"
      " Please unsure not to overwrite a newer version."))
      
(set #Reboot
  (cat "\nTo take changes affect it is safer to restart\n"
       "your system before starting AmBoS."))
       
(set #Support
  (cat "\nAmBoS Support\n\n"
       "Board Bulletin System\n"
       "ExecBase +49 (0)421 - 242966 (X.75 / V.34)\n\n"
       "Electronic Mail\n"
       "AmBoS@ebase.capella.de\n\n"
       "World Wide Web\n"
       "http://www.mailbox-ag/execbase"))
       
(set #IconCopy-prompt
 (cat "\nDo you want to overwrite this existing icon?\n"))
 
(set #IconCopy-Help
 (cat "\n Decide if you want to overwrite an existing\n"
      " icon file.\n\n"
      " Please notice that icons can be altered by you,\n"
      " e.g. tooltypes."))
      
(set #Checking-Files
 (cat "\n\nChecking files..."))


; ----------------------------------------------------------------------
; --- set german strings

(if (= #language "deutsch")
(

(set #PretendAbort 
 (cat "\n'Scheinbar installieren' ist mit dieser\n"
      "Installation nicht möglich"))
 
(set #WrongKickstart
 (cat "\nAmBoS benötigt mindestens Kickstart / Workbench 2.0."))


(set #Introduction
 (cat "\nWillkommen zum AmBoS-Fix Release %s.\n\n"
      "Bitte benutzen Sie dieses Programm nur zur\n"
      "Aktualisierung eines existierenden AmBoS-Systems."))
      
(set #NoBBSAssign
 (cat "\nZuweisung 'BBS:' in diesem System nicht vorhanden.\n\n"
      "Stellen Sie sicher, daß Ihr AmBoS-System korrekt\n"
      "installiert ist."))

(set #NoBackupAssign
 (cat "\nZuweisung 'Backup:' in diesem System nicht vorhanden.\n\n"
      "Stellen Sie sicher, daß Ihr AmBoS-System korrekt\n"
      "installiert ist."))
      
(set #MakeBackups
 (cat "\n\nSollen Sicherheitskopien der zu aktualisierenden\n"
      "Dateien erstellt werden?"))
 
(set #MakeBackups-Help
 (cat "\n Bitte entscheiden Sie, ob alte Dateien im\n"
      " Verzeichnis 'Backup:' gespeichert werden sollen.\n\n"
      " Die Sicherheitskopien werden im Verzeichnis\n"
      " 'Backup:\%s\' abgelegt.\n"))
      
(set #VerCopy-Help
 (cat "\n Bitte entscheiden Sie, ob die Datei installiert werden soll.\n"
      " Bitte vergewissern Sie sich, daß keine neuere Version\n"
      " überschrieben wird."))
      
(set #Reboot
  (cat "\nUm die Änderungen wirksam werden zu lassen,\n"
       "ist es sicherer, das System neu zu starteten."))
       
(set #Support
  (cat "\nAmBoS Support\n\n"
       "Mailbox\n"
       "ExecBase +49 (0)421 - 242966 (X.75 / V.34)\n\n"
       "Elektronische Post\n"
       "AmBoS@ebase.capella.de\n\n"
       "World Wide Web\n"
       "http://www.mailbox-ag/execbase"))
       
       
(set #IconCopy-prompt
 (cat "\nMöchten Sie dieses bestehende Icon überschreiben?\n"))
 
(set #IconCopy-Help
 (cat "\n Entscheiden Sie, ob Sie ein existierenden Icon\n"
      " überschreiben wollen.\n\n"
      " Bitte beachten Sie, daß ein Icon von Ihnen ver-\n"
      " ändert worden sein könnte, z.B. die Merkmale."))

(set #Checking-Files
 (cat "\n\nÜberprüfe Dateien..."))



))

; ----------------------------------------------------------------------
; --- correct workbench version?

(set #wbversion 0)
(set #wbversion (getversion "libs:version.library"))
(set #wbversion (/ #wbversion 65536) )

(if (< #wbversion 37)
 (
  (abort #WrongKickstart)
 )
)


; ----------------------------------------------------------------------
; --- mode = pretend?

(if @pretend
 (abort #PretendAbort))
 
; ----------------------------------------------------------------------
; --- does assign BBS: exist?

(set #AssignBBS (getassign "BBS"))

(if (= #AssignBBS "")
 (
  (message #NoBBSAssign)
 )
)

; ----------------------------------------------------------------------
; --- does assign Backup: exist?

(set #AssignBackup (getassign "Backup"))

(if (= #AssignBackup "")
 (
  (message #NoBackupAssign)
 )
)

; ----------------------------------------------------------------------
; --- welcome user

(complete 1)

(message (#Introduction #UpdateVersion))

; ----------------------------------------------------------------------
; --- ask for backups

(complete 2)

(set #MakeBackups
  (askbool 
    (prompt #MakeBackups)
    (help (#MakeBackups-Help #UpdateVersion))
    (default 1)
  )
)


(set #BackupDir "Backup:\%s")

(if (= #MakeBackups "1")
 (
  (makedir (#BackupDir #UpdateVersion))
 )
)


; ----------------------------------------------------------------------
; --- create AmBoS directory structure

(makedir "BBS:AutoPOINTS")

(makedir "BBS:Batchdateien")

(makedir "BBS:Catalogs")
(makedir "BBS:Catalogs/deutsch")
(makedir "BBS:Catalogs/english")
(makedir "BBS:Catalogs/français")

(makedir "BBS:Externe")

(makedir "BBS:Guidefiles" (infos))
(makedir "BBS:Guidefiles/deutsch" (infos))

(makedir "BBS:HilfsTexte")

(makedir "BBS:Libs")

(makedir "BBS:Modules")

(makedir "BBS:Netz")
(makedir "BBS:Netz/AutoPoint")
(makedir "BBS:Netz/Batchdateien")
(makedir "BBS:Netz/Texte")
(makedir "BBS:Netz/Texte/MapsRouter")
(makedir "BBS:Netz/Texte/MapHilfe")
(makedir "BBS:Netz/Texte/MapsBefehle")

(makedir "BBS:OnlineMenu")
(makedir "BBS:OnlineMenu/Hilfe")
(makedir "BBS:OnlineMenu/Hintergründe")
(makedir "BBS:OnlineMenu/Rahmen")

(makedir "BBS:Protokolle")

(makedir "BBS:Root")

(makedir "BBS:Setup")

(makedir "BBS:Texte")

(makedir "BBS:Toolbox" (infos))

(makedir "BBS:User")

; (set #IconCopy-SourceDir "AmBoS/")
; (set #IconCopy-SourceFile "AmBoS.info")
; (set #IconCopy-DestDir "temp:")
; (IconCopy)

; (set #VerCopy-SourceDir "AmBoS/")
; (set #VerCopy-SourceFile "AmBoS")
; (set #VerCopy-DestDir "temp:")
; (VerCopy)


; AmBoS/Guidefiles/deutsch/AmBoS.Guide
(set #VerCopy-SourceDir "AmBoS/Guidefiles/deutsch/")
(set #VerCopy-SourceFile "AmBoS.Guide")
(set #VerCopy-DestDir "BBS:Guidefiles/deutsch/")
(VerCopy)

(complete 12)


(complete 99)

(message #Reboot)

(message #Support)