;Tango 1.0 installation script
(set #intro (cat "\n\nWelcome to Tango\n\nCopyright © 1999\n\nSören Forsberg\n") )
(set #info (cat "\n\nThis installer will\n\ninstall Tango in Samba:\n\na new directory 'Tango' will be created.\n\n") )
(message #intro)
(welcome) 
(message #info)

(if (= (exists "samba:tango") 0 )  (makedir "Samba:Tango") )

;copy main
(copyfiles (source "Tango")   (dest "samba:Tango")    (infos) (all))

;copy drawer icon
(copyfiles    (prompt "Copying drawer icon")    (source "Tango.info")    (dest "Samba:") )

;copy catalogs
;(copyfiles (source "Locale")   (dest "sys:Locale")    (infos) (all))

(set #catnofind "Can not find this catalog in this  archive.")
(set #whatcat "\nTango has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be selected in Prefs:Locales ")
(set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")



(if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
(set lan 0)
(if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
(if (= "svenska" lanfound) (set lan 2)) (if (= "español" lanfound) (set lan 3)) 
(if (= "russian" lanfound) (set lan 3)) 
(set #English    "English")  (set #Deutsch    "Deutsch")
(set #Svenska    "Svenska")  (set #Español    "Español")
(set #Russian    "Russian")  

(if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
(if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
(if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
(run "delete env:i.høld.#?")
(set catalog (askchoice (choices  "English" "Deutsch" "Svenska" "Español" "Russian")            
                        (prompt #whatcat )
                        
	                (help   #whatcathelp)
                        (default lan)
             )
)

(if (= catalog 0)  (set #lcat #English))  
(if (= catalog 1)  (set #lcat #Deutsch))
(if (= catalog 2)  (set #lcat #Svenska))  
(if (= catalog 3)  (set #lcat #Español))  
(if (= catalog 4)  (set #lcat #Russian))  

(if (<> #lcat "N/A")
 (
      (if (> (exists (cat "Catalogs/" #lcat "/tango.catalog")) 0)
      (
        (
         (if (< (exists "Samba:Tango/Catalogs") 2) (makedir "Samba:Tango/Catalogs") )
         (if (< (exists (cat "Samba:Tango/Catalogs/" #lcat)) 2) (makedir (cat "Samba:Tango/Catalogs/" #lcat)) )
         (copyfiles (source (cat "Catalogs/" #lcat )) (dest (cat "Samba:Tango/Catalogs/" #lcat)) (all) )
        )
  

      )


  (message (cat "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  )


); End if Catalog dir
  (message (cat "Error:" "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
); 

(if (exists "c:defaultbrowser")
        (message "OBSOLETE!\n\nYou have defaultbrowser installed.\n\n"
        "Defaultbrowser is discontinued and will be removed \n"
        "from your system. Tango now uses openurl instead.")
)
(run "delete c:defaultbrowser")
(run 'delete "sys:prefs/default browser.info"')
(run "delete envarc:defaultbrowser")

(set #isthere (cat "You have Tango installed."))
(run "status >ENV:Tango_inst com samba:tango/tango")
(if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
(if (<> tangoon "") (set #isthere (cat "You have Tango installed and running.\nPlease shutdown Tango before proceeding. ")) )

(if (exists "ENV:tango.prefs")
	(
        (message (cat #isthere"\n\n"
        "All librarys and locales\n"
        "will now be flushed."))
		(run "avail flush > NIL:")

		
	)
)

(run "status >ENV:Tango_inst com samba:tango/tango")
(if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
(if (<> tangoon "") (message "You didn't shutdown Tango.\nBefore you start Tango you should:\nReboot, make 'Avail flush'\nor run the installer again!"))

(set donow (askoptions (choices "Tango readme (text)" "Tango guide  (html)" "Open Tango drawer (OS3.5)" "Launch Tango" )
		      (prompt "\nInstallation is complete!\n\nSelect what to do now.\n")
	                (help   "")
	              (default 2)
	  )
)

(if (IN donow 0) (run "run sys:utilities/multiview samba:tango/readme" ))


(if (IN donow 1)
	(if (> (exists ("c:openurl")) 0) (run "openurl file://localhost/samba:tango/guide.html"))
)

;RX "ADDRESS DOPUS.1;'lister new samba:'"
;RX "ADDRESS WORKBENCH;'ICON WINDOW root NAMES Samba: OPEN'" funkar inte då ikonen inte är på wb

(if (IN donow 2)
  	(run "Sys:rexxc/RX opendrawer.rexx")
  )

(if (IN donow 3)
  	(run "samba:tango/tango" )
  )

(exit (quiet))