2 ###############################################################################
6 # Action and DataType definitions for the Common Desktop Environment
7 # (CDE) Mailer Component.
9 # (c) Copyright 1993, 1994, 1995 Hewlett-Packard Company
10 # (c) Copyright 1993, 1994, 1995 International Business Machines Corp.
11 # (c) Copyright 1993, 1994, 1995 Sun Microsystems, Inc.
12 # (c) Copyright 1993, 1994, 1995 Novell, Inc.
14 # $TOG: dtmail.dt /main/11 1998/11/02 10:53:40 mgreess $
15 # @(#)dtmail.dt 1.32 10 Aug 1994
16 ###############################################################################
19 ###############################################################################
21 %|nls-10-#\# WARNING:...#|
23 ###############################################################################
25 ###################################################################
27 %|nls-11-#\# Data Attributes#|
29 ###################################################################
30 DATA_ATTRIBUTES DTMAIL_FILE
35 MOVE_TO_ACTION MailAppendRm
36 COPY_TO_ACTION MailAppend
38 MIME_TYPE message/rfc822
39 SUNV3_TYPE mail-message
40 DESCRIPTION %|nls-17001-#A DTMAIL_FILE ...#|
41 TYPE_LABEL %|nls-31104-#DTMAIL_FILE#|
43 DATA_CRITERIA DTMAIL_FILE1
45 DATA_ATTRIBUTES_NAME DTMAIL_FILE
46 CONTENT 64 string CDE-Mail-Application-MailBox-File
49 DATA_CRITERIA DTMAIL_FILE2
51 DATA_ATTRIBUTES_NAME DTMAIL_FILE
61 if [ "%(File)Arg_2%" != "%(File)Arg_1%" ];\
63 # check if the source is DTMAIL_FILE ;\
64 # we only accept DTMAIL_FILE as drag source ;\
65 IS_DTMAIL=`/usr/dt/bin/dttypes -type "%(File)Arg_2%"|grep DTMAIL_FILE`;\
66 if [ -n "\$IS_DTMAIL" ]; then \
67 ERROR=`cat "%(File)Arg_2%" >> "%(File)Arg_1%" \
68 2>/tmp/dtmail.\$\$ || cat /tmp/dtmail.\$\$`; \
69 [ -f /tmp/dtmail.\$\$ ] && /bin/rm -f /tmp/dtmail.\$\$; \
70 if [ -n "\$ERROR" ]; then \
71 /usr/dt/bin/dterror.ds \
72 "\$ERROR" "%|nls-13011-#Information#|" \
76 /usr/dt/bin/dterror.ds \
77 "%|nls-2035-#NO Action#|" \
78 "%|nls-13011-#Information#|" \
82 /usr/dt/bin/dterror.ds \
83 "%|nls-2035-#NO Action#|" \
84 "%|nls-13011-#Information#|" \
93 TYPE=`/usr/dt/bin/dttypes -type "%(File)Arg_2%" | \
94 grep \" is of type \" | sed /".* is of type "/s///`; \
95 if [ \$TYPE = "DTMAIL_FILE" ]; then \
96 cat "%(File)Arg_2%" >> "%(File)Arg_1%"; \
97 rm "%(File)Arg_2%" ; \
99 /usr/dt/bin/dterror.ds \
100 "%|nls-2035-#The datatype#|" \
101 "%|nls-13011-#Error#|" \
108 # The following action does not work. When dtmail exits, an error
113 LABEL %|nls-17002-Compose|
118 EXEC_STRING /usr/dt/bin/dtmail -c
122 LABEL %|nls-17002-Compose|
127 EXEC_STRING /usr/dt/bin/dtmail -a %Args%
140 LABEL %|nls-17002-Compose|
158 TT_ARG0_VTYPE %Arg_1%
159 TT_ARG0_REP_TYPE TT_REP_STRING
173 TT_ARG0_VTYPE %Arg_1%
174 TT_ARG0_REP_TYPE TT_REP_STRING
176 ########################### EOF ##############################################