This commit was generated by cvs2svn to compensate for changes in r416,
[elisp/tm.git] / methods / tm-html
1 #!/bin/sh
2 #
3 # $Id: tm-html,v 4.0 1996/03/11 15:05:27 morioka Exp $
4 #
5
6 if [ "$TM_TMP_DIR" = "" ]; then
7     TM_TMP_DIR=/tmp
8     export TM_TMP_DIR
9 fi
10
11 if [ "$TM_WWW_BROWSER" = "" ]; then
12     TM_WWW_BROWSER=netscape
13     export TM_WWW_BROWSER
14 fi
15
16 if [ "$5" = "" ]; then
17     filename="$TM_TMP_DIR/mime$$.html"
18 else
19     filename="$TM_TMP_DIR/$5"
20 fi
21
22 echo "$2; $3 -> $filename"
23
24 tmdecode "$3" $1 $filename
25
26 case "$4" in
27 "play")
28     if [ `echo $TM_WWW_BROWSER | grep -s netscape` ]; then
29         echo netscape
30         if [ -h $HOME/.netscape/lock ]; then
31             netscape -remote "openURL(file:$filename,new-window)"
32         else
33             netscape $filename
34         fi
35     else
36         echo not netscape
37         $TM_WWW_BROWSER $filename
38     fi
39     trap 'rm -f $filename' 0 1 2 3 13 15
40     ;;
41 "extract")
42     echo "extract to $filename"
43     ;;
44 esac