home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / utilities / text / webmaker / install / install_webmaker < prev    next >
Encoding:
Text File  |  1996-04-01  |  18.9 KB  |  569 lines
  1. ;;;;
  2. ;;;;
  3. ;;;; Install_WM - WebMaker installation script for Installer
  4. ;;;;
  5. ;;;; Copyright © 1996 Pascal Rullier 
  6. ;;;;                  All Right reserved.
  7. ;;;;                  email prullier@mail.atlantic-line.fr
  8. ;;;; $Id: Install_WM,v 1.1 1996/03/30 14:17:19 rullier Exp $
  9. ;;;;
  10. ;;;; This script has been tested with Installer 1.24:
  11. ;;;;
  12. ;;;;     Installer and Installer project icon
  13. ;;;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  14. ;;;;     Reproduced and distributed under license from Commodore.
  15. ;;;;
  16. ;;;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  17. ;;;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  18. ;;;;     OR RESPONSIBILITY IS ASSUMED.
  19. ;;;;
  20. ;;;; Use following Icon tooltypes / Command line options:
  21. ;;;; APPNAME=WebMaker
  22. ;;;; MINUSER=AVERAGE
  23. ;;;;
  24. (complete 0)
  25.  
  26. (set locale 0)
  27.  
  28. (set #welcome           (cat "Welcome to the " @app-name " 1.1 installation\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  29. (set #bad-MUI         (cat "You need at least MUI3.1 to use WebMaker 1.1."))
  30. (set #dir-choice     (cat "Select the directory where the WebMaker Directory will be created." ))
  31. (set #copy         (cat "Copying WebMaker"))
  32. (set #copy-extras       (cat "Copying Extras"))
  33. (set #cpu        (cat "Choose your cpu"))
  34.  
  35. (set #lib-copy          (cat "Copying TextField Gadget"))
  36.  
  37. (set #doc-file          (cat "/Documentations/WebMaker-English.guide"))
  38. (set #doc-copy         (cat "Copying Documentation"))
  39. (set #doc-online        (cat "/Documentations/WebMaker-English-online.guide"))
  40.  
  41. (set #doc-history       (cat "/history"))
  42.  
  43. (set #installcatalog    (cat "\n\nDo you want to install the english catalog ?"))
  44. (set #copycatalog       (cat "Copying English catalog"))
  45.  
  46. (set #catalogname       (cat "/Catalogs/English/WebMaker.catalog"))
  47. (set #destname          (cat "Catalogs/English"))
  48.  
  49.  
  50. (set #tooltype-prompt   (cat "Setting tooltypes"))
  51. (set #tooltype-local    (cat "Where are your HTML documents ?"))
  52. (set #tooltype-author   (cat "Enter your name"))
  53. (set #help-author       (cat "Your name is required to have informations about creating people"))
  54. (set #tooltype-email    (cat "Enter your email"))
  55. (set #help-email        (cat "Your email is required to sign your documents"))
  56.  
  57. (set #tooltype-isobuffer (cat "Do you want to work\nwith an ISO-Latin buffer???"))
  58.  
  59. (set #tooltype-entities (cat "Do you want to save\nyour documents with entities ???"))
  60. (set #tooltype-entities-help (cat "Some servers don't support ISO-Latin syntax, entities are used instead."))
  61.  
  62. ;===========================================================================
  63. ; French strings
  64.  
  65. (if (= @language "français")
  66. (
  67. (set locale 1)
  68. ;;
  69. ;; Made by author
  70. ;;
  71. (set #welcome           (cat "\n\nBienvenue dans l'installation de\n" @app-name " 1.1\n\nShareWare\nmais 100% fonctionnel\nEnvoyez-moi votre contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  72. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI3.1 pour utiliser WebMaker 1.1." ))
  73. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer le répertoire WebMaker." ))
  74. (set #copy         (cat "Copie des éléments indispensables pour WebMaker"))
  75. (set #copy-extras       (cat "Copie des extras"))
  76. (set #cpu               (cat "Choisissez l'exécutable qui correspond le mieux à votre machine"))
  77. (set #lib-copy          (cat "Installation du gadget TextField"))
  78.  
  79. (set #doc-file          (cat "/Documentations/WebMaker-Français.guide"))
  80. (set #doc-copy         (cat "Copie de la Documentation"))
  81. (set #doc-online        (cat "/Documentations/WebMaker-Français-online.guide"))
  82. (set #doc-history       (cat "/history"))
  83.  
  84. (set #copycatalog     (cat "Installation du catalogue Français."))
  85. (set #catalogname     (cat "/Catalogs/Français/WebMaker.catalog"))
  86. (set #destname         (cat "Catalogs/Français"))
  87.  
  88. (set #tooltype-prompt   (cat "Paramêtrage des types d'outils"))
  89. (set #tooltype-local    (cat "Choix du répertoire de vos documents HTML"))
  90. (set #tooltype-author   (cat "Entrez votre nom"))
  91. (set #help-author       (cat "Votre nom est demandé pour avoir des infos sur le créateur"))
  92. (set #tooltype-email    (cat "Entrez votre email"))
  93. (set #help-email        (cat "Votre email est demandée pour signer vos documents"))
  94.  
  95. (set #tooltype-isobuffer (cat "Voulez-vous travailler\navec un buffer en ISO-Latin ???"))
  96.  
  97. (set #tooltype-entities (cat "Voulez-vous sauver\nvos documents avec des entités ???"))
  98. (set #tooltype-entities-help (cat "Certains serveurs ne supportent pas l'ISO-Latin, les entités sont alors utilisées."))
  99. ))
  100.  
  101. ;===========================================================================
  102. ; German strings
  103.  
  104. (if (= @language "deutsch")
  105. (
  106. (set locale 2)
  107. ;;
  108. ;; Made by Andreas Rossbacher <andreas_r@titan.ping.de>
  109. ;;
  110. (set #welcome           (cat "Willkommen zur " @app-name " 1.1 Installation\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  111. (set #bad-MUI           (cat "Sie brauchen mindestens MUI3.1+ um WebMaker 1.1 zu benutzen."))
  112. (set #dir-choice        (cat "Wählen sie das Verzeichnis wo das WebMaker Verzeichnis erstellt werden soll." ))
  113. (set #copy              (cat "Copiere WebMaker"))
  114. (set #copy-extras       (cat "Copiere Extras"))
  115. (set #cpu               (cat "Wählen sie ihren Prozessor"))
  116.  
  117. (set #lib-copy          (cat "Copiere TextField Gadget"))
  118.  
  119. (set #doc-file          (cat "/Documentations/WebMaker-Deutsch.guide"))
  120. (set #doc-copy          (cat "Copiere Dokumentation"))
  121. (set #doc-online        (cat "/Documentations/WebMaker-Deutsch-online.guide"))
  122.  
  123. (set #doc-history       (cat "/history"))
  124.  
  125. (set #installcatalog    (cat "\n\nWollen Sie den Deutschen Katalog installieren?"))
  126. (set #copycatalog       (cat "Copiere Deutschen Katalog"))
  127.  
  128. (set #catalogname       (cat "/Catalogs/Deutsch/WebMaker.catalog"))
  129. (set #destname          (cat "Catalogs/Deutsch"))
  130.  
  131.  
  132. (set #tooltype-prompt   (cat "Setze Tooltypes"))
  133. (set #tooltype-local    (cat "Wo befinden sich Ihre HTML Dokumente?"))
  134. (set #tooltype-author   (cat "Geben sie Ihren Namen ein"))
  135. (set #help-author       (cat "Ihr Name wird für die Informationen des Erstellers im HTML Dok benötigt"))
  136. (set #tooltype-email    (cat "Geben sie Ihre EMail Adresse ein"))
  137. (set #help-email        (cat "Ihre EMail Adresse wird zum signieren der Dokumente benötigt"))
  138.  
  139. (set #tooltype-isobuffer (cat "Wollen Sie mit\neinem ISO-Latin Puffer arbeiten???"))
  140.  
  141. (set #tooltype-entities (cat "Wollen Sie Ihre Dokumente\n mit Entity sichern???"))
  142. (set #tooltype-entities-help (cat "Manche Server unterstützen keinen ISO-Latin Zeichensatz. Als Ersatz werden Entities benutzt."))  
  143.  
  144. ))
  145.  
  146. ;===========================================================================
  147. ; Português strings
  148.  
  149. (if (= @language "português")
  150. (
  151. (set locale 0)
  152.  
  153. ))
  154.  
  155. ;===========================================================================
  156. ; Nederlands strings 
  157.  
  158. (if (= @language "nederlands")
  159. (
  160. (set locale 3)
  161. ;;
  162. ;; Made by Ivo Kroone <ivo@pimpernel.nl>
  163. ;;
  164. (set #welcome           (cat "Welkom bij de " @app-name " 1.1 installatie\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  165. (set #bad-MUI           (cat "MUI3.1+ is minimaal vereist om WebMaker 1.1. te gebruiken"))
  166. (set #dir-choice        (cat "Kies een directory waar WebMaker een eigen directory mag maken."))
  167. (set #copy              (cat "Copy WebMaker"))
  168. (set #copy-extras       (cat "Copy Extras"))
  169. (set #cpu               (cat "Kies de gebruikte CPU"))
  170.  
  171. (set #lib-copy          (cat "Copyeer TextField Gadget"))
  172.  
  173. (set #doc-file          (cat "/Documentations/WebMaker-English.guide"))
  174. (set #doc-copy          (cat "Copy Documentation"))
  175. (set #doc-online        (cat "/Documentations/WebMaker-English-online.guide"))
  176.  
  177. (set #doc-history       (cat "/history"))
  178.  
  179. (set #installcatalog    (cat "\n\Ook de Engelse vertaling installeren?"))
  180. (set #copycatalog       (cat "Copy catalog Engels"))
  181.  
  182. (set #catalogname       (cat "/Catalogs/Nederlands/WebMaker.catalog"))
  183. (set #destname          (cat "Catalogs/Nederlands"))
  184.  
  185. (set #tooltype-prompt   (cat "Zet tooltypes"))
  186. (set #tooltype-local    (cat "Waar zijn de te bewerken HTML documenten?"))
  187. (set #tooltype-author   (cat "Geef uw naam"))
  188. (set #help-author       (cat "Uw naam is vereist om informatie te hebben over mensen die pages maken"))
  189. (set #tooltype-email    (cat "Geef uw E-mail adres"))
  190. (set #help-email        (cat "Het E-mail wordt gebruikt om als referentie in de documenten te gebruiken"))
  191.  
  192. (set #tooltype-isobuffer (cat "Wilt u werken met een\n ISO-Latin buffer???"))
  193.  
  194. (set #tooltype-entities (cat "Wilt u de documenten wegschrijven\nmet entiteiten?"))
  195.  
  196. (set #tooltype-entities-help (cat "Sommige servers ondersteunen ISO-Latin niet, in dat geval worden entiteiten gebruikt"))
  197.  
  198. ))
  199.  
  200. ;===========================================================================
  201. ; Italian strings
  202.  
  203. (if (= @language "italiano")
  204. (
  205. (set locale 6)
  206.  (set #welcome           (cat "Benvenuto all'installazione di " @app-name " 1.1\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  207.  (set #bad-MUI           (cat "E' necessaria almeno la MUI3.1+ per usare WebMaker 1.1." ))
  208.  (set #dir-choice        (cat "Scegli la directory dove creare la directory di WebMaker" ))
  209.  (set #copy              (cat "Sto copiando WebMaker"))
  210.  (set #copy-extras       (cat "Sto copiando gli Extras"))
  211.  (set #cpu               (cat "Scegli la tua cpu"))
  212.  
  213.  (set #lib-copy          (cat "Sto copiando il TextField Gadget"))
  214.  
  215.  (set #doc-file          (cat "/Documentations/WebMaker-English.guide"))
  216.  (set #doc-copy          (cat "Sto copiando la documentazione"))
  217.  (set #doc-online        (cat "/Documentations/WebMaker-English-online.guide"))
  218.  
  219.  (set #doc-history       (cat "/history"))
  220.  
  221.  (set #installcatalog    (cat "\n\nVuoi installare il catalog italiano ?"))
  222.  (set #copycatalog       (cat "Sto copiando il catalog italiano"))
  223.  
  224.  (set #catalogname       (cat "/Catalogs/italiano/WebMaker.catalog"))
  225.  (set #destname          (cat "Catalogs/italiano"))
  226.  
  227.  (set #tooltype-prompt   (cat "Settaggio dei tooltypes"))
  228.  (set #tooltype-local    (cat "Dove si trovano i tuoi documenti HTML ?"))
  229.  (set #tooltype-author   (cat "Inserisci il tuo nome"))
  230.  (set #help-author       (cat "Il tuo nome viene richiesto per avere informazioni sul creatore dei documenti"))
  231.  (set #tooltype-email    (cat "Inserisci il tuo indirizzo di posta elettronica"))
  232.  (set #help-email        (cat "Il tuo indirizzo viene richiesto per la firma dei tuoi documenti"))
  233.  
  234.  (set #tooltype-isobuffer (cat "Vuoi utilizzare\n un buffer in formato ISO-Latin ???"))
  235.  
  236.  (set #tooltype-entities (cat "Vuoi salvare\n i tuoi documenti con le entita' ???"))
  237.  (set #tooltype-entities-help (cat "Alcuni server non supportano la sintassi ISO-Latin, ma utilizzano le entita'."))
  238.  
  239. ))
  240.  
  241. ;===========================================================================
  242. ; Norsk strings (Norwegian)
  243.  
  244. (if (= @language "norsk")
  245. (
  246. (set locale 7)
  247. ;;
  248. ;; Made by borseman@telepost.no
  249. ;;
  250. (set #welcome           (cat "Velkommen til installasjonen av " @app-name " 1.1\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  251. (set #bad-MUI           (cat "Du må ha minst MUI3.1 eller senere for å kunne bruke WebMaker 1.1"))
  252. (set #dir-choice        (cat "Velg sted hvor du vil ha WebMaker-skuffen" ))
  253. (set #copy              (cat "Kopierer WebMaker"))
  254. (set #copy-extras       (cat "Kopierer extras"))
  255. (set #cpu               (cat "Velg prosessor"))
  256.  
  257. (set #lib-copy          (cat "Kopierer TextField Gadget"))
  258.  
  259. (set #doc-file          (cat "/Documentations/WebMaker-English.guide"))
  260. (set #doc-copy          (cat "Kopierer dokumentasjon"))
  261. (set #doc-online        (cat "/Documentations/WebMaker-English-online.guide"))
  262.  
  263. (set #doc-history       (cat "/history"))
  264.  
  265. (set #installcatalog    (cat "\n\nVil du kopiere den norske katalogen?"))
  266. (set #copycatalog       (cat "Kopierer norsk katalog."))
  267.  
  268. (set #catalogname       (cat "/Catalogs/Norsk/WebMaker.catalog"))
  269. (set #destname          (cat "Catalogs/Norsk"))
  270.  
  271.  
  272. (set #tooltype-prompt   (cat "Setter tooltypes"))
  273. (set #tooltype-local    (cat "Hvor befinner HTML-dokumentene dine seg?"))
  274. (set #tooltype-author   (cat "Skriv inn navnet ditt"))
  275. (set #help-author       (cat "Nødvendig for at alle HTML-dokumenter du lager skal inneholde informasjon om hvem som har laget dem."))
  276. (set #tooltype-email    (cat "Skriv inn din Epost-adresse"))
  277. (set #help-email        (cat "Epost-adressen er nødvendig for å signere dokumenenter."))
  278.  
  279. (set #tooltype-isobuffer (cat "Vil du jobbe med\nen ISO-Latin buffer?"))
  280.  
  281. (set #tooltype-entities (cat "Vil du lagre dokumentene\ndine med spesialtegn?"))
  282. (set #tooltype-entities-help (cat "Noen servere støtter ikke ISO-Latin syntax, i stedet brukes spesialtegn."))
  283. ))
  284.  
  285. ;======================================
  286. ; Suomi 
  287. (if (= @language "suomi")
  288. (
  289. (set locale 8)
  290. ;;
  291. ;; Made by man@sci.fi
  292. ;; 
  293. (set #welcome           (cat "Tervetuloa " @app-name " installointiin\n\nShareWare\nbut 100% usable\nSend me your contribution *8)\n\n\n\n© 1996 Pascal Rullier\nemail: prullier@mail.atlantic-line.fr"))
  294. (set #bad-MUI           (cat "Tarvitset vähintään MUI3.1+ käyttääksesi WebMaker 1.1.:tä"))
  295. (set #dir-choice        (cat "Valitse hakemisto johon luodaan WebMaker-hakemisto" ))
  296. (set #copy              (cat "Kopioidaan WebMaker"))
  297. (set #copy-extras       (cat "Kopioidaan Extras"))
  298. (set #cpu               (cat "valitse cpu:si"))
  299.  
  300. (set #lib-copy          (cat "Kopioidaan TextField Gadget"))
  301.  
  302. (set #doc-file          (cat "/Documentations/WebMaker-English.guide"))
  303. (set #doc-copy          (cat "Kopioin dokumentit"))
  304. (set #doc-online        (cat "/Documentations/WebMaker-English-online.guide"))
  305.  
  306. (set #doc-history       (cat "/history"))
  307.  
  308. (set #installcatalog    (cat "\n\nHaluatko asentaa suomenkielisen catalogin ?"))
  309. (set #copycatalog       (cat "Kopioidaan suomenkielinen catalogi"))
  310.  
  311. (set #catalogname       (cat "/Catalogs/Suomi/WebMaker.catalog"))
  312. (set #destname          (cat "Catalogs/Suomi"))
  313.  
  314. (set #tooltype-prompt   (cat "Asetetaan tooltypet"))
  315. (set #tooltype-local    (cat "Missä ovat HTML-documenttisi ?"))
  316. (set #tooltype-author   (cat "Syötä nimesi"))
  317. (set #help-author       (cat "Nimesi tarvitaan henkilöiden luomistietoihin"))
  318. (set #tooltype-email    (cat "Syötä email-osoitteesi"))
  319. (set #help-email        (cat "Email-osoitteesi tarvitaan dokumenttiesi allekirjoitukseen"))
  320.  
  321. (set #tooltype-isobuffer (cat "Haluatko työskennellä\nISO-Latin bufferin kanssa???"))
  322.  
  323. (set #tooltype-entities (cat "Haluatko tallentaa\ndokumenttisi entitieseillä ???"))
  324. (set #tooltype-entities-help (cat "Jotkut palvelimet eivät tue ISO-Latin merkistöä, entitiesejä käytetään niiden sijasta."))
  325.  
  326.  
  327. ))
  328.  
  329. ;===========================================================================
  330. ; svenska strings
  331. ;
  332. ; Sorry fabbe, your catalog was corrupted... Please use the empty .ct
  333. ;
  334. (if (= @language "svenska")
  335. (
  336. (set locale 9)
  337. (set #doc-file          (cat "/Documentations/WebMaker-Svenska.guide"))
  338. ))
  339.  
  340. ;=============================================================================
  341. (message #welcome)
  342. (welcome)
  343.  
  344. ;=============================================================================
  345. ; Installation procedure
  346. (set WMdir "ram:")
  347. ;========================================================================
  348. ;
  349. ; Scanning MUI version
  350. ;
  351. (set vernum1 (getversion "MUI:LIBS/muimaster.library" ) )
  352. (set ver1 (/ vernum1 65536))
  353. (set rev1 (- vernum1 (* ver1 65536)))
  354. ;(message vernum1 ":" ver1 "." rev1)
  355. ;( if (< ver1 10)
  356. ;(if (< (exists "mui:") 2)
  357. ;    ( abort #bad-MUI )
  358. ;  )
  359.  
  360. ;========================================================================
  361. ;
  362. ; Select the WebMaker directory
  363. ;
  364.  
  365. (set WMdir
  366.     ( askdir
  367.         ( prompt #dir-choice )
  368.         (help "")
  369.         (default "ram:")
  370.         (newpath)
  371.     )
  372. )
  373.  
  374. ;========================================================================
  375. ;
  376. ; Copying WebMaker
  377. ;
  378.  
  379. (complete 10)
  380.  
  381. (set WMdir ( tackon WMdir "Webmaker" ) )
  382. (set @default-dest WMdir )
  383.  
  384. (if (= 0 (askchoice (prompt #cpu)
  385.             (help @askchoice-help)
  386.             (choices "WebMaker.000" "WebMaker.020")
  387.             (default 0)))
  388.     (set #good-exe "/WebMaker.000")
  389.   (set #good-exe "/WebMaker.020"))
  390.  
  391.  
  392.  
  393. (copyfiles
  394.     (prompt #copy)
  395.     (source #good-exe)
  396.     (help   @copyfiles-help)
  397.     (infos)
  398.     (dest WMdir)
  399.     (newname @app-name)
  400. )
  401.  
  402. (copyfiles
  403.     (source "/WebMaker.020.info")
  404.     (help    @copyfiles-help)
  405.     (dest     WMdir)
  406.     (newname (cat WMdir ".info"))
  407. )
  408.  
  409. (copyfiles
  410.     (source "/")
  411.     (help    @copyfiles-help)
  412.     (dest     WMdir)
  413.     (prompt #copy)
  414.     (choices "Images")
  415.     (confirm)
  416. )
  417.  
  418. (copyfiles
  419.     (prompt #copy-extras)
  420.     (source "/")
  421.     (choices "Contribs"
  422.          "Demos")
  423.     (help   @copyfiles-help)
  424.     (infos)
  425.     (dest WMdir)
  426.     (confirm)
  427. )
  428.  
  429. ;========================================================================
  430. ;
  431. ; Copying textfield.gadget
  432. ;
  433.  
  434.  
  435. (copylib
  436.     (source    "/gadgets/textfield.gadget")
  437.     (dest "SYS:Classes/gadgets")
  438.     (prompt #libcopy)
  439.     (help @copylib-help)
  440.     (confirm)
  441. )
  442.  
  443. (complete 40)
  444.  
  445. ;========================================================================
  446. ;
  447. ; Copying documentation
  448. ;
  449.  
  450. ( set WMdoc ( tackon WMdir "Documentations" ) )
  451.  
  452. (copyfiles
  453.     (prompt #doc-copy)
  454.     (source #doc-file)
  455.     (newname "WebMaker.guide")
  456.     (help @copyfiles-help)
  457.         (infos)
  458.     (confirm)
  459.         (dest WMdoc )
  460. )
  461.  
  462. (copyfiles
  463.     (source "/Documentations.info")
  464.     (newname (cat WMdoc ".info"))
  465.     (dest WMdir)
  466. )
  467.  
  468. (complete 50)
  469.  
  470. (copyfiles
  471.     (prompt #doc-copy)
  472.     (source #doc-online)
  473.     (help @copyfiles-help)
  474.         (infos)
  475.     (confirm)
  476.     (newname "WebMaker.guide")
  477.         (dest WMdir )
  478. )
  479.  
  480. (complete 60)
  481.  
  482. (copyfiles
  483.     (prompt #doc-copy)
  484.     (source #doc-history)
  485.     (help @copyfiles-help)
  486.         (infos)
  487.     (confirm)
  488.     (newname "history")
  489.         (dest WMdir )
  490. )
  491.  
  492.  
  493.  
  494. ;========================================================================
  495. ;
  496. ; copying WebMaker.catalog files
  497. ;
  498.  
  499. (complete 70)
  500.  
  501. ( set WMcat ( tackon WMdir #destname ) )
  502.  
  503. (makedir (tackon WMdir "Catalogs"))
  504. (makedir WMCat)
  505.  
  506. (complete 80)
  507.  
  508. (if (> locale 0)
  509.     (copyfiles
  510.      (prompt #copycatalog)
  511.      (source #catalogname)
  512.      (dest   WMcat)
  513.      (newname "WebMaker.catalog")
  514.      (help   @copyfiles-help)
  515.      (infos)
  516.      (confirm)
  517.      )
  518.   )
  519. (complete 90)
  520.  
  521. (tooltype (prompt #tooltype-prompt)
  522.       (help)
  523.       (dest (tackon WMdir "WebMaker"))
  524.       (settooltype "LOCALROOT" (askdir (prompt #tooltype-local)
  525.                        (help)
  526.                        (default "http:docs/")))
  527. )
  528.  
  529. (tooltype (prompt #tooltype-prompt)
  530.       (help)
  531.       (dest (tackon WMdir "WebMaker"))
  532.       (settooltype "AUTHOR" (askstring (prompt #tooltype-author)
  533.                     (help #help-author)))
  534. )
  535.  
  536. (tooltype (prompt #tooltype-prompt)
  537.       (help)
  538.       (dest (tackon WMdir "WebMaker"))
  539.       (settooltype "EMAIL" (askstring (prompt #tooltype-email)
  540.                       (help #help-email)))
  541. )
  542.  
  543. (tooltype (prompt #tooltype-prompt)
  544.       (help)
  545.       (dest (tackon WMdir "WebMaker"))
  546.       (settooltype "ISOBUFFER" (if (= 0 (askbool (prompt #tooltype-isobuffer)
  547.                              (default 1)
  548.                              (help @askbool-help)))
  549.                        "NO"
  550.                      "YES"))
  551.                       
  552. )
  553.  
  554. (tooltype (prompt #tooltype-prompt)
  555.       (help)
  556.       (dest (tackon WMdir "WebMaker"))
  557.       (settooltype "ENTITIESSAVING" (if (= 0 (askbool (prompt #tooltype-entities)
  558.                              (default 1)
  559.                              (help #tooltype-entities-help)))
  560.                        "NO"
  561.                      "YES"))
  562.                       
  563. )
  564.  
  565.  
  566. (complete 100)
  567.  
  568. (exit)
  569.