home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / aa3_install / install < prev    next >
Text File  |  1997-01-29  |  14KB  |  510 lines

  1. ; **************************************************************************
  2. ; *****                                                                *****
  3. ; *****                   I N S T A L L - S C R I P T                  *****
  4. ; *****                                                                *****    
  5. ; **************************************************************************
  6. ; $Id: Install,v 40.17 1995/09/13 21:19:40 schneida Exp schneida $
  7. ; **************************************************************************
  8.  
  9. (transcript "Installing AddressAssist release 3...")
  10.  
  11. ; **************************************************************************
  12. ; **************************************************************************
  13. ; **************************************************************************
  14.  
  15. (set @default-dest "ram:")
  16.  
  17. (if ( = "deutsch" @language )
  18.     (
  19.     (set @defaultLang    1)
  20.     (set @readme_txt      "liesmich.txt" )
  21.     (set @readme_txt_info      "LiesMich.txt.info" )
  22.     (set @read_readme      "sys:utilities/more liesmich.txt" )
  23.     (set @PrefsDrawer    "Deutsch/Prefs" )
  24.     (set @RexxDrawer    "Deutsch/Rexx" )
  25.     (set @selectDest     "\nWählen Sie den Ort für die 'AddressAssist' Schublade:\n" )
  26.     (set @selectDestHelp     "Das Install-Programm wird eine Schublade namens 'AddressAssist' am ausgewählten Ort erstellen und alle notwendigen Dateien dahin installieren." )
  27.     (set @msgInstDest1     "Das Programm '" )
  28.     (set @msgInstDest2      "' wird nach\n\n'" )
  29.     (set @msgInstDest3     "' installiert.\n\nBitte folgen Sie den Anleitungen für eine benutzerdefinerte und korrekte Installation." )
  30.     (set @installPrintAss     "\nSeit Version 3 verwendet AddressAssist (AA) eine externe Library für das Drucken.\nSoll die\n\n***'printAssist.library'***\n\ninstalliert ? (Dringend empfohlen!)\n" )
  31.     (set @selectIcons     "\nEs sind 2 Arten von Piktogrammen verfügbar.\n\nBitte wählen Sie aus, welche zu installieren sind.\n" )
  32.     (set @selectIconsHelp     "Wählen Sie den gewünschten Piktogrammtyp aus. Fall Sie MagicWB nicht kennen, installieren Sie einfach die Standardpiktogramme," )
  33.     (set @choiceIcon1     "Standard: 4 farbige Piktogramme" )
  34.     (set @choiceIcon2    "MagicWB: 8 farbige Piktogramme" )
  35.     (set @installTextFld     "\nAddressAssist (AA) unterstützt mehrzeilige Textfelder für Bemerkungen. Um diese Felder benutzen zu können, benötigt AA das bereits installierte \n\n*** 'textfield.gadget' (© 1996 Mark Thomas) ***\n\nMöchten Sie Ihre alte Version durch eine Neuere ersetzen ???\n" )
  36.     (set @selectLang     "\nDie eingebaute Sprache für die Benutzeroberfläche (GUI) und die Ballon-Hilfe ist English. Zusätzlich sind Übersetzungen in verschiedenen Sprachen erhältlich.\n\nBitte wählen Sie die zu installierenden Sprachen aus.\n" )
  37.     (set @selectLangHelp     "Wählen Sie die gewünschte Sprache aus\nAchtung: Die locale.library V38 bzw. WB2.1 ist Voraussetzung für die Verwendung der Übersetzungen." )
  38.     (set @instDeutsch    "Installiere deutsche Übersetzung..." )
  39.     (set @instNorsk        "Installiere norwegische Übersetzung..." )
  40.     (set @selectManual     "\nZur Zeit ist die Dokumentation für AA nur in Englisch verfügbar; die On-line verfügbare Ballon-Hilfe ist den anderen Sprachen vorhanden und sehr ausführlich gehalten.\n" )
  41.     (set @selectManualHelp     "Wählen Sie die gewünschte Sprache aus." )
  42.     (set @instEnglishDoc    "Installiere die englische Dokumentation..." )
  43.     (set @instARexxEx    "\nSeit Version 3 besitzt AA eine ARexx-Schnittstelle mit zahlreichen datenbankspezifischen Funktionen.\n\nMöchten Sie einige Beispiel-Skripte installieren ???\n" )
  44.     (set @instExampleDB     "\nSoll eine Beispieldatenbank installiert werden???\n" )
  45.     (set @instPrefsEx     "\nSollen die AA spezifischen Voreinstellungsdateien sowie Beispieleinstellungen für die Druckausgabe und den ASCII Datenaustausch installiert werden???\n\n(Bei der ersten installation empfohlen.)\n" )
  46.     (set @instPrefsExHelp     "Wahlen sie die Dateitypen aus." )
  47.     (set @choicePrefs1    "AddressAssist Programmeinstellungen." )
  48.     (set @choicePrefs2    "MUI Voreinstellungen für AA" )
  49.     (set @choicePrefs3    "Beispiele Setup Drucker" )
  50.     (set @choicePrefs4    "Beispiele Setup ASCII Datenaustausch" )
  51.     (set @instPrefs1     "Installiere AddressAssist prefs..." )
  52.     (set @instPrefs2     "Installiere MUI prefs..." )
  53.     (set @instPrefs3     "Installiere Printer prefs..." )
  54.     (set @instPrefs4     "Installiere ASCII Transfer prefs..." )
  55.     (set @instReadMe     "Installiere LiesMich Datei" )
  56.     )
  57.     (
  58.     (set @defaultLang    0)
  59.     (set @readme_txt      "Readme.txt" )
  60.     (set @readme_txt_info      "ReadMe.txt.info" )
  61.     (set @read_readme      "sys:utilities/more Readme.txt" )
  62.     (set @PrefsDrawer    "Prefs" )
  63.     (set @RexxDrawer    "Rexx" )
  64.  
  65.     (set @selectDest     "Select destination path for 'AddressAssist' drawer:" )
  66.     (set @selectDestHelp     "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there." )
  67.     (set @msgInstDest1     "Installing '" )
  68.     (set @msgInstDest2      "' to\n\n'" )
  69.     (set @msgInstDest3     "'\n\nPlease follow the instructions below for a correct and\nuser defined installation of AddressAssist." )
  70.     (set @installPrintAss     "Since v3 AddressAssist (AA) uses an external library for printing.\nIf you like to print with AA, you should install \n***'printAssist.library'***\n\nWould you like to install / update ???" )
  71.     (set @selectIcons     "There are two types of icon sets available for use with AddressAssist.\n\nWhich type of icons do you like to have installed ???" )
  72.     (set @selectIconsHelp     "Select the icon type you like to work with. If you dont't know MagicWB icons, just, install the standard icons," )
  73.     (set @choiceIcon1     "Standard Workbench 4 color icons" )
  74.     (set @choiceIcon2    "Enhanced MagicWB 8 color icons" )
  75.     (set @installTextFld     "AddressAssist (AA) sports multi-line text fields for remarks. To use these fields, AA needs the already installed \n\n*** 'textfield.gadget' (© 1995 Mark Thomas) ***\n\nWould you like to update ???" )
  76.     (set @selectLang     "The standard language of AddressAssist's graphical user interface (GUI) is english. In addition there are translations available for several other languages.\n\nAmong the following languages, which do you want to install ?" )
  77.     (set @selectLangHelp     "Select the desired for translation files for AddressAssist.\nNote: locale.library V38 (WB2.1+) is needed for localisation to work." )
  78.     (set @instDeutsch    "Installing german catalog..." )
  79.     (set @instNorsk        "Installing norsk catalog..." )
  80.     (set @selectManual     "At the moment, full documentation of AddressAssist 3 (AA) is available only in english.\nHowever, as AA supports MUI's bubble help feature, there is extensive help available online in several languages." )
  81.     (set @selectManualHelp     "Select the language of the documentation you like to install.\nNote: only english documentation is available for now." )
  82.     (set @instEnglishDoc    "Installing english documentation..." )
  83.     (set @instARexxEx    "Since release 3, AA sports an ARexx-Port with lots of database specific functions. Would you like to install some example-scripts" )
  84.     (set @instExampleDB     "Would you like copy an example database file ???" )
  85.     (set @instPrefsEx     "Copy AA specific Preferences files, including examples setups for Printing and ASCII Transfer ???\n\n(Recommended, if this is the first installation of AA)" )
  86.     (set @instPrefsExHelp     "Select the desired files." )
  87.     (set @choicePrefs1    "AddressAssist preferences" )
  88.     (set @choicePrefs2    "MUI preferences for AA" )
  89.     (set @choicePrefs3    "Example print setups" )
  90.     (set @choicePrefs4    "Example ASCII Transfer setup" )
  91.     (set @instPrefs1     "Installing AddressAssist prefs..." )
  92.     (set @instPrefs2     "Installing MUI prefs..." )
  93.     (set @instPrefs3     "Installing Printer prefs..." )
  94.     (set @instPrefs4     "Installing ASCII Transfer prefs..." )
  95.     (set @instReadMe     "Installing Readme files" )
  96.     )
  97. )
  98.  
  99.  
  100. (complete 10)
  101.  
  102. (set @default-dest
  103.     (askdir (prompt @selectDest )
  104.     (help @selectDestHelp )
  105.     (default @default-dest)
  106.     )
  107. )
  108.  
  109. (set @default-dest-root @default-dest )
  110. (set @default-dest 
  111.     ( tackon @default-dest "AddressAssist" )
  112. )
  113.  
  114. (message @msgInstDest1 @app-name @msgInstDest2 @default-dest @msgInstDest3 )
  115.  
  116. (makedir @default-dest
  117.     (safe)
  118. )
  119.  
  120. (set progname "AddressAssist")
  121.  
  122. (complete 20)
  123.  
  124. (copyfiles 
  125.     (source progname )
  126.     (dest @default-dest)
  127.     (newname "AddressAssist")
  128. )
  129.  
  130.  
  131. (copylib
  132.     (prompt @installPrintAss )
  133.     (help @askbool-help)
  134.     (source "libs/printAssist.library" )
  135.     (dest (tackon @default-dest "libs" ))
  136.         (optional "oknodelete")
  137.         (optional "askuser")
  138.     (confirm)
  139. )
  140.  
  141.  
  142. (set icontype
  143.     (askchoice
  144.     (prompt @selectIcons )
  145.     (choices @choiceIcon1 @choiceIcon2 )
  146.     (help @selectIconsHelp )
  147.     (default 0)
  148.     )
  149. )    
  150.  
  151. (if ( = 0 icontype )
  152.     (
  153.         (set drawer_icon "icons/Standard.info")
  154.  
  155.         (set app_icon "icons/Standard/AddressAssist.info")
  156.         (set data_icon "icons/Standard/AddressData.info")
  157.         (set manual_icon "icons/Standard/Manual.info")
  158.         (set rexx_icon "icons/Standard/Rexx.info")
  159.         (set readme_icon "icons/Standard/ReadMe.txt.info")
  160.     )
  161.     (     
  162.         (set drawer_icon "icons/MWB.info")
  163.  
  164.         (set app_icon "icons/MWB/AddressAssist.info")
  165.         (set data_icon "icons/MWB/AddressData.info")
  166.         (set manual_icon "icons/MWB/Manual.info")
  167.         (set rexx_icon "icons/MWB/Rexx.info")
  168.         (set readme_icon "icons/MWB/ReadMe.txt.info")
  169.     )
  170. )
  171.  
  172. (copyfiles 
  173.     (source drawer_icon )
  174.     (dest @default-dest-root)
  175.     (newname "AddressAssist.info")
  176. )
  177.  
  178. (copyfiles 
  179.     (source app_icon )
  180.     (dest @default-dest)
  181.     (newname "AddressAssist.info")
  182. )
  183.  
  184. (copyfiles 
  185.     (source data_icon )
  186.     (dest @default-dest)
  187.     (newname "AddressData.info")
  188. )
  189.  
  190. (copyfiles 
  191.     (source manual_icon )
  192.     (dest @default-dest)
  193.     (newname "Manual.info")
  194. )
  195.  
  196. (copyfiles 
  197.     (source rexx_icon )
  198.     (dest @default-dest)
  199.     (newname "Rexx.info")
  200. )
  201.  
  202. (copyfiles 
  203.     (source readme_icon )
  204.     (dest @default-dest)
  205.     (newname @readme_txt_info )
  206. )
  207.  
  208.  
  209. (if (NOT (exists "sys:classes/gadgets/textfield.gadget" ) ) 
  210. (
  211.     (if    (askbool 
  212.         (prompt @installTextFld )
  213.         (help @askbool-help)
  214.         )
  215.         (
  216.         (copyfiles
  217.             (source "gadgets" )
  218.             (dest (tackon @default-dest "gadgets" ))
  219.             (pattern "#?" )
  220.             )
  221.         )
  222.     )
  223. )
  224. (copylib
  225.     (prompt @installTextFld )
  226.     (help @askbool-help)
  227.     (source "gadgets/textfield.gadget" )
  228.     (dest "sys:classes/gadgets" )
  229.         (optional "oknodelete")
  230.         (optional "askuser")
  231.     (confirm)
  232. )
  233. )
  234.  
  235.  
  236. ; **************************************************************************
  237. ; **************************************************************************
  238. ; **************************************************************************
  239.  
  240.  
  241. (complete 50)
  242.  
  243.  
  244. (set catalogs
  245.     (askoptions
  246.         (prompt @selectLang )
  247.         (help    @selectLangHelp )
  248.         (choices    "Deutsch"
  249.                 "Norsk"
  250.         )
  251.         (default @defaultLang )
  252.     )
  253. )
  254.  
  255. (set catalogpath (tackon @default-dest "Catalogs"))
  256.  
  257. (if (IN catalogs 0)
  258.     (
  259.     (working @instDeutsch )
  260.  
  261.     (if (NOT (exists (catalogpath)))
  262.         (
  263.         (makedir catalogpath)
  264.         )
  265.     )
  266.  
  267.     (copyfiles 
  268.         (source "catalogs/deutsch" )
  269.         (dest (tackon @default-dest "catalogs/deutsch" ))
  270.         (pattern "#?")
  271.         (nogauge)
  272.     )
  273.     )
  274. )
  275.  
  276. ;(if (IN catalogs 1)
  277. ;    (
  278. ;    (working "Installing french catalog" )
  279. ;
  280. ;    (if (NOT (exists (catalogpath)))
  281. ;        (
  282. ;        (makedir catalogpath)
  283. ;        )
  284. ;    )
  285. ;    (copyfiles 
  286. ;        (source "catalogs/français" )
  287. ;        (dest (tackon @default-dest "catalogs/français" ))
  288. ;        (pattern "#?")
  289. ;        (nogauge)
  290. ;    )
  291. ;    )
  292. ;)
  293. ;
  294. ;
  295. ;(if (IN catalogs 2)
  296. ;    (
  297. ;    (working @instNorsk )
  298. ;
  299. ;    (if (NOT (exists (catalogpath)))
  300. ;        (
  301. ;        (makedir catalogpath)
  302. ;        )
  303. ;    )
  304. ;    (copyfiles 
  305. ;        (source "catalogs/italiano" )
  306. ;        (dest (tackon @default-dest "catalogs/italiano" ))
  307. ;        (pattern "#?")
  308. ;        (nogauge)
  309. ;    )
  310. ;    )
  311. ;)
  312.  
  313. (if (IN catalogs 1)
  314.     (
  315.     (working @instNorsk )
  316.  
  317.     (if (NOT (exists (catalogpath)))
  318.         (
  319.         (makedir catalogpath)
  320.         )
  321.     )
  322.     (copyfiles 
  323.         (source "catalogs/norsk" )
  324.         (dest (tackon @default-dest "catalogs/norsk" ))
  325.         (pattern "#?")
  326.         (nogauge)
  327.     )
  328.     )
  329. )
  330.  
  331.  
  332. (set document
  333.     (askoptions
  334.         (prompt @selectManual )
  335.         (help    @selectManualHelp )
  336.         (choices    "English"
  337.         )
  338.         (default 1)
  339.     )
  340. )
  341.  
  342. (if (IN document 0)
  343.     (
  344.     (working @instEnglishDoc )
  345.  
  346.     (copyfiles 
  347.     (source "Manual/" )
  348.         (dest (tackon @default-dest "Manual" ))
  349.         (pattern "#?")
  350.         (infos)
  351.     )
  352.     )
  353. )
  354.  
  355. ;(if (IN document 1)
  356. ;    (
  357. ;    (working "Installing german documentation..." )
  358. ;
  359. ;    (copyfiles 
  360. ;        (source "Manual/Deutsch" )
  361. ;        (dest (tackon @default-dest "Doc_Deutsch" ))
  362. ;        (pattern "#?")
  363. ;        (infos)
  364. ;    )
  365. ;    )
  366. ;)
  367. ;
  368. ;
  369. ;(if (IN document 2)
  370. ;    (
  371. ;    (working "Installing french documentation..." )
  372. ;
  373. ;    (copyfiles 
  374. ;        (source "Manual/Français" )
  375. ;        (dest (tackon @default-dest "Doc_Français" ))
  376. ;        (pattern "#?")
  377. ;        (infos)
  378. ;    )
  379. ;    )
  380. ;)
  381. ;
  382.  
  383.  
  384. (complete 70)
  385.  
  386. (if     (askbool 
  387.         (prompt @instARexxEx )
  388.         (help @askbool-help)
  389.     )
  390.     (
  391.     (copyfiles (
  392.             (source @RexxDrawer )
  393.             (dest (tackon @default-dest "Rexx" ))
  394.             (pattern "#?" )
  395.         )
  396.     )
  397.     )
  398. )
  399.  
  400. (complete 80)
  401.  
  402. (if     (askbool 
  403.         (prompt @instExampleDB )
  404.         (help @askbool-help)
  405.     )
  406.     (
  407.     (copyfiles (
  408.             (source "AddressData" )
  409.             (dest @default-dest )
  410.             (newname "AddressData" )
  411.         )
  412.     )
  413.     (copyfiles (
  414.             (source data_icon )
  415.             (dest @default-dest )
  416.             (newname "AddressData.info" )
  417.         )
  418.     )
  419.     )
  420. )
  421.  
  422. (complete 85)
  423.  
  424. (set prefsupdate
  425.     (askoptions
  426.         (prompt @instPrefsEx )
  427.         (help    @instPrefsExHelp )
  428.         (choices @choicePrefs1 @choicePrefs2 @choicePrefs3 @choicePrefs4 )
  429.         (default 15)
  430.     )
  431. )
  432.  
  433. (if (IN prefsupdate 0)
  434.     (
  435.     (working @instPrefs1 )
  436.     (copyfiles
  437.         (source data_icon )
  438.         (dest "envarc:AddressAssist" )
  439.         (newname "def_AddressAssist.info" )
  440.     )
  441.     (copyfiles
  442.         (source "Prefs/AddressAssist.prefs" )
  443.         (dest (tackon @default-dest "Prefs" ))
  444.         (newname "AddressAssist.prefs" )
  445.     )
  446.     (copyfiles
  447.         (source "Prefs/ARexx.scripts" )
  448.         (dest (tackon @default-dest "Prefs" ))
  449.         (newname "ARexx.scripts" )
  450.     )
  451.     )
  452. )
  453.  
  454.  
  455. (if (IN prefsupdate 1)
  456.     (
  457.     (working @instPrefs2 )
  458.     (copyfiles
  459.         (source "MUI" )
  460.         (dest "env:mui" )
  461.         (pattern "#?" )
  462.     )
  463.  
  464.     (copyfiles
  465.         (source "MUI" )
  466.         (dest "envarc:mui" )
  467.         (pattern "#?" )
  468.     )
  469.     )
  470. )
  471.  
  472. (if (IN prefsupdate 2)
  473.     (
  474.     (working @instPrefs3 )
  475.     (copyfiles
  476.         (source @PrefsDrawer )
  477.         (dest (tackon @default-dest "Prefs" ))
  478.         (pattern "#?.ppref" )
  479.     )
  480.     )
  481. )
  482.  
  483.  
  484. (if (IN prefsupdate 3)
  485.     (
  486.     (working @instPrefs4 )
  487.     (copyfiles
  488.         (source @PrefsDrawer )
  489.         (dest (tackon @default-dest "Prefs" ))
  490.         (pattern "#?.xpref" )
  491.     )
  492.     )
  493. )
  494.  
  495.  
  496. (complete 90)
  497. (working @instReadMe )
  498. (
  499.     copyfiles( 
  500.         (source @readme_txt )
  501.         (dest @default-dest )
  502.         (newname @readme_txt )
  503.         )
  504. )
  505. (run
  506.     ( @read_readme )
  507. )
  508.  
  509. (complete 100)
  510.