home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / admin111.zip / SETUP.CMD < prev   
OS/2 REXX Batch file  |  1997-02-23  |  8KB  |  304 lines
  1. /*
  2.         Admin's SETUP script v1.0.4
  3.         AdmiN v1.x.x BETA SHAREWARE
  4.         (c) Mathieu LUBRANO 1996-97
  5.         All rights reserved
  6.  
  7.         !*DO NOT MODIFY*!
  8.  
  9.         Email:  Internet:   106161.1577@compuserve.com
  10.                 CompuServe: 106161,1577
  11. */
  12. echo off
  13. say ">Please wait..."
  14. say ">Veuillez patienter..."
  15. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  16. call SysLoadFuncs
  17. cls
  18.  
  19. Main:
  20. AdminVer="1.1.1 SHAREWARE"
  21. call Intro
  22. call AskLanguage
  23. call AskDrive
  24. call Accept
  25. call Inst
  26. call Quit
  27. return
  28.  
  29. Intro:
  30. say ">     AdmiN's Install Script v" || AdminVer || "."
  31. say ">     (c) Mathieu LUBRANO 1996-97"
  32. say ">     All rights reserved."
  33.  
  34. do 10
  35. say ">"
  36. end
  37. return
  38.  
  39. AskLanguage:
  40. say ">Select you language: "
  41. say ">"
  42. say ">   1->English,"
  43. say ">   2->Français."
  44. say ">"
  45. pull LANGUAGE
  46.  
  47. if LANGUAGE<>1 then do
  48.         if LANGUAGE<>2 then do
  49.                 LANGUAGE=1
  50.                 Call ERRQUIT
  51.         end
  52. end
  53. return
  54.  
  55. AskDrive:
  56. if LANGUAGE=2 then do
  57.         say "> Entrez la lettre d'unité SEULE où installer le programme:"
  58.         say ">(ex: C D E ou F... et ENTREE)"
  59. end
  60. else do
  61.         say "> Enter the drive letter ONLY where AdmiN will be installed:"
  62.         say ">(ex: C D E or F... and RETURN)"
  63. end
  64.  
  65. pull TODRIVE
  66. TODRIVE_WP=TODRIVE
  67.  
  68. do 5
  69. say ">"
  70. end
  71.  
  72. if LENGTH(TODRIVE)<>1 then do
  73.         if LANGUAGE=2 then do
  74.                 say ">Réponse incorrecte."
  75.                 say ">Entrez une seule lettre désigant le disque cible"
  76.                 say ">Exemple: C et ENTREE"
  77.                 say ">"
  78.         end
  79.         else do
  80.                 say ">Incorrect answer."
  81.                 say ">Enter a single letter to set the install drive"
  82.                 say ">Example: C and RETURN"
  83.                 say ">"
  84.         end
  85.         call ERRQuit
  86. end
  87.  
  88. return
  89.  
  90. Accept:
  91. if LANGUAGE=2 then do
  92.         say "> Prêt à installer Administrateur sur l'unité " TODRIVE " ?"
  93.         say ">(O pour continuer ou N pour arrêter l'installation.)"
  94. end
  95. else do
  96.         say "> Ready to install AdmiN on drive " TODRIVE " ?"
  97.         say ">(Y to continue or N to stop install.)"
  98. end
  99.  
  100. pull GO
  101.  
  102. if LANGUAGE=2 then do
  103.         if GO="O" then do
  104.         say "> Suite de l'installation:"
  105.         return
  106.         end
  107.  
  108.         if GO="o" then do
  109.         say "> Suite de l'installation:"
  110.         return
  111.         end
  112.  
  113.         say "> Annulation de l'installation:"
  114.         call ERRQuit
  115. end
  116. else do
  117.         if GO="Y" then do
  118.         say "> Install in progress:"
  119.         return
  120.         end
  121.  
  122.         if GO="y" then do
  123.         say "> Install in progress:"
  124.         return
  125.         end
  126.  
  127.         say "> Cancelling install:"
  128.         call ERRQuit
  129. end
  130.  
  131. return
  132.  
  133. Inst:
  134. TODRIVE=INSERT(TODRIVE,':\ADMIN')
  135. RC=SysMkDir(TODRIVE)
  136.  
  137. call CheckRC
  138.  
  139. FRMSRC=DIRECTORY()
  140. NEWDIR=DIRECTORY(TODRIVE)
  141.  
  142. if NEWDIR=TODRIVE then do
  143.  
  144.         if LENGTH(FRMSRC)<>LASTPOS("\",FRMSRC) then do
  145.                 FRMSRC=INSERT(FRMSRC,"\ADMIN.PAK /n:")
  146.         end
  147.         else do
  148.                 FRMSRC=INSERT(FRMSRC,"ADMIN.PAK /n:")
  149.         end
  150.  
  151.         if LANGUAGE=2 then do
  152.                 say ">Décompactage des fichiers..."
  153.         end
  154.         else do
  155.                 say ">Unpacking files..."
  156.         end
  157.         TOCOPY=INSERT(FRMSRC,"admin.exe")
  158.         unpack TOCOPY
  159.         TOCOPY=INSERT(FRMSRC,"stop.exe")
  160.         unpack TOCOPY
  161.         TOCOPY=INSERT(FRMSRC,"vrobj.dll")
  162.         unpack TOCOPY
  163.         TOCOPY=INSERT(FRMSRC,"cnt.cmd")
  164.         unpack TOCOPY
  165.         TOCOPY=INSERT(FRMSRC,"qui.cmd")
  166.         unpack TOCOPY
  167.         TOCOPY=INSERT(FRMSRC,"lancer.cmd")
  168.         unpack TOCOPY
  169.         TOCOPY=INSERT(FRMSRC,"stop.cmd")
  170.         unpack TOCOPY
  171.         TOCOPY=INSERT(FRMSRC,"recup.cmd")
  172.         unpack TOCOPY
  173.         TOCOPY=INSERT(FRMSRC,"dcnt.cmd")
  174.         unpack TOCOPY
  175.         TOCOPY=INSERT(FRMSRC,"sauve.cmd")
  176.         unpack TOCOPY
  177.         TOCOPY=INSERT(FRMSRC,"srmview.cmd")
  178.         unpack TOCOPY
  179.         TOCOPY=INSERT(FRMSRC,"arretsys.cmd")
  180.         unpack TOCOPY
  181.         TOCOPY=INSERT(FRMSRC,"cnfsys.cmd")
  182.         unpack TOCOPY
  183.         TOCOPY=INSERT(FRMSRC,"admin.ini")
  184.         unpack TOCOPY
  185.         TOCOPY=INSERT(FRMSRC,"arreturg.cmd")
  186.         unpack TOCOPY
  187.         TOCOPY=INSERT(FRMSRC,"readme.txt")
  188.         unpack TOCOPY
  189.         TOCOPY=INSERT(FRMSRC,"register.frm")
  190.         unpack TOCOPY
  191.         TOCOPY=INSERT(FRMSRC,"uninstal.cmd")
  192.         unpack TOCOPY
  193.         TOCOPY=INSERT(FRMSRC,"readme.cmd")
  194.         unpack TOCOPY
  195.         TOCOPY=INSERT(FRMSRC,"register.cmd")
  196.         unpack TOCOPY
  197.  
  198.         if LANGUAGE=2 then do
  199.                 TOCOPY=INSERT(FRMSRC,"messages.fr")
  200.                 unpack TOCOPY
  201.                 ren messages.fr admin.msg
  202.         end
  203.         else do
  204.                 TOCOPY=INSERT(FRMSRC,"messages.us");
  205.                 unpack TOCOPY
  206.                 ren messages.us admin.msg
  207.         end
  208.  
  209.         say ">"
  210.         if LANGUAGE=2 then do
  211.                 say ">Décompactage terminé."
  212.                 say ">Création de l'icône sur le bureau..."
  213.         end
  214.         else do
  215.                 say ">Unpack finished."
  216.                 say ">Creating Desktop Icon..."
  217.         end
  218.  
  219.         if LANGUAGE=1 then do
  220.                 ICON_NAME="AdmiN 32Bits, v"
  221.                 FOLDER_NAME="AdmiN"
  222.                 ReadME="Read Me"
  223.                 RegForm="REGISTER FORM"
  224.                 UnINST="AdmiN UnInstaller"
  225.         end
  226.         else do
  227.                 ICON_NAME="Administrateur 32Bits, v"
  228.                 FOLDER_NAME="Administrateur"
  229.                 ReadME="Lisez Moi"
  230.                 RegForm="Fichier d'ENREGISTREMENT"
  231.                 UnINST="Désinstaller l'Administrateur"
  232.         end
  233.  
  234.         FRMSRC=SysCreateObject("WPFolder", FOLDER_NAME, "<WP_DESKTOP>", "OBJECTID=<ADMINFOLDER>")
  235.         FRMSRC=SysCreateObject("WPProgram", ICON_NAME || AdminVer, "<ADMINFOLDER>","EXENAME="NEWDIR"\admin.exe",update)
  236.         FRMSRC=SysCreateObject("WPProgram", UnINST ,"<ADMINFOLDER>","EXENAME="NEWDIR"\uninstal.cmd",update)
  237.         FRMSRC=SysCreateObject("WPProgram", ReadME,"<ADMINFOLDER>","EXENAME="NEWDIR"\readme.cmd",update)
  238.         FRMSRC=SysCreateObject("WPProgram", RegForm,"<ADMINFOLDER>","EXENAME="NEWDIR"\register.cmd",update)
  239.  
  240.         if LANGUAGE=2 then do
  241.                 say ">Icônes crées."
  242.         end
  243.         else do
  244.                 say ">Icons created."
  245.         end
  246. end
  247. else do
  248.         call ERRQuit
  249. end
  250. return
  251.  
  252. CheckRC:
  253. if RC=0 then do
  254. return
  255. end
  256. else do
  257.         if LANGUAGE=2 then do
  258.                 say ">Erreur: impossible de créer le répertoire !"
  259.                 say ">Si vous tentez de réinstaller ce programme, veuillez utiliser"
  260.                 say ">le désinstalleur avant de recommencer l'installation."
  261.         end
  262.         else do
  263.                 say ">Error: unable to create destination directory !"
  264.                 say ">If you are trying to reinstall, please use the uninstaller"
  265.                 say ">before restarting install."
  266.         end
  267.         call ERRQuit
  268. end
  269. return
  270.  
  271. ERRQuit:
  272. say ">"
  273. if LANGUAGE=2 then do
  274.         say ">     Erreur ! Relancez Setup"
  275. end
  276. else do
  277.         say ">     Error ! Restart Setup"
  278. end
  279. say ">"
  280. call SysDropFuncs
  281. exit
  282. end
  283.  
  284. Quit:
  285. say ">"
  286. if LANGUAGE=2 then do
  287.         say ">     Installation terminée !"
  288.         say ">"
  289.         say "> Tapez exit et ENTREE pour fermer cette fenêtre OS/2, et"
  290.         say ">faites un double click sur l'icône 'Administrateur...' qui vient"
  291.         say ">d'être ajouté à votre bureau pour lancer le programme."
  292.         say ">"
  293. end
  294. else do
  295.         say ">     Install finished !"
  296.         say ">"
  297.         say "> Type exit and RETURN to close this OS/2 window, and make"
  298.         say ">a double click on AdmiN's icon who was just added to your"
  299.         say ">desktop to start the program."
  300.         say ">"
  301. end
  302. call SysDropFuncs
  303. return
  304.