;
; $VER: Installation de Timeconnect 31 mars 1996
;
;       Alain Gaspard  agaspard@mail.atlantic-line.fr
;       Nick IRC:      _AG_

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Chaînes anglaises par Jean-François PIK
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(if (= @language "english")
    (
    (set default_lang 0 )

    (set #bonjour "This script installs Timeconnect")

    (set #muiversion "Timeconnect needs MUI 3.1 to work\nPlease install MUI" )

    (set #askdir "\nSelect a drawer.\n A 'TC' directory will be created.\n" )

    (set #copie-TC "Copying TC and TC.info" )

    (set #copie-TCEDLog "Copying TCEDLog and TCEDLog.info" )

    (set #copie-TCPrefs "Copying TCPrefs and TCPrefs.info" )

    (set #choix-pref "Choose your preferences" )

    (set #copie-pref "Copying Timeconnect.prefs" )

    (set #path-cat "english" )

    (set #bye "Timeconnect is now installed in " )

    (set #lancement "Choose your start script" )

    (set #prefexiste "Timeconnect.prefs still exists, do you want overwrite?" )

    (set #oui "yes" )

    (set #non "no")

    (set #askfile-help "this line:\n RUN >NIL TC/TC \n will be added to your startscript.\n but the old one is save in .bak before.")

    ( set #TCaulancement "Do you want to launch TimeConnect at start of the connection ?" )

    ( set #TCdocumentation "Do you want to copy the doc ?" )

    ( set #scriptarexx "Do you want to copy the ARexx scripts ?" )

)    )


;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Chaînes françaises  par _AG_
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(if (= @language "français")
    (
    (set default_lang 8)

    (set #bonjour "Ce script installe Timeconnect")

    (set #muiversion "Timeconnect a besoin de MUI 3.1 pour fonctionner\n Veuillez installer MUI" )

    (set #askdir "Indiquez oû sera créé le répertoire TC.\n" )

    (set #askdir-help "Par défaut TC est installé dans le répertoire AmiTCP" )

    (set #copie-TC "Copie de TC et TC.info" )

    (set #copie-TCEDLog "Copie de TCEDLog et TCEDLog.info" )

    (set #copie-TCPrefs "Copie de TCPrefs et Copie de TCPrefs.info" )

    (set #choix-pref "Choisissez les préférences que vous voulez" )

    (set #copie-pref "Copie de Timeconnect.prefs" )

    (set #path-cat "français" )

    (set #TC-Cata  "/Catalogs/français/TC.catalog" )

    (set #TCEDLog-cata  "/Catalogs/français/TCEDLog.catalog" )

    (set #TCPrefs-cata  "/Catalogs/français/TCPrefs.catalog" )

    (set #bye "Timeconnect est installé dans " )

    (set #lancement "Choisissez votre script de lancement" )

    (set #prefexiste "Timeconnect.prefs existe, voulez-vous l'écrasez ?" )

    (set #oui "oui" )

    (set #non "non")

    (set #askfile-help "Cette ligne:\n RUN >NIL TC/TC \nva être ajoutée à votre script de lancement.\n Une sauvegarde .bak est auparavant faite.")

    ( set #TCaulancement "Voulez-vous démarrez TimeConnect au lancement de votre connection ?" )

    ( set #TCdocumentation "Voulez-vous copier la documentation ?" )

    ( set #scriptarexx "Voulez-vous copier les scripts ARexx ?" )
)    )
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Chaînes allemandes par "Björn Schotte"
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(if (= @language "deutsch")
    (
    (set default_lang 2)

    (set #bonjour "Hallo, dieses script installiert TimeConnect")

    (set #muiversion "Timeconnect braucht MUI 3.1 um zu functionnieren\n Bitte installiert MUI" )

    (set #askdir "Wählen Sie ein Verzeichnis aus.\nEin Verzeichnis namens 'TC' wird kreiert.\n" )

    (set #askdir-help "Per Default wird TC in AmiTCP: installiert." )

    (set #copie-TC "Kopiere TC und TC.info" )

    (set #copie-TCEDLog "Kopiere TCEDLog und TCEDLog.info" )

    (set #copie-TCPrefs "Kopiere TCPrefs und TCPrefs.info" )

    (set #choix-pref "Wählen Sie die Voreinstellungen aus,\ndie Sie wollen." )

    (set #copie-pref "Kopiere Timeconnect.prefs" )

    (set #path-cat "deutsch" )

    (set #TC-Cata  "/Catalogs/deutsch/TC.catalog" )

    (set #TCEDLog-cata  "/Catalogs/deutsch/TCEDLog.catalog" )

    (set #TCPrefs-cata  "/Catalogs/deutsch/TCPrefs.catalog" )

    (set #bye "Timeconnect wurde installiert in " )

    (set #lancement "Wählen Sie Ihr Start-Skript" )

    (set #prefexiste "Timeconnect.prefs existiert, wollen Sie sie überschreiben?" )

    (set #oui "ja" )

    (set #non "nein")

    (set #askfile-help "Diese Zeile:\n RUN >NIL TC/TC \nwird in Ihr Start-Skript eingefügt.\n Eine Sicherheitskopie wird erstellt.")

    ( set #TCaulancement "Möchten Sie TimeConnect beim Start Ihrer Verbindung starten?" )

    ( set #TCdocumentation "Möchten Sie die Dokumentation installieren ?" )

    ( set #scriptarexx "Möchten Sie die ARexx-Skripts installieren ?" )
)    )
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Chaînes italiennes par "Tradotto da Francesco Mancuso (Sicily) {11.06.96}"
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(if (= @language "italiano")
    (
    (set default_lang 16)

    (set #bonjour "Questo script installa Timeconnect")

    (set #muiversion "Timeconnect per funzionare necessita della MUI 3.1\nInstallate prima MUI" )

    (set #askdir "Indica dove sarà creato il cassetto TC.\n" )

    (set #askdir-help "Come Standard viene installato nel cassetto AmiTCP" )

    (set #copie-TC "Copio il programma TC e TC.info" )

    (set #copie-TCEDLog "Copio TCEDLog e TCEDLog.info" )

    (set #copie-TCPrefs "Copio TCPrefs e TCPrefs.info" )

    (set #choix-pref "Scegliete le preferenze" )

    (set #copie-pref "Copio la Timeconnect.prefs" )

    (set #path-cat "italiano" )

    (set #TC-Cata  "/Catalogs/italiano/TC.catalog" )

    (set #TCEDLog-cata  "/Catalogs/italiano/TCEDLog.catalog" )

    (set #TCPrefs-cata  "/Catalogs/italiano/TCPrefs.catalog" )

    (set #bye "Timeconnect é installato nel " )

    (set #lancement "Scegliete il vostro script d'avvio" )

    (set #prefexiste "Timeconnect.prefs esiste, volete sovrascriverlo ?" )

    (set #oui "Si" )

    (set #non "No")

    (set #askfile-help "Questa linea:\n RUN >NIL TC/TC \nsarà aggiunta nello script d'avvio.\n ma prima sarà fatta una copia .backup del precedente script.")

    ( set #TCaulancement "Volete avviare TimeConnect allo start della connessione ?" )

    ( set #TCdocumentation "Volete copiare la documentazione ?" )

    ( set #scriptarexx "Volete copiare l'ARexx scripts ?" )
)    )

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Chaînes dansk by "Henrik Jensen EMAIL:hkjensen@@mail.teledanmark.dk"
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(if (= @language "dansk")
    (
    (set default_lang 32 )

    (set #bonjour "Denne script installerer Timeconnect")

    (set #muiversion "Timeconnect behøver MUI 3.1 for at virke\nInstaller venligst MUI" )

    (set #askdir "\nVælg en skuffe.\n Et 'TC' skuffe vil blive dannet.\n" )

    (set #copie-TC "Kopiere TC and TC.info" )

    (set #copie-TCEDLog "Kopierer TCEDLog and TCEDLog.info" )

    (set #copie-TCPrefs "Kopierer TCPrefs and TCPrefs.info" )

    (set #choix-pref "Vælg dine præferenser" )

    (set #copie-pref "Kopierer Timeconnect.prefs" )

    (set #path-cat "dansk" )

    (set #TC-Cata  "/Catalogs/dansk/TC.catalog" )

    (set #TCEDLog-cata  "/Catalogs/dansk/TCEDLog.catalog" )

    (set #TCPrefs-cata  "/Catalogs/dansk/TCPrefs.catalog" )

    (set #bye "Timeconnect er installeret i " )

    (set #lancement "Vælg din start script" )

    (set #prefexiste "Timeconnect.prefs forefindes, skal den overskrives?" )

    (set #oui "ja" )

    (set #non "nej")

    (set #askfile-help "Denne linie:\n RUN >NIL TC/TC \n vil blive tilføjet til din start script.\n men den gamle er for inden gemt i in .bak.")

    ( set #TCaulancement "Vil du starte TimeConnect ved begyndelsen af forbindelsen ?" )

    ( set #TCdocumentation "Vil du kopiere dokumentationen ?" )

    ( set #scriptarexx "Vil du kopiere ARexx scripts ?" )

)    )

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Installation
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(message #bonjour)

(welcome)

(if (< (exists "mui:") 2)  (abort #muiversion) )
(if (exists "mui:mui")
 (
  (set vernum (getversion "mui:mui") )
  (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )

  (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )

) )

(if (< ver 11)   (abort #muiversion) )
 
; Répertoire de destination
; *************************

;( set Path.source (pathonly @icon ) )

(set  Path.dest
        ( askdir
                ( prompt #askdir )
                ( help #askdir-help )
                ( default "AmiTCP:" )
        )
)
 ( set  Path.dest ( tackon Path.dest "TC" ) ) ( makedir Path.dest )

; Copie de Timeconnect et Timeconnect.info
; ****************************************

( copyfiles
    ( prompt #Copie-TC )
    ( source "/TC" )
    ( dest Path.dest )
)

( copyfiles
    ( prompt #copie-TC )
    ( source "/TC.info" )
    (dest Path.dest )
)
; Copie de TCEDLog et TCEDLog.info
; ********************************

(copyfiles
    ( prompt #copie-TCEDLog )
    ( source "/TCEDLog" )
    ( dest Path.dest )
)

( copyfiles
    ( prompt #copie-TCEDLog )
    ( source "/TCEDLog.info" )
    ( dest Path.dest )
)
; Copie de TCPrefs et TCPrefs.info
; ********************************

( copyfiles
    ( prompt #copie-TCPrefs )
    ( source "/TCPrefs" )
    ( dest Path.dest )
)

( copyfiles
    ( prompt #copie-TCPrefs )
    ( source "/TCPrefs.info" )
    ( dest Path.dest )
)
; Copie de Timeconnect.prefs
; **************************
( if ( exists "ENVARC:timeconnect.prefs" )
     (
     ( set ecrase
     ( askchoice
       ( prompt #prefexiste )
       ( choices #oui #non )
       ( help ""  )
      ) ) ) )

( if ( = ecrase 0 )
    (

( if ( = default_lang 8 )
     (
     ( set preference
     ( askchoice
     ( prompt #choix-pref )
     ( choices "Locale" "<25Km" )
     ( help "") ) )
 
     (if (= preference 0) ( set #preference "/Prefs/France/timeconnect.prefs") )
     (if (= preference 1) ( set #preference "/Prefs/France/timeconnect_<25km.prefs") )
     ) )

( if ( = default_lang 16 )
     ( set #preference "/Prefs/Italia/timeconnect.prefs") )

(if  ( = default_lang 2 )
     (
     ( set preference
     ( askchoice
     ( prompt #choix-pref )
     ( choices "DeutschlandCity" "DeutschlandFern" "DeutschlandRegion200" "DeutschlandRegion50")
     ( help "") ) )
 
     (if (= preference 0) ( set #preference "/Prefs/Deutschland/DeutschlandCity.prefs") )
     (if (= preference 1) ( set #preference "/Prefs/Deutschland/DeutschlandFern.prefs") )
     (if (= preference 2) ( set #preference "/Prefs/Deutschland/DeutschlandRegion200.prefs") )
     (if (= preference 3) ( set #preference "/Prefs/Deutschland/DeutschlandRegion50.prefs") )
     ) )
(if  ( = default_lang 32 )
     (
     ( set preference
     ( askchoice
     ( prompt #choix-pref )
     ( choices "Lokaltakst" "Regiontakst" "Landstakst")
     ( help "") ) )
 
     (if (= preference 0) ( set #preference "/Prefs/Danmark/Lokaltakst.prefs") )
     (if (= preference 1) ( set #preference "/Prefs/Danmark/Regiontakst.prefs") )
     (if (= preference 2) ( set #preference "/Prefs/Danmark/Landstakst.prefs") )
     ) )

(if ( > default_lang 0 )
    (
   
    ( copyfiles
       ( prompt #copie-pref )
       ( source  #preference  )
       ( dest "ENVARC:")
       (newname "Timeconnect.prefs")
    )
    ( copyfiles
       ( prompt #copie-pref )
       ( source  #preference  )
       ( dest "ENV:")
       ( newname "Timeconnect.prefs")
    ) ) )
    ) )
; Installation des catalogues
; ***************************
(if ( > default_lang 0 )
    (
    ( set  Path-cat ( tackon Path.dest "Catalogs" ) ) ( makedir Path-cat )
    ( set  Path-cat ( tackon Path-cat #path-cat ) ) ( makedir Path-cat )
        ( copyfiles
            (prompt "")
            (source #TC-Cata )
            (dest  Path-cat )
            (newname "TC.catalog")
        )
        ( copyfiles
            (prompt "")
            (source #TCEDLog-cata )
            (dest Path-cat )
            (newname "TCEDLog.catalog")
        )
        ( copyfiles
            (prompt "")
            (source #TCPrefs-cata )
            (dest Path-cat )
            (newname "TCPrefs.catalog")
        )
) )

; Installation de la documentation
; ********************************

    ( set installdoc
     ( askchoice
       ( prompt #TCdocumentation )
       ( choices #oui #non )
       ( help ""  ) ) )

( if ( = installdoc 0 )
    (
     (
       ( set #documentation "/Docs/english/TimeConnect.guide")
       ( set #docinfo "/Docs/english/TimeConnect.guide.info")
       ( set  Path-doc ( tackon Path.dest "Docs" ) ) ( makedir Path-doc )
     )
( if ( = default_lang 16 )
     (

     ( set #documentation "/Docs/italiano/TimeConnect.guide")
     ( set #docinfo "/Docs/italiano/TimeConnect.guide.info")
     ) )

     (
        ( copyfiles
            (prompt "TimeConnect.guide")
            (source #documentation )
            (dest Path-doc )
            (newname "TimeConnect.guide")
        )
        ( copyfiles
            (prompt "TimeConnect.guide.info")
            (source #docinfo )
            (dest Path-doc )
            (newname "TimeConnect.guide.info")
        )
     )
( if ( = default_lang 16 )
     (

     ( set #docinfo2 "/Docs/italiano/images.info")
     ( set #image1 "/Docs/italiano/images/configurazione" )
     ( set #image2 "/Docs/italiano/images/EditaPrefs" )
     ( set #image3 "/Docs/italiano/images/giorno" )
     ( set #image4 "/Docs/italiano/images/selezionaora" )
     ( set #image5 "/Docs/italiano/images/TCEDLog" )
     ( set #image6 "/Docs/italiano/images/TM" )
     ( set  Path-image ( tackon Path.dest "Docs/images" ) ) ( makedir Path-image )

        ( copyfiles
            (prompt "images.info")
            (source #docinfo2 )
            (dest Path-doc )
            (newname "images.info")
        )
        ( copyfiles
            (prompt "images/configurazione")
            (source #image1 )
            (dest Path-image )
            (newname "configurazione")
        )
        ( copyfiles
            (prompt "images/EditaPrefs")
            (source #image2 )
            (dest Path-image )
            (newname "EditaPrefs")
        )
        ( copyfiles
            (prompt "images/giorno")
            (source #image3 )
            (dest Path-image )
            (newname "giorno")
        )
        ( copyfiles
            (prompt "images/selezionaora")
            (source #image4 )
            (dest Path-image )
            (newname "selezionaora")
        )
        ( copyfiles
            (prompt "images/TCEDLog")
            (source #image5 )
            (dest Path-image )
            (newname "TCEDLog")
        )
        ( copyfiles
            (prompt "images/TM")
            (source #image6 )
            (dest Path-image )
            (newname "TM")
        )  
     ) )

) )

; Installation des scripts ARexx
; ******************************

( if ( exists "REXX:" )
    (
    ( set installearexx
    ( askchoice
       ( prompt #scriptarexx )
       ( choices #oui #non )
       ( help ""  ) ) )

( if ( = installearexx 0 )
     (
     ( set #launch "/Rexx/launchTC.mrx")
     ( set #start "/Rexx/start.mrx")
     ( set #stop "/Rexx/stop.mrx")
     ( makedir "REXX:TC" )
     ( set Path-REXX "REXX:TC")
     ( copyfiles
            (prompt "")
            (source #launch )
            (dest Path-REXX )
            (newname "launchTC.mrx")
     )
     ( copyfiles
            (prompt "")
            (source #start )
            (dest Path-REXX )
            (newname "start.mrx")
     )
     ( copyfiles
            (prompt "")
            (source #stop )
            (dest Path-REXX )
            (newname "stop.mrx")
     )
     )  )  )  )

; Modification user-startnet
; **************************

    ( set ecrase
     ( askchoice
       ( prompt #TCaulancement )
       ( choices #oui #non )
       ( help #askfile-help  ) ) )

( if ( = ecrase 0 )
    (
( set lancementTC
        ( askfile
                ( prompt #lancement )
                ( help #askfile-help )
                ( default "AmiTCP:db/user-startnet" )
        )
)

( set ARexxRunString ( cat "sys:rexxc/rx EditTextFile.rexx " lancementTC " TC RUN^>NIL:^"Path.dest"/TC" ))
        (run
                ( ARexxRunString )
                ( prompt "" )
                ( help #askfile-help )
        )
        ( protect lancementTC "+s +e")
( tooltype
                ( dest ( cat Path.dest "/TC") )
                ( settooltype "START" "YES")
        )
;
;( set stopnet "AmiTCP:bin/stopnet" )
;( set ARexxStopString ( cat "sys:rexxc/rx EditTextFile.rexx " stopnet "TC rx^REXX:TC/stop.mrx" ))
;        (run
;                ( ARexxStopString )
;                ( prompt stopnet )
;                ( help #askfile-help )
;        )
;        ( protect stopnet "+s +e")
) )
( set @default-dest "")
( exit ( cat #bye Path.dest ) )
;****************************************************************************