tm 7.17.

[elisp/tm.git] / methods / tm-www

diff --git a/methods/tm-www b/methods/tm-www
new file mode 100755 (executable)
index 0000000..194b488
--- /dev/null
+++ b/methods/tm-www
@@ -0,0 +1,30 @@
+#!/bin/sh
+if [ "$TM_TMP_DIR"="" ]; then
+       TM_TMP_DIR=/tmp
+       export TM_TMP_DIR
+fi
+
+if [ "$TM_WWW_BROWSER"="" ]; then
+       TM_WWW_BROWSER=netscape
+       export TM_WWW_BROWSER
+fi
+
+if [ "$5" = "" ]; then
+       filename="$TM_TMP_DIR/mime$$.html"
+else
+       filename="$TM_TMP_DIR/$5"
+fi
+
+echo "$2; $3 -> $filename"
+
+tmdecode $3 $1 $filename
+
+case "$4" in
+"play")
+       $TM_WWW_BROWSER $filename
+       /bin/rm $filename
+       ;;
+"extract")
+       echo "extract to $filename"
+       ;;
+esac