Andrew's git - gitweb.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
  19USAGE='[--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.
  23NONGIT_OK=Yes
  24. git-sh-setup
  25
  26valid_custom_tool()
  27{
  28        browser_cmd="$(git config "browser.$1.cmd")"
  29        test -n "$browser_cmd"
  30}
  31
  32valid_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
  42init_browser_path() {
  43        browser_path=$(git config "browser.$1.path")
  44        test -z "$browser_path" && browser_path="$1"
  45}
  46
  47while test $# != 0
  48do
  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
  85done
  86
  87test $# = 0 && usage
  88
  89if test -z "$browser"
  90then
  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
 102fi
 103
 104if 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" \
 115            -o "$TERM_PROGRAM" = "Apple_Terminal" ; then
 116        browser_candidates="open $browser_candidates"
 117    fi
 118    # /bin/start indicates MinGW
 119    if test -x /bin/start; then
 120        browser_candidates="start $browser_candidates"
 121    fi
 122
 123    for i in $browser_candidates; do
 124        init_browser_path $i
 125        if type "$browser_path" > /dev/null 2>&1; then
 126            browser=$i
 127            break
 128        fi
 129    done
 130    test -z "$browser" && die "No known browser available."
 131else
 132    valid_tool "$browser" || die "Unknown browser '$browser'."
 133
 134    init_browser_path "$browser"
 135
 136    if test -z "$browser_cmd" && ! type "$browser_path" > /dev/null 2>&1; then
 137        die "The browser $browser is not available as '$browser_path'."
 138    fi
 139fi
 140
 141case "$browser" in
 142    firefox|iceweasel)
 143        # Check version because firefox < 2.0 does not support "-new-tab".
 144        vers=$(expr "$($browser_path -version)" : '.* \([0-9][0-9]*\)\..*')
 145        NEWTAB='-new-tab'
 146        test "$vers" -lt 2 && NEWTAB=''
 147        "$browser_path" $NEWTAB "$@" &
 148        ;;
 149    konqueror)
 150        case "$(basename "$browser_path")" in
 151            konqueror)
 152                # It's simpler to use kfmclient to open a new tab in konqueror.
 153                browser_path="$(echo "$browser_path" | sed -e 's/konqueror$/kfmclient/')"
 154                type "$browser_path" > /dev/null 2>&1 || die "No '$browser_path' found."
 155                eval "$browser_path" newTab "$@"
 156                ;;
 157            kfmclient)
 158                eval "$browser_path" newTab "$@"
 159                ;;
 160            *)
 161                "$browser_path" "$@" &
 162                ;;
 163        esac
 164        ;;
 165    w3m|links|lynx|open)
 166        eval "$browser_path" "$@"
 167        ;;
 168    start)
 169        exec "$browser_path" '"web-browse"' "$@"
 170        ;;
 171    dillo)
 172        "$browser_path" "$@" &
 173        ;;
 174    *)
 175        if test -n "$browser_cmd"; then
 176            ( eval $browser_cmd "$@" )
 177        fi
 178        ;;
 179esac