; $VER: Install Opus5 Italian (01.09.95)
; Script to install the Italian catalog translation for Opus 5.5.
; Adapted Dr Greg Perry's Norsk version
; by Francesco Dipietromaria

(set #install-msg
(cat "\n\nScript per l'installazione della\n"
     "localizzazione italiana di Directory Opus 5.5\n\n"
     "DOpus 5.5  1996 Jonathan Potter & GP Software\n"
     "Traduzione a cura di Francesco Dipietromaria\n\n"
     "Per qualsiasi suggerimento o correzione sulla traduzione\n"
     "potete mandare una e-mail al seguente indirizzo:\n"
     "dpm@sinet.it"
))

(message #install-msg)

;=============================================================================
; check if Directory Opus 5 is already installed

(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
    (abort "Dovete prima installare Directory Opus 5.5")
)

(set @default-dest "")

;=============================================================================
; install catalogs

(copyfiles
   (source "Catalogs")
   (dest "DOpus5:Catalogs")
   (pattern "#?")
)

;=============================================================================
; install Italian version of buttons banks

(copyfiles
   (source "Buttons")
   (dest "DOpus5:Buttons")
   (pattern "#?")
)

;=============================================================================
; make Italian lister menu the default

(if
   (askbool
      (prompt "La versione italiana del menu lister pop-up "
              " disponibile.\n\n"
              "Volete installarla e rinominare quella vecchia come\n"
              "'lister menu_old'?"
      )
      (help "Installa la versione italiana del lister pop-up standard ")
   )
   (
      (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
      (copyfiles
         (source "DOpus5:Buttons/lister menu_IT")
         (dest "DOpus5:Buttons")
         (newname "lister menu")
      )
   )
)
;=============================================================================
; make Italian user menu the default

(if
   (askbool
      (prompt "La versione italiana dell'user menu  disponibile.\n\n"
              "Volete installarla e rinominare quella vecchia come\n"
              "'user menu_old'."
      )
      (help "Installa la versione italiana dello user menu standard ")
   )
   (
      (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
      (copyfiles
         (source "DOpus5:Buttons/user menu_IT")
         (dest "DOpus5:Buttons")
         (newname "user menu")
      )
   )
)

(exit)
