/*  (gH)   -_-  firef.rex  ;  TimeStamp (unix) : 01 Décembre 2005 vers 10:56 */

parse arg ligURI

if words(ligURI)=0 then do
   say
   say  "   firef : appel de firefox "
   say
   say  "   syntaxe  : firef URI [ h | f | a | d ]"
   say  "      h = ajout de http://"
   say  "      f = ajout de file://"
   say  "      a = ajout de file:// et du chemin absolu "
   say  "      d = sans URL"
   say
   say  "   exemples : firef www.google.fr h"
   say  "                  équivaut à "
   say  "                  firefox http://www.google.fr "
   say  "              firef essai.htm a"
   say  "                  équivaut à (si on est dans le répertoire /home/info/gh/Tmp/"
   say  "                  firef file://essai.htm a"
   say  "              firefox /home/info/gh/Tmp/essai.htm f"
   say  "                  équivaut à "
   say  "                  firef file:///home/info/gh/Tmp/essai.htm a"
   say  "              firef d "
   say  "                  équivaut à "
   say  "                  firefox "
   say
   exit
end /* fin de si */

parse var ligURI URI modeURI
debURI = ""

if words(modeURI)=0 then URI = "" ; else do
   select
     when translate(modeURI)="H" then do
          debURI = "http://"
     end /* fin de when*/
     when translate(modeURI)="F" then do
          debURI = "file://"
     end /* fin de when*/
     when translate(modeURI)="A" then do
          chemf  = fileut("currentDir")
          debURI = "file://"||chemf"/"
     end /* fin de when*/
     otherwise URI = ""
   end /* fin de select */
end /* fin de si */

URIfinale = debURI||URI
cmd = "firefox " URIfinale "&"
say "   " cmd
cmd