tm 7.33.
[elisp/tm.git] / methods / tm-image
1 #!/bin/sh
2 if [ "$TM_TMP_DIR" = "" ]; then
3         TM_TMP_DIR=/tmp
4         export TM_TMP_DIR
5 fi
6 if [ "$5" = "" ]; then
7         case "$2" in
8         "image/gif")
9                 filename="$TM_TMP_DIR/mime$$.gif"
10                 ;;
11         "image/jpeg")
12                 filename="$TM_TMP_DIR/mime$$.jpg"
13                 ;;
14         "image/tiff"|"image/x-tiff")
15                 filename="$TM_TMP_DIR/mime$$.tif"
16                 ;;
17         "image/x-xwd")
18                 filename="$TM_TMP_DIR/mime$$.xwd"
19                 ;;
20         "image/x-xbm")
21                 filename="$TM_TMP_DIR/mime$$.xbm"
22                 ;;
23         "image/x-pic")
24                 filename="$TM_TMP_DIR/mime$$.pic"
25                 ;;
26         *)
27                 filename="$TM_TMP_DIR/mime$$.img"
28                 ;;
29         esac
30 else
31         filename="$TM_TMP_DIR/$5"
32 fi
33
34 echo "$2; $3 -> $filename"
35
36 tmdecode $3 $1 $filename
37
38 case "$4" in
39 "play")
40         xv -geometry +1+1 $filename
41         /bin/rm $filename
42         ;;
43 "extract")
44         echo "extract to $filename"
45         ;;
46 esac