DataMuseum.dk

top - download

    Length: 1498 (0x5da)
    Types: TextFile
    Notes: @(#)Form.send 13.1 (RC International) 91/07/25
    Names: »Form.send«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦97ad7467e⟧ »0005« 
        └─⟦this⟧ »./home/vmsys/OBJECTS/Form.send« 

TextFile

#	@(#)Form.send	13.1 (RC International) 91/07/25

#ident	"@(#)face:OBJECTS/Form.send	1.6"

form="$ARG1 Mail"

help=open text OBJECTS/Text.h "$T" "$F"

framemsg="Press CHOICES to select, then press SAVE when you complete the form."

altslks=true

`set -l EFRAME=false`

close=`indicator -w; rm -f /tmp/f.mx.${VPID}`

done=`run -n -t"Suspended Send Mail" /bin/sh -c "/usr/bin/mailx ${F1} 2>/tmp/f.mx.${VPID}";
	if [ -s /tmp/f.mx.${VPID} ];
	then
		if [ "${EFRAME}" = "false" ];
		then
			echo "OPEN TEXT OBJECTS/Text.merror /tmp/f.mx.${VPID}";
		else
			echo "update OBJECTS/Text.merror true";
		fi;
	else
		if [ "${EFRAME}" = "false" ];
		then
			echo "close OBJECTS/Form.send";
		else
			echo "close OBJECTS/Text.merror OBJECTS/Form.send";
		fi;
	fi`

name=To:
nrow=0
ncol=1
frow=0
fcol=5
rows=1
columns=48
scroll=true
rmenu=const { `sort +0 -1 -t: /etc/passwd | regex '^([^:][^:]*)$0:[^:]*:[0-9][0-9][0-9][0-9]*:[^:][^:]*:[^:]*:[^:][^:]*:.*$' '$m0'` }
lininfo=`set -l T="Send Mail" -l F=T.hsend1`
valid=`regex -v "${F1}" '^.+$' true '.*' false`
invalidmsg="This is a mandatory field."

name=HELP
button=9
action=help

name=CHOICES
button=10
action=choices

name=SAVE
button=11
action=done

name=PREV-FRM
button=12
action=prev-frm

name=NEXT-FRM
button=13
action=next-frm

name=CANCEL
button=14
action=`if [ "${EFRAME}" = "false" ];
	then
		echo "close OBJECTS/Form.send";
	else
		echo "close OBJECTS/Text.merror OBJECTS/Form.send";
	fi`

name=CMD-MENU
button=15
action=cmd-menu

name=""
button=16