; AmBoS-Fix generated on Sunday 13-Feb-00 22:16:44.

(set #UpdateVersion "130200")

; $VER: AmBoS-Fix 1.0 (13.02.00) © 2000 AmBoS-Team

(set #language (getenv "Language"))

(set @default-dest "BBS:")

(complete 0)

(user 2)

; ---------------------------------------------------------------------
; --- procedure to copy a file with version check, backup if needed

(procedure CopyCheck

   (set #iCopyCheck-Source "%s%s")
   (set #iCopyCheck-BackSource "%s%s")
   (set #iCopyCheck-BackDest "Backup:\%s")

   (if (= #MakeBackups "1")
    (
      (if (exists (#iCopyCheck-BackSource #CopyCheck-Dest #CopyCheck-SourceFile))
       (
         (copyfiles
            (prompt #CopyCheck-SourceFile)
            (help "-")
            (source (#iCopyCheck-BackSource #CopyCheck-Dest #CopyCheck-SourceFile))
            (dest  (#iCopyCheck-BackDest #UpdateVersion))
            (optional "nofail" "force")
         ) 
       )
      ) 
    )
   )

  (copylib
    (prompt #CopyCheck-SourceFile)
    (help #CopyCheck-Help)
    (source (#iCopyCheck-Source #CopyCheck-SourceDir #CopyCheck-SourceFile))
    (dest #CopyCheck-Dest)
    (optional "oknodelete" "force")
    (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 #CopyCheck-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 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 #CopyCheck-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"))

))

; ----------------------------------------------------------------------
; --- 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 "")
 (
  (abort #NoBBSAssign)
 )
)

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

(set #AssignBackup (getassign "Backup"))

(if (= #AssignBackup "")
 (
  (abort #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))
 )
)

; (set #CopyCheck-SourceDir "AmBoS/")
; (set #CopyCheck-SourceFile "AmBoS")
; (set #CopyCheck-Dest "temp:")
; (CopyCheck)


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

(complete 12)


(complete 99)

(message #Reboot)

(message #Support)