DataMuseum.dk

top - download

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

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/edmenu/Form.getpkg« 

TextFile

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

#ident	"@(#)oamintf:edsysadm/Form.getpkg	1.3"

################################################################################
#	Module Name: Form.getpkg
#	Date: March 1988
#
#	ARGS PASSED IN:
#			ARG1 -> menu/task flag
#
#	ARGS PASSED OUT:
#			ARG1 -> menu/task flag
#			F1   -> package description file name
################################################################################
form="Select Package to Change"

framemsg=`readfile $INTFBASE/form.msg`

help=OPEN TEXT $INTFBASE/Text.itemhelp $LININFO

`regex -e -v "$ARG1"
	'chgmenu' '`set -l OPT=-m; set -l OBJ=menu`'
	'addmenu' '`set -l OPT=-m; set -l OBJ=menu`'
	'chgtask' '`set -l OPT=-t; set -l OBJ=task`'
	'addtask' '`set -l OPT=-t; set -l OBJ=task`'`

done=`set -l GETINFO=/tmp/${VPID}pkg;

	message -w "Retrieving information from \"$F1\" file.";

	getpkgdesc $OPT $F1 > $GETINFO;

	if [ $RET -eq 0 ];
	then
		set -l CMD="OPEN FORM $EDSYSADM/Form.$OBJ $ARG1 $F1";

	else if $RET -eq 1 ];
	     then
		set -l CMD="OPEN MENU $EDSYSADM/Menu.choices $OBJ $F1 $ARG1";
	     else
		set -l CMD="OPEN TEXT $EDSYSADM/Text.gpderr $RET";
	     fi;
	fi`$CMD

name=File name:
lininfo=fname
nrow=1
ncol=1
frow=1
fcol=11
rows=1
columns=50
scroll=true

# validate pathname '-o' exist, '-w' is writeable and '-r' is readable.
valid=`valpath -owr "$F1"`

invalidmsg=const "Error: file does not exist."
choicemsg=const "Enter name of package description file."

name=RESET
button=8
action=reset