home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / e / executivev1.3cracked.lha / executive / UnInstall.Executive < prev    next >
Text File  |  1996-02-09  |  11KB  |  317 lines

  1. ;
  2. ; Executive UnInstallation script
  3. ;
  4. ; Copyright © 1995 Petri Nordlund. All rights reserved.
  5. ;
  6. ; $Id: UnInstall.Executive 1.9 1995/11/02 19:24:54 petrin Exp petrin $
  7. ;
  8. ; Languages available:
  9. ;   English (default)
  10. ;   Suomi
  11. ;
  12.  
  13.  
  14. ; =======================================================================
  15. ;   Set up some variables
  16. ; =======================================================================
  17.  
  18. (set TRUE        1)
  19. (set FALSE        0)
  20.  
  21. ; =======================================================================
  22. ;   Set up localized strings
  23. ; =======================================================================
  24.  
  25. ; ==== Ask users language
  26. (set sel_lang
  27.     (askchoice
  28.         (prompt "Please select your language")
  29.         (help @askoptions-help)
  30.         (choices
  31.             "English"
  32.             "Suomi"
  33.             "Français"
  34.             "Deutsch"
  35. ;            "Norsk"
  36.             "Nederlands"
  37.             "Svenska"
  38. ;            "Dansk"
  39. ;            "Español"
  40. ;            "Italiano"
  41. ;            "Português"
  42.             "Polski"
  43.         )
  44.         (default 0)
  45.     )
  46. )
  47.  
  48. (set @language
  49.     (select sel_lang
  50.         "English"
  51.         "Suomi"
  52.         "Français"
  53.         "Deutsch"
  54. ;        "Norsk"
  55.         "Nederlands"
  56.         "Svenska"
  57. ;        "Dansk"
  58. ;        "Español"
  59. ;        "Italiano"
  60. ;        "Português"
  61.         "Polski"
  62.             ""
  63.     )
  64. )
  65.  
  66.  
  67. ;
  68. ; ===== English
  69. ;
  70. (set #please_close "\nThis program will DELETE Executive from your harddisk. All files that belong to Executive will be deleted. Other files won't be touched.\n\n\nPLEASE CLOSE THE EXECUTIVE DIRECTORY WINDOW IN WORKBENCH SCREEN SO THE DIRECTORY CAN BE DELETED.")
  71. (set #savekey "\nDo you want to copy your personal keyfile to S: directory, so it will be saved for the time when you reinstall Executive? Executive will find the key from S: directory.")
  72. (set #yes "Yes, copy key to S:")
  73. (set #no "No, delete the key")
  74. (set #userstartup "; Executive has been uninstalled.")
  75. (set #rempath "\nA `Path'-command in your \"S:User-Startup\" file will now be removed.")
  76. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  77. (set #done "\nExecutive has been uninstalled successfully.")
  78.  
  79. ;
  80. ; ===== Suomi
  81. ;
  82. (if (= @language "Suomi")
  83. (
  84. (set #please_close "\nTämä ohjelma POISTAA Executiven kovalevyltäsi. Kaikki Executiveen kuuluvat tiedostot tuhotaan. Muihin tiedostoihin ei kosketa.\n\n\nSULJE WORKBENCH-RUUDULLA AVOINNA OLEVA EXECUTIVEN HAKEMISTO-IKKUNA, MUUTOIN HAKEMISTOA EI VOI POISTAA.")
  85. (set #savekey "\nHaluatko kopioida henkilökohtaisen suojausavaimesi S: hakemistoon, josta Executive löytää sen jos asennat Executiven uudelleen?")
  86. (set #yes "Kyllä")
  87. (set #no "En")
  88. (set #userstartup "; Executive on poistettu.")
  89. (set #rempath "\n`Path´-komento \"S:User-Startup\" tiedostossa poistetaan.")
  90. (set #remhelp "Kun asensit Executiven, asennusohjelma lisäsi muutamia komentoja \"S:User-Startup\" tiedostoon. Nämä komennot poistetaan.")
  91. (set #done "\nExecutive on onnistuneesti poistettu koneestasi.")
  92. )) ; end of if statement
  93.  
  94. ;
  95. ; ===== Français
  96. ;
  97. (if (= @language "Français")
  98. (
  99. (set #please_close "\nCe programme EFFACERA Executive de votre disque dur. Tous les fichiers appartenant à Executive seront effacés. Les autres fichiers resteront intouchés.\n\n\nVEUILLER FERMER LA FENETRE REPERTOIRE EXECUTIVE DANS LE L'ECRAN WORKBENCH POUR QUE LE REPERTOIRE PUISSE ETRE EFFACE.")
  100. (set #savekey "\nVoulez vous que votre clé personnelle soit copiée dans le répertoire S:, pour qu'elle soit sauvée pour le moment où vous réinstallerez Executive ? Executive trouvera la clé dans le répertoire S:.")
  101. (set #yes "Oui, copie la clé dans S:")
  102. (set #no "Non, efface la clé")
  103. (set #userstartup "; Executive a été désinstallé.")
  104. (set #rempath "\nUne commande `Path' dans votre fichier \"S:User-Startup\" va maintenant être enlvée.")
  105. (set #remhelp "Quand vous avez installé Executive, le script d'installation a ajouté quelques commandes dans votre fichier \"S:User-Startup\". Ces commandes vont maintenant être enlevées.")
  106. (set #done "\nExecutive a été désinstallé avec succès.")
  107. )) ; end of if statement
  108.  
  109. ;
  110. ; ===== Deutsch
  111. ;
  112. (if (= @language "Deutsch")
  113. (
  114. (set #please_close "\nDieses Programm entfernt Executive aus Ihrem System. Alle Dateien die zu Executive gehören werden entfernt, andere Dateien sind nicht betroffen.\n\n\nBITTE SCHLIEßEN SIE DAS EXECUTIVE VERZEICHNISFENTER AUF DER WORKBENCH - SONST KANN ES NICHT GELÖSCHT WERDEN.")
  115. (set #savekey "\nMöchten Sie Ihr Keyfile nach S: kopieren, damit es nicht verloren ist falls Sie Executive wieder installieren möchten ?")
  116. (set #yes "Ja, Keyfile kopieren")
  117. (set #no "Nein, Keyfile löschen")
  118. (set #userstartup "; Executive has been uninstalled.")
  119. (set #rempath "\nDer `Path'-Befehl in Ihrer \"S:User-Startup\" wird nun entfernt")
  120. (set #remhelp "Als Sie Executive installiert haben, hat das Installationsskript ein paar Befehle zu Ihrer \"S:User-Startup\" hinzugefügt. Diese Befehle werden jetzt wieder entfernt.")
  121. (set #done "\nExecutive wurde komplett entfernt.")
  122. )) ; end of if statement
  123.  
  124. ;
  125. ; ===== Norsk
  126. ;
  127. ;(if (= @language "Norsk")
  128. ;(
  129. ;)) ; end of if statement
  130.  
  131. ;
  132. ; ===== Nederlands
  133. ;
  134. (if (= @language "Nederlands")
  135. (
  136. (set #please_close "\nDit programma zal Executive van uw harddisk verwijderen. Alle bestanden die behoren tot Executive zullen worden verwijderd. Andere bestanden zullen met rust worden gelaten.\n\n\nSLUIT U ALSTUBLIEFT DE EXECUTIVE LADE IN UW WORKBENCH ZODAT EXECUTIVE KAN WORDEN VERWIJDERD.")
  137. (set #savekey "\nWilt u uw persoonlijke keyfile naar de S: lade gekopieërd hebben, zodat deze kan worden bewaard voor het geval dat u Executive opnieuw wilt installeren? Executive zal deze keyfile ook vinden vanuit de S: lade.")
  138. (set #yes "Ja, kopieër key naar S:")
  139. (set #userstartup "; Executive is verwijderd.")
  140. (set #rempath "\nEen `Path'-commando in uw \"S:User-Startup\" bestand zal nu worden verwijderd.")
  141. (set #remhelp "Toen u Executive geïnstalleerd heeft, heeft het installatie script enkele commando's toegevoegd aan uw \"S:User-Startup\" bestand. Deze commando's zullen nu verwijderd worden.")
  142. (set #done "\nExecutive is succesvol verwijderd.")
  143. )) ; end of if statement
  144.  
  145. ;
  146. ; ===== Svenska
  147. ;
  148. (if (= @language "Svenska")
  149. (
  150. (set #please_close "\nDet här programmet kommer att TA BORT Execute från din hårddisk. Alla filer som tillhör Executive raderas. Andra filer lämnas orörda.\n\n\nSTÄNG EXECUTIVE-FÖNSTRET PÅ WORKBENCHSKÄRMEN SÅ ATT LÅDAN KAN RADERAS.")
  151. (set #savekey "\nVill du kopiera din personliga nyckelfil till S:-lådan, så att den sparas tills du åter installerar Executive? Executive hittar filen i S:-lådan.")
  152. (set #yes "Ja, kopiera nyckeln till S:")
  153. (set #no "Nej, radera nyckeln")
  154. (set #userstartup "; Executive har avinstallerats.")
  155. (set #rempath "\n`Path'-kommandot i din \"S:User-Startup\"-fil kommer nu att tas bort.")
  156. (set #remhelp "När du installerade Executive så adderade installationsskriptet några kommandon till \"S:User-Startup\"-filen. Dessa kommandon tas nu bort.")
  157. (set #done "\nExecutive har avinstallerats.")
  158. )) ; end of if statement
  159.  
  160. ;
  161. ; ===== Dansk
  162. ;
  163. ;(if (= @language "Dansk")
  164. ;(
  165. ;)) ; end of if statement
  166.  
  167. ;
  168. ; ===== Español
  169. ;
  170. ;(if (= @language "Español")
  171. ;(
  172. ;)) ; end of if statement
  173.  
  174. ;
  175. ; ===== Italiano
  176. ;
  177. ;(if (= @language "Italiano")
  178. ;(
  179. ;)) ; end of if statement
  180.  
  181. ;
  182. ; ===== Português
  183. ;
  184. ;(if (= @language "Português")
  185. ;(
  186. ;)) ; end of if statement
  187.  
  188. ;
  189. ; ===== Português
  190. ;
  191. (if (= @language "Polski")
  192. (
  193. (set #please_close "\nTen program USUNIE Executiva z Twojego dysku. Wszystkie pliki naleûâce do pakietu zostanâ skasowane. Pozostaîe pliki nie pozostanâ nienaruszone.\n\nPROSZË ZAMKNIJ OKNO KATALOGU EXECUTIVE NA EKRANIE WORKBENCHA, TAK ZEBY TEN KATALOG MÓGΠZOSTAÊ SKASOWANY.")
  194. (set #savekey "\nCzy chcesz skopiowaê swój plik kodowy do katalogu S:, tak ûeby byî dostëpny gdy znów zainstalujesz Executiva? Program znajdzie ten plik w katalogu S:")
  195. (set #yes "Tak, skopiuj do S:")
  196. (set #no "Nie, skasuj")
  197. (set #userstartup "; Executive zostaî usuniëty.")
  198. (set #rempath "\nPolecenie `Path' zostanie usuniëte teraz usuniëte z pliku \"S:User-Startup\".")
  199. (set #remhelp "When you installed Executive, the installation script added some commands to your \"S:User-Startup\" file. These commands will now be removed.")
  200. (set #done "\nExecutiva zostaî pomyôlnie usuniëty.")
  201. )) ; end of if statement
  202.  
  203.  
  204. ; =======================================================================
  205. ;   Initialization
  206. ; =======================================================================
  207.  
  208. ; Logfile is written to RAM:
  209. (set @default-dest "RAM:")
  210.  
  211.  
  212. ; change userlevel to expert
  213. (procedure expert_level
  214.     ((user 2))
  215. )
  216. ; reset userlevel back to default
  217. (procedure default_level
  218.     ((user default-level))
  219. )
  220. ; store off userlevel
  221. (procedure save_default_level
  222.     ((set default-level @user-level))
  223. )
  224.  
  225. (save_default_level)
  226. (expert_level)
  227.  
  228. ; =======================================================================
  229. ;   Uninstall
  230. ; =======================================================================
  231.  
  232. (complete 0)
  233.  
  234. (message #please_close)
  235.  
  236. (run "ExDest:Executive/Executive QUIT")
  237.  
  238. (set keyexists FALSE)
  239.  
  240. (if (exists ("ExDest:Executive/Executive.key") (noreq))
  241.     (set keyexists TRUE)
  242. ) ; end of if statement
  243. (if (exists ("S:Executive.key") (noreq))
  244.     (set keyexists TRUE)
  245. ) ; end of if statement
  246. (if (exists ("ENV:Executive.key") (noreq))
  247.     (set keyexists TRUE)
  248. ) ; end of if statement
  249. (if (exists ("ENVARC:Executive.key") (noreq))
  250.     (set keyexists TRUE)
  251. ) ; end of if statement
  252.  
  253. (if (= keyexists TRUE)
  254. (
  255.     (if (askbool
  256.         (prompt #savekey)
  257.         (help @askbool-help)
  258.         (default 0)
  259.         (choices #yes #no))
  260.         (
  261.             ; copy key
  262.             (run "copy ENVARC:Executive.key S:")
  263.             (run "copy ENV:Executive.key S:")
  264.             (run "copy ExDest:Executive/Executive.key S:")
  265.         )
  266.         (
  267.             ; delete key
  268.             (run "delete S:Executive.key")
  269.         )
  270.     )
  271.     (run "delete ENVARC:Executive.key")
  272.     (run "delete ENV:Executive.key")
  273. )) ; end of if statement
  274.  
  275. (complete 50)
  276.  
  277. (run "Delete ExDest:Executive ALL FORCE QUIET")
  278. (run "Delete ExDest:Executive.info FORCE QUIET")
  279. (run "Delete S:Executive.prefs")
  280. (run "Delete ENV:Executive.prefs")
  281. (run "Delete ENVARC:Executive.prefs")
  282. (if (exists "LOCALE:" (noreq))
  283. (
  284.     (run "Delete LOCALE:Catalogs/Suomi/Executive.catalog")
  285.     (run "Delete LOCALE:Catalogs/Français/Executive.catalog")
  286.     (run "Delete LOCALE:Catalogs/Deutsch/Executive.catalog")
  287.     (run "Delete LOCALE:Catalogs/Norsk/Executive.catalog")
  288.     (run "Delete LOCALE:Catalogs/Nederlands/Executive.catalog")
  289.     (run "Delete LOCALE:Catalogs/Svenska/Executive.catalog")
  290.     (run "Delete LOCALE:Catalogs/Dansk/Executive.catalog")
  291.     (run "Delete LOCALE:Catalogs/Español/Executive.catalog")
  292.     (run "Delete LOCALE:Catalogs/Italiano/Executive.catalog")
  293.     (run "Delete LOCALE:Catalogs/Português/Executive.catalog")
  294.     (run "Delete LOCALE:Catalogs/Polski/Executive.catalog")
  295. )) ; end of if statement
  296.  
  297. (complete 90)
  298.  
  299. (default_level)
  300.  
  301. ; ===== Remove path-command from s:user-startup
  302. (startup "Executive"
  303.     (prompt (#rempath))
  304.     (help #remhelp)
  305.     (command #userstartup)
  306. )
  307.  
  308. (complete 100)
  309.  
  310. (makeassign "ExDest" (safe))
  311.  
  312. (expert_level)
  313.  
  314. (message #done)
  315.  
  316. (exit (quiet))
  317.