git.oblomov.eu Git - git/blob - git-web--browse.sh

   1 #!/bin/sh
   2 #
   3 # This program launch a web browser on the html page
   4 # describing a git command.
   5 #
   6 # Copyright (c) 2007 Christian Couder
   7 # Copyright (c) 2006 Theodore Y. Ts'o
   8 #
   9 # This file is heavily stolen from git-mergetool.sh, by
  10 # Theodore Y. Ts'o (thanks) that is:
  11 #
  12 # Copyright (c) 2006 Theodore Y. Ts'o
  13 #
  14 # This file is licensed under the GPL v2, or a later version
  15 # at the discretion of Junio C Hamano or any other official
  16 # git maintainer.
  17 #
  18
  19 USAGE='[--browser=browser|--tool=browser] [--config=conf.var] url/file ...'
  20
  21 # This must be capable of running outside of git directory, so
  22 # the vanilla git-sh-setup should not be used.
  23 NONGIT_OK=Yes
  24 . git-sh-setup
  25
  26 valid_custom_tool()
  27 {
  28         browser_cmd="$(git config "browser.$1.cmd")"
  29         test -n "$browser_cmd"
  30 }
  31
  32 valid_tool() {
  33         case "$1" in
  34                 firefox | iceweasel | konqueror | w3m | links | lynx | dillo | open | start)
  35                         ;; # happy
  36                 *)
  37                         valid_custom_tool "$1" || return 1
  38                         ;;
  39         esac
  40 }
  41
  42 init_browser_path() {
  43         browser_path=$(git config "browser.$1.path")
  44         test -z "$browser_path" && browser_path="$1"
  45 }
  46
  47 while test $# != 0
  48 do
  49     case "$1" in
  50         -b|--browser*|-t|--tool*)
  51             case "$#,$1" in
  52                 *,*=*)
  53                     browser=`expr "z$1" : 'z-[^=]*=\(.*\)'`
  54                     ;;
  55                 1,*)
  56                     usage ;;
  57                 *)
  58                     browser="$2"
  59                     shift ;;
  60             esac
  61             ;;
  62         -c|--config*)
  63             case "$#,$1" in
  64                 *,*=*)
  65                     conf=`expr "z$1" : 'z-[^=]*=\(.*\)'`
  66                     ;;
  67                 1,*)
  68                     usage ;;
  69                 *)
  70                     conf="$2"
  71                     shift ;;
  72             esac
  73             ;;
  74         --)
  75             break
  76             ;;
  77         -*)
  78             usage
  79             ;;
  80         *)
  81             break
  82             ;;
  83     esac
  84     shift
  85 done
  86
  87 test $# = 0 && usage
  88
  89 if test -z "$browser"
  90 then
  91     for opt in "$conf" "web.browser"
  92     do
  93         test -z "$opt" && continue
  94         browser="`git config $opt`"
  95         test -z "$browser" || break
  96     done
  97     if test -n "$browser" && ! valid_tool "$browser"; then
  98         echo >&2 "git config option $opt set to unknown browser: $browser"
  99         echo >&2 "Resetting to default..."
 100         unset browser
 101     fi
 102 fi
 103
 104 if test -z "$browser" ; then
 105     if test -n "$DISPLAY"; then
 106         browser_candidates="firefox iceweasel konqueror w3m links lynx dillo"
 107         if test "$KDE_FULL_SESSION" = "true"; then
 108             browser_candidates="konqueror $browser_candidates"
 109         fi
 110     else
 111         browser_candidates="w3m links lynx"
 112     fi
 113     # SECURITYSESSIONID indicates an OS X GUI login session
 114     if test -n "$SECURITYSESSIONID"; then
 115         browser_candidates="open $browser_candidates"
 116     fi
 117     # /bin/start indicates MinGW
 118     if test -x /bin/start; then
 119         browser_candidates="start $browser_candidates"
 120     fi
 121
 122     for i in $browser_candidates; do
 123         init_browser_path $i
 124         if type "$browser_path" > /dev/null 2>&1; then
 125             browser=$i
 126             break
 127         fi
 128     done
 129     test -z "$browser" && die "No known browser available."
 130 else
 131     valid_tool "$browser" || die "Unknown browser '$browser'."
 132
 133     init_browser_path "$browser"
 134
 135     if test -z "$browser_cmd" && ! type "$browser_path" > /dev/null 2>&1; then
 136         die "The browser $browser is not available as '$browser_path'."
 137     fi
 138 fi
 139
 140 case "$browser" in
 141     firefox|iceweasel)
 142         # Check version because firefox < 2.0 does not support "-new-tab".
 143         vers=$(expr "$($browser_path -version)" : '.* \([0-9][0-9]*\)\..*')
 144         NEWTAB='-new-tab'
 145         test "$vers" -lt 2 && NEWTAB=''
 146         "$browser_path" $NEWTAB "$@" &
 147         ;;
 148     konqueror)
 149         case "$(basename "$browser_path")" in
 150             konqueror)
 151                 # It's simpler to use kfmclient to open a new tab in konqueror.
 152                 browser_path="$(echo "$browser_path" | sed -e 's/konqueror$/kfmclient/')"
 153                 type "$browser_path" > /dev/null 2>&1 || die "No '$browser_path' found."
 154                 eval "$browser_path" newTab "$@"
 155                 ;;
 156             kfmclient)
 157                 eval "$browser_path" newTab "$@"
 158                 ;;
 159             *)
 160                 "$browser_path" "$@" &
 161                 ;;
 162         esac
 163         ;;
 164     w3m|links|lynx|open|start)
 165         eval "$browser_path" "$@"
 166         ;;
 167     dillo)
 168         "$browser_path" "$@" &
 169         ;;
 170     *)
 171         if test -n "$browser_cmd"; then
 172             ( eval $browser_cmd "$@" )
 173         fi
 174         ;;
 175 esac