Mercurial > hg > xemacs-beta
comparison lib-src/tm-html @ 4:b82b59fe008d r19-15b3
Import from CVS: tag r19-15b3
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:56 +0200 |
parents | |
children | 49a24b4fd526 |
comparison
equal
deleted
inserted
replaced
3:30df88044ec6 | 4:b82b59fe008d |
---|---|
1 #!/bin/sh | |
2 # | |
3 # $Id: tm-html,v 1.1.1.1 1996/12/18 03:52:12 steve 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 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 |