home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / TaskiSMS / Install_TaskiSMS < prev    next >
Encoding:
Text File  |  2001-05-14  |  5.6 KB  |  221 lines
  1. ;
  2. ; TaskiSMS install script © by Pawel Filipczak
  3. ;
  4. ; $VER: TaskiSMS_Install 2.57 (14.05.2001) © Pawel Filipczak
  5. ;
  6.  
  7. (set TaskiSMS_version "2.57")
  8.  
  9. (set #about (cat "\n\nWelcome to TaskiSMS v" TaskiSMS_version "\n\nCopyright © 2000-2001 by\n\nPawel Filipczak\n<paplo@taski.com.pl>\n\nhttp://taskisms.taski.com.pl/") )
  10.  
  11. (set #text_where "Where do you wish to install TaskiSMS. A directory called 'TaskiSMS' will be created if one is not there. If a copy of TaskiSMS is found it will be backed up.")
  12. (set #text_exit (cat "\nTaskiSMS Install Complete!\n\n" ))
  13. (set #text_toolbar (cat "Please select default toolbar which you want to use with TaskiSMS\n"))
  14.  
  15. (set #from_dir "InstallData")
  16.  
  17. (set jpeglib_prompt "Lycos plugin requires jpeg.library.\n\nThis archive contains jpeg.library for 68020 CPU without FPU. For version dedicated to your CPU, please download util/libs/jpeglibrary50.lha from AmiNet.")
  18.  
  19. ; ********************** check for installer version
  20.  
  21. (set inst_version -1)
  22.  
  23. (if (exists "C:Installer" (noreq))
  24.     (set inst_version (/ (getversion "C:Installer") 65536))
  25. )
  26.  
  27. (if (= inst_version -1)
  28.     (if (exists "SYS:Utilities/Installer" (noreq))
  29.         (set inst_version (/ (getversion "SYS:Utilities/Installer") 65536))
  30.     )
  31. )
  32.  
  33. (if (= inst_version -1)
  34.     (if (exists "SYS:Tools/Installer" (noreq))
  35.         (set inst_version (/ (getversion "SYS:Tools/Installer") 65536))
  36.     )
  37. )
  38.  
  39. (if (= inst_version -1)
  40.     (if (exists "SYS:Installer" (noreq))
  41.         (set inst_version (/ (getversion "SYS:Installer") 65536))
  42.     )
  43. )
  44.  
  45. (if (= inst_version -1)
  46.     (if (exists "Installer" (noreq))
  47.         (set inst_version (/ (getversion "Installer") 65536))
  48.     )
  49. )
  50.  
  51. ; ********************** about
  52.  
  53. (message #about)
  54. (welcome) 
  55.  
  56. ;*********************** ask for install dir
  57.  
  58. (set TaskiSMS_dir    (askdir    (prompt #text_where)
  59.                 (help   @askdir-help)
  60.                 (default @default-dest)
  61.             )  
  62. )
  63.  
  64. (set installdir (tackon TaskiSMS_dir "TaskiSMS"))
  65.  
  66.  
  67. ; ************************ check for older installation
  68.  
  69. (set    #old_exists 0)
  70.  
  71. (if (exists installdir) 
  72.   (
  73.  
  74.  
  75.     (set tsms_vernum (getversion (tackon installdir "TaskiSMS")))
  76.     (set tsms_ver (/ tsms_vernum 65536))
  77.     (set tsms_rev (- tsms_vernum (* tsms_ver 65536)))
  78.  
  79.     (if (>= tsms_ver 2)
  80.       (if (>= tsms_rev 50)
  81.         (if (NOT (askbool (prompt "\nInstaller found TaskiSMS v2.5+ installed on your disk.\n\nDo you want to backup older version to TaskiSMS_old directory (click Backup) or update existing version with new files (click Update) ?") (help "") (choices "Update" "Backup")))
  82.             ((rename installdir (tackon TaskiSMS_dir "TaskiSMS_old"))    (set    #old_exists 1))
  83.         )
  84.       ; else
  85.         ((rename installdir (tackon TaskiSMS_dir "TaskiSMS_old"))    (set    #old_exists 1))
  86.       )
  87. ; else
  88.       ((rename installdir (tackon TaskiSMS_dir "TaskiSMS_old"))    (set    #old_exists 1))
  89.     )
  90.  
  91.  
  92.   )
  93. )
  94.  
  95. ; *********************** make TaskiSMS dir
  96.  
  97. (working "Making directories.")
  98.  
  99. (makedir installdir (infos))
  100. (makedir (tackon installdir "Data"))
  101. (makedir (tackon installdir "Data/Prefixes"))
  102. (makedir (tackon installdir "Data/PlugIns"))
  103. (makedir (tackon installdir "Data/Toolbars"))
  104. (makedir (tackon installdir "Docs") (infos))
  105. (makedir (tackon installdir "Docs/images"))
  106.  
  107. ; *********************** copy files
  108.  
  109. ; *** copy main program
  110.  
  111. (working "Copying main program.")
  112.  
  113. (copyfiles    (source (tackon #from_dir "TaskiSMS"))
  114.         (dest    installdir)
  115.         (nogauge)
  116.         (infos)
  117. )
  118.  
  119. ; *** copy prefixes
  120.  
  121. (working "Copying prefixes.")
  122.  
  123. (foreach (tackon #from_dir "Data/Prefixes") "#?"
  124.  
  125.     (copyfiles    (source (tackon (tackon #from_dir "Data/Prefixes") @each-name))
  126.             (dest    (tackon installdir "Data/Prefixes"))
  127.             (nogauge)
  128.  
  129.     )
  130. )
  131.  
  132. ; *** copy plugins
  133.  
  134. (working "Copying plugins.")
  135.  
  136. (foreach (tackon #from_dir "Data/PlugIns") "#?"
  137.  
  138.     (copyfiles    (source (tackon (tackon #from_dir "Data/PlugIns") @each-name))
  139.             (dest    (tackon installdir "Data/PlugIns"))
  140.             (nogauge)
  141.     )
  142. )
  143.  
  144. ; *** copy doc
  145.  
  146. (working "Copying documentation.")
  147.  
  148. (copyfiles    (source (tackon #from_dir "Docs/English.html"))
  149.         (dest    (tackon installdir "Docs"))
  150.         (nogauge)
  151.         (infos)
  152. )
  153.  
  154. (foreach (tackon #from_dir "Docs/images_eng") "#?"
  155.  
  156.     (copyfiles    (source (tackon (tackon #from_dir "Docs/images_eng") @each-name))
  157.             (dest    (tackon installdir "Docs/images_eng"))
  158.             (nogauge)
  159.     )
  160. )
  161.  
  162. (copylib
  163.     (source (tackon #from_dir "Libs/jpeg.library"))
  164.     (dest "libs:")
  165.     (confirm)
  166.     (prompt jpeglib_prompt)
  167.     (help @copylib_help)
  168. )
  169.  
  170. ; *** select and copy toolbar
  171.  
  172. (if (>= inst_version 44)
  173.     (showmedia 'tb1' "InstallerData/Toolbars.iff" 'upper_center' 'none' 1)
  174. )
  175.  
  176. (set toolbar    (askchoice (choices "MagicWB style by Andreas Kürzinger" "NewIcon style by Blase" "NewIcon style by Marc Savart" "Glowicon style by OliverTacke" "YAM style by Roman Patzner")
  177.             (prompt #text_toolbar)
  178.             (default 3)
  179.             (help "help")
  180.         )
  181. )
  182.  
  183. (working "Copying toolbar.")
  184.  
  185. (if (= toolbar 0)    (set src_toolbar (tackon #from_dir "Toolbars/AndreasKuerzinger")))
  186. (if (= toolbar 1)    (set src_toolbar (tackon #from_dir "Toolbars/Blase")))
  187. (if (= toolbar 2)    (set src_toolbar (tackon #from_dir "Toolbars/MarcSavart")))
  188. (if (= toolbar 3)    (set src_toolbar (tackon #from_dir "Toolbars/OliverTacke")))
  189. (if (= toolbar 4)    (set src_toolbar (tackon #from_dir "Toolbars/YAM")))
  190.  
  191. (foreach src_toolbar "#?"
  192.     (copyfiles    (source (tackon src_toolbar @each-name))
  193.             (dest    (tackon installdir "Data/Toolbars"))
  194.             (nogauge)
  195.     )
  196. )
  197.  
  198. (if (>= inst_version 44)
  199.     (closemedia tb1)
  200. )
  201.  
  202. (if (= #old_exists 1)
  203.  
  204.     (if (exists (tackon TaskiSMS_dir "TaskiSMS_old/Data/PhoneBook.dat"))
  205.  
  206.         (if (askbool (prompt "\nDo you want to copy PhoneBook from the previous installation of TaskiSMS?") (help "") (choices "Yes" "No"))
  207.  
  208.             (copyfiles    (source (tackon TaskiSMS_dir "TaskiSMS_old/Data/PhoneBook.dat"))
  209.                     (dest    (tackon installdir "Data"))
  210.                     (nogauge)
  211.             )
  212.         )
  213.  
  214.     )
  215. )
  216.  
  217. (set @default-dest installdir)
  218.  
  219. (exit #text_exit)
  220.  
  221.