home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!munnari.oz.au!network.ucsd.edu!mvb.saic.com!vmsnet-sources
- From: tanner@cerritos.edu
- Newsgroups: vmsnet.sources
- Subject: DWProfile V3.3, part 04/06
- Message-ID: <9908601@MVB.SAIC.COM>
- Date: Mon, 04 Jan 1993 20:47:29 GMT
- Organization: Cerritos College, Norwalk CA
- Lines: 1566
- Approved: Mark.Berryman@Mvb.Saic.Com
-
- Submitted-by: tanner@cerritos.edu
- Posting-number: Volume 4, Issue 29
- Archive-name: dwprofile/part04
-
- -+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
- X if (XtIsManaged(help_box)) `7B /* there's already a help box up, make a
- Vnother one */
- X XtSetArg(arglist`5Bac`5D, DXmNfirstTopic, topic); ac++;
- X temp_help_box = DXmCreateHelpDialog (toplevel, "help_box", arglist,
- V ac);
- X XtAddCallback(temp_help_box, XmNunmapCallback, DestroyHelpCallback,
- V NULL);
- X XmStringFree(appname);
- X XmStringFree(overviewtopic);
- X XmStringFree(libspec);
- X XmStringFree(topic);
- X XtManageChild(temp_help_box);
- X return;
- X `7D
- X else `7B /* exists but is unmanaged */
- X ac = 0;
- X XtSetArg(arglist`5Bac`5D, DXmNfirstTopic, topic); ac++;
- X XtSetValues(help_box, arglist, ac);
- X `7D
- X
- X XmStringFree(topic);
- X XtManageChild(help_box);
- X`7D
- X
- X
- X/*
- X * Destroy generic help widget when it gets unmapped
- X */
- X
- Xstatic XtCallbackProc DestroyHelpCallback(Widget widget, XtPointer data,
- X XmAnyCallbackStruct *reason)
- X`7B
- X XtDestroyWidget(widget);
- X`7D
- $ CALL UNPACK DWPROFILE.C;445 1188484934
- $ create 'f'
- X# local configuration
- X#DWProfile.quota: 2000
- X#DWProfile.overdraft: 100
- X#DWProfile.defaultIdent: STAFF
- X#DWProfile.showAccounts: True
- X#DWProfile.showIdents: True
- X#DWProfile.PopupTime: 2000
- X#DWProfile.minimumGroup: 128
- X#DWProfile.maximumGroup: 230
- X
- XDWProfile*fontList: -Adobe-Helvetica-Bold-R-Normal--12-120-75-75-P-*-*-*
- X
- XDWProfile.x: 15
- XDWProfile.y: 40
- X
- XDWProfile.dwprofile_main.height: 610
- XDWProfile.dwprofile_main.width: 620
- XDWProfile.dwprofile_main*main_box*XmText*marginHeight: 1
- X#DWProfile.dwprofile_main*main_box*XmToggleButton*marginHeight: 0
- X
- XDWProfile*access_box.x: 10
- XDWProfile*access_box.y: 690
- X
- XDWProfile*accounts_box.x: 720
- XDWProfile*accounts_box.y: 540
- X
- XDWProfile*idents_box.x: 100
- XDWProfile*idents_box.y: 700
- X
- XDWProfile*privs_box.x: 660
- XDWProfile*privs_box.y: 45
- XDWProfile*privs_box.height: 460
- XDWProfile*privs_box.width: 330
- XDWProfile*privs_box*numColumns: 4
- $ CALL UNPACK DWPROFILE.DAT;91 53547320
- $ create 'f'
- X1 overview`20
- X=Title Overview of DWProfile
- X=Keyword overview
- X=Include menus
- X=Include fields
- X
- XDWProfile is a DECwindows application that provides
- Xmost of the functionality of the Authorize utility.`20
- XYou can add, delete, modify accounts and grant and
- Xrevoke identifiers.
- X
- X2 create
- X=Title Create new user
- X=Keyword create new_user
- X=Include menus file read
- X=Include menus file write
- X
- XTo create a new UAF record, perform the following steps:
- X 1. Place the new username in the User: field.
- X 2. Press return or click on the Read button.
- X 3. Edit the Owner field.
- X 4. Bring up the Accounts window.
- X 5. Double click on the account the user will have
- X or enter a new account name and select Apply
- X or enter the account name in the Account: field
- X and press return.
- X 6. Update any other information specific to the user.
- X 7. Click on the Write button.
- X
- X(Write will also create a directory for the user).
- X
- X2 modify
- X=Title Modify an existing record
- X=Keyword Modify
- X=Include menus file read
- X=Include menus file write
- X
- XTo modify a UAF record, perform the following steps:
- X 1. Place the username in the User: field.
- X 2. Press return or click on the Read button.
- X 3. Update any of the information in the windows.
- X 4. Click on the Write button.
- X
- X(If the UIC has changed, Write will reset the ownership
- Xof all the user's files).
- X
- X2 delete
- X=Title Delete an existing record
- X=Keyword Delete
- X=Include menus file remove
- X
- XTo delete a UAF record, perform the following steps:
- X 1. Place the username in the User: field.
- X 4. Click on the Remove button.
- X
- X(Remove will delete the user's files and directory).
- X
- X1 version
- X=Title About DWProfile
- X=Keyword about version
- X
- XDWProfile V3.3
- X
- XWritten by Bruce Tanner (TANNER@Cerritos.EDU)
- X
- XIf you find this program useful, drop me a note so I
- Xcan have an idea of how many copies are being used out
- Xthere.
- X
- X1 menus
- X=Title DWProfile Menus
- X=Keyword menus
- X
- XThere are three menus in DWProfile:
- X
- X* A File menu to perform operations on UAF records.
- X
- X* A Windows menu to bring up secondary windows.
- X
- X* A Select menu to specify which attributes to find.
- X
- X2 file
- X=Title The File Menu
- X=Keyword file
- X
- XThe File menu controls the actions performed by
- XDWProfile. Most of these actions are also available as
- Xbuttons at the bottom of the main window.
- X
- X3 read_identifiers
- X=Title Read Identifiers menu item
- X
- XRead Identifiers will read all the identifiers from the
- Xrightslist file. This is normally not needed since
- Xthose actions that require identifiers will initiate
- Xthis action automatically. It may be necessary to
- Xperform a Read Identifiers if any identifiers have been
- Xcreated outside DWProfile since a Read Identifiers has
- Xbeen performed.
- X
- X3 read
- X=Title Read button/menu item
- X
- XRead will display the UAF record specified by the User:
- Xtext field. If there is no UAF record matching the
- Xuser name, the DEFAULT record's entries will be
- Xdisplayed. An optional warning box will pop up to
- Xindicate that the user does not currently exist.
- X
- X3 find_next
- X=Title Find Next button/menu item
- X=Include menus select
- X
- XFind Next will display the next UAF record that matches
- Xthe selection criteria given by the Select menu. If
- Xthere are no selection criteria, or if there are no
- Xmore records that match the criteria, the menu item
- Xwill be disabled. If the selection background process
- Xis still running, a box will pop up showing how many of
- Xthe UAF records have been searched.
- X
- X3 write
- X=Title Write button/menu item
- X
- XWrite will create or update the UAF user record with
- Xthe values that have been set in the windows. No
- Xmodifications will be made until the Write menu item or
- XWrite button is selected. An optional message box will
- Xpop up indicating that a write operation has been
- Xperformed.
- X
- X3 remove
- X=Title Remove button/menu item
- X
- XRemove will delete the UAF user record specified by the
- XUser: text field. A confirmation box will allow you to
- Xcancel the removal.
- X
- X3 quit
- X=Title Quit button/menu item
- X
- XQuit exits DWprofile. Any user record currently
- Xdisplayed will not be modified.
- X
- X2 windows
- X=Title The Windows Menu
- X=Keyword windows
- X
- XThe Windows menu controls the secondary windows
- Xdisplayed by DWProfile. If a window is displayed, its`20
- Xtoggle button will be 'on'.
- X
- X3 access
- X=Title Access window
- X=Keyword access
- X
- XThe Access window displays the days of the week that
- Xare primary as 'on' toggle buttons. Click on the
- Xtoggle buttons to change the primary days.
- X
- XThis window also shows which hours of the day the user
- Xcan login on network, batch, local, dialup and remote
- Xterminals. Click (or click and drag) on the black bars
- Xto change the hours of the day for each category.
- X
- X3 accounts
- X=Title Accounts window
- X=Keyword accounts
- X
- XThe Accounts window displays a list of identifiers that
- Xhave the value `5Bn,177777`5D which should correspond to
- Xall the possible account strings. If you select
- X(double click on a list item or click and Accept) an
- Xaccount, the Account field will be updated and a new
- XUIC will be assigned to the next higher member number
- Xin the selected group.
- X
- X3 idents
- X=Title Idents window
- X=Keyword identifiers
- X
- XThe Idents window displays two lists of identifiers;
- Xa list of all the identifiers assignable to the user
- Xand a list of the identifiers held by the user.
- X
- XTo assign a new identifier to the user, click on the
- Xidentifier in the left list. To revoke an identifier,
- Xclick on the identifier in the right list.
- X
- X3 privs
- X=Title Privs window
- X=Keyword privileges
- X
- XThe Privs window displays a set of toggle buttons for
- Xboth assigned and default privileges. Privileges that
- Xare 'on' are enabled.
- X
- X2 select
- X=Title The Select Menu
- X=Keyword select find_next
- X=Include menus file find_next
- X
- XThe select menu allows you to choose a field to
- Xassociate with the 'Find Next' button. When a
- Xmenu item is chosen, the value in that text field
- X(which may contain * and % wild cards) is saved and a
- Xbackground process is started that matches each UAF
- Xrecord against the chosen field.
- X
- X3 restart
- X=Title Reset Last Search
- X
- XThis menu item resets the pointer used by 'Find Next'
- Xto the beginning of the list of found UAF records
- Xwithout actually performing the search again.
- X
- X1 fields
- X=Title UAF Fields
- X=Keyword UAF_Fields
- X=Include menus windows access
- X=Include menus windows idents
- X=Include menus windows privs
- X
- XThe UAF fields available through DWProfile can be
- Xcategorized by their placement on the various windows.
- X
- XThe Text group is on the top of the main window and
- Xcontains mostly textual items.
- X
- XThe Flags group is in the middle of the main window and
- Xare all on/off items.
- X
- XThe Quotas group is on the bottom of the main window
- Xand contains numerical quotas.
- X
- XThe Access group is on a separate window and contains
- Xthe times and days of the week for various types of
- Xlogin.
- X
- XThe Identifiers group is on a separate window and
- Xcontains all the assignable identifiers and the
- Xidentifiers held by a user.
- X
- XThe Privs group is on a separate window and contains
- Xthe authorized and default privileges.
- X
- X2 text
- X=Title The Text Group
- X
- XThe Text group contains 13 fields. Most of these
- Xfields can be used by the 'Select' menu.
- X
- X3 user
- X=Title User field
- X=Include menus select
- X
- XThe user field contains the user name, 12 characters
- Xmaximum. It is required for the Read, Write and Remove
- Xfunctions.
- X
- XIf a return is pressed while in this field, a Read
- Xfunction is performed.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select User' menu item to select the
- Xpattern to match against user names.
- X
- X3 owner
- X=Title Owner field
- X=Include menus select
- X
- XThe owner field contains the full name of the user, 32
- Xcharacters maximum. It is required for the Write
- Xfunction.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Owner' menu item to select the
- Xpattern to match against owner fields.
- X
- X3 account
- X=Title Account field
- X=Include menus windows accounts
- X=Include menus select
- X
- XThe account field contains the account string for the
- Xuser, 8 characters maximum. It is required for the
- XWrite function.
- X
- XIf a return is pressed in this field and the UIC is
- X`5B0,0`5D, a new UIC will be calculated.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against account strings.
- X
- X3 password
- X=Title Password field
- X
- XThe password field contains the password, 32
- Xcharacters maximum. It is not displayed when a UAF
- Xrecord is read.
- X
- X3 pwdmin
- X=Title Password Length field
- X
- XThe password length field specifies the minimum
- Xpassword length given to the SET PASSWORD command. It
- Xdoes not apply to the passwords set by DWProfile.
- X
- X3 uic
- X=Title UIC field
- X=Include menus select
- X
- XThe UIC field contains the User Identification Code for
- Xthe user in the form `5Bgroup,member`5D, where group and
- Xmember are octal numbers. It is required for the Write
- Xoperation.
- X
- XIf it is modified, the ownership of the files in the
- Xdirectory specified by the Device and Directory fields
- Xis changed to the new UIC.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against UICs.
- X
- X3 device
- X=Title Device field
- X=Include menus select
- X
- XThe device field contains the disk (or logical) name
- Xthat forms the root directory tree used with the
- Xdirectory field to form the user home directory.
- X
- XIf the device is changed, the MOVE_DIRECTORY command
- Xfile is spawned to move the directory tree to the new
- Xdevice.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against devices.
- X
- X
- X3 directory
- X=Title Directory field
- X=Include menus select
- X
- XThe directory field contains the name of the home
- Xdirectory for the user.
- X
- XIf the directory is changed, the MOVE_DIRECTORY command
- Xfile is spawned to move the directory tree.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against directories.
- X
- X3 cli
- X=Title CLI field
- X=Include menus select
- X
- XThe CLI field contains the name of the Command Line
- XInterpreter (DCL, Posix, etc.) for the user.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against CLIs.
- X
- X3 lgicmd
- X=Title LGICMD field
- X=Include menus select
- X
- XThe LGICMD field contains the name of the login command
- Xfile (normally LOGIN) for the user.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against LGICMDs.
- X
- X3 table
- X=Title Table field
- X=Include menus select
- X
- XThe table field contains the name of the default DCL
- Xcommand table (normally DCLTABLES) for the user.
- X
- XThis field (including * and % wildcard characters) is
- Xalso used by the 'Select Account' menu item to select
- Xthe pattern to match against tables.
- X
- X3 lifetime
- X=Title Password Lifetime field
- X=Include menus select
- X
- XThe password lifetime field contains the delta time
- X(dddd hh:mm:ss.cc) that specifies the number of days,
- Xhours and minutes between mandatory password changes.`20
- XIf hh:mm:ss.cc is omitted, 00:00:00.00 is assumed.
- X
- XThis field is also used by the 'Select Account' menu
- Xitem to select the time to match against password
- Xlifetimes.
- X
- X3 expiration
- X=Title Expiration field
- X=Include menus select
- X
- XThe expiration field contains the date and time that
- Xthe UAF record will be denied login. Normally it is
- X(none), meaning no expiration. The syntax for the
- Xfield is dd-mmm-yyyy hh:mm:ss.cc. If hh:mm:ss.cc is
- Xomitted, 00:00:00.00 (midnight) is assumed.
- X
- X2 flags
- X=Title The Flags group
- X
- XThe Flags group has 20 toggle buttons. The buttons
- Xindicate on/off capabilities, with the 'on' condition
- Xindicating that the capability is enabled.
- X
- X2 quotas
- X=Title The Quotas group
- X
- XThe Quotas group has 21 fields that contain
- Xnumeric values indicating per-process and per-job
- Xquotas.
- X
- $ CALL UNPACK DWPROFILE.HLP;21 1886389860
- $ create 'f'
- Xmodule DWProfile
- X`09names = case_sensitive
- X
- X objects = `7B
- X XmSeparator = gadget;
- X XmLabel = gadget;
- X XmPushButton = gadget;
- X XmToggleButton = gadget;
- X `7D
- X
- X
- Xprocedure
- X`09WidgetCreated(integer);
- X`09WidgetChanged(integer);
- X`09Help(string);
- X
- Xvalue
- X`09k_label_deltax:`09`095;`09! offset from left side of form to XmLabel
- X`09k_text_deltax:`09`0990;`09! part 3 offset from left side of form to text
- V widget
- X`09k_text_deltax1:`09`0980;`09! col 1 offset from left side of form to text
- V widget
- X`09k_text_deltax2:`09`0990;`09! col 2 offset from left side of form to text
- V widget
- X`09k_text_deltax3:`09`0975;`09! col 3 offset from left side of form to text
- V widget
- X`09k_label_form_offset:`095;`09! offset from top of form to XmLabel (to alig
- Vn with widget)
- X`09k_flag_margin:`09`090;
- X`09k_tab1:`09`09`090;
- X`09k_tab2:`09`09`09220;
- X`09k_tab3:`09`09`09420;
- X`09k_col1:`09`09`090;
- X`09k_col2:`09`09`09200;
- X`09k_col3:`09`09`09400;
- X
- X`09k_line_height:`09`0930;
- X`09k_dialog_y:`09`0930;
- X`09k_line_1_y:`09`0910;
- X`09k_line_2_y:`09`09k_line_1_y + k_line_height;
- X`09k_line_3_y:`09`09k_line_2_y + k_line_height;
- X`09k_line_4_y:`09`09k_line_3_y + k_line_height;
- X`09k_line_5_y:`09`09k_line_4_y + k_line_height;
- X`09k_line_login_y:`09`09k_line_5_y + k_line_height + 5;
- X`09k_flags_y:`09`09k_line_login_y + k_line_height;
- X`09k_line_6_y:`09`09k_flags_y + 105;
- X`09k_line_7_y:`09`09k_line_6_y + k_line_height;
- X`09k_line_8_y:`09`09k_line_7_y + k_line_height;
- X`09k_line_9_y:`09`09k_line_8_y + k_line_height;
- X`09k_line_10_y:`09`09k_line_9_y + k_line_height;
- X`09k_line_11_y:`09`09k_line_10_y + k_line_height;
- X`09k_line_12_y:`09`09k_line_11_y + k_line_height;
- X`09k_functions_y:`09`09k_line_12_y + k_line_height + 20;
- X
- X`09k_main_height:`09`09k_functions_y + 80;
- X`09k_main_width:`09`09620;
- X
- X
- Xobject
- X`09dwprofile_main: XmMainWindow `7B
- X`09`09arguments `7B
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmMenuBar`09menu;
- X`09`09`09XmBulletinBoard`09main_box;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNhelpCallback = procedure Help("overview");
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09main_box: XmBulletinBoard `7B
- X`09`09arguments `7B
- X`09`09`09XmNy = k_dialog_y;
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmForm`09user;
- X`09`09`09XmForm`09owner;
- X`09`09`09XmForm`09account;
- X`09`09`09XmForm`09uic;
- X`09`09`09XmLabel`09uic_trans;
- X`09`09`09XmForm`09device;
- X`09`09`09XmForm`09table;
- X`09`09`09XmForm`09cli;
- X`09`09`09XmForm`09directory;
- X`09`09`09XmForm`09lgicmd;
- X`09`09`09XmForm`09password;
- X`09`09`09XmForm`09lastlogin_i;
- X`09`09`09XmForm`09lastlogin_n;
- X`09`09`09XmForm`09logfails;
- X`09`09`09XmSeparator`09sep1;
- X`09`09`09XmRowColumn`09flags;
- X`09`09`09XmSeparator`09sep2;
- X`09`09`09XmForm`09expiration;
- X`09`09`09XmForm`09pwdlifetime;
- X`09`09`09XmForm`09pwdlength;
- X`09`09`09XmForm`09maxjobs;
- X`09`09`09XmForm`09fillm;
- X`09`09`09XmForm`09bytlm;
- X`09`09`09XmForm`09maxacctjobs;
- X`09`09`09XmForm`09shrfillm;
- X`09`09`09XmForm`09pbytlm;
- X`09`09`09XmForm`09maxdetach;
- X`09`09`09XmForm`09biolm;
- X`09`09`09XmForm`09jtquota;
- X`09`09`09XmForm`09prclm;
- X`09`09`09XmForm`09diolm;
- X`09`09`09XmForm`09wsdef;
- X`09`09`09XmForm`09prio;
- X`09`09`09XmForm`09astlm;
- X`09`09`09XmForm`09wsquota;
- X`09`09`09XmForm`09queprio;
- X`09`09`09XmForm`09tqelm;
- X`09`09`09XmForm`09wsextent;
- X`09`09`09XmForm`09cpu;
- X`09`09`09XmForm`09enqlm;
- X`09`09`09XmForm`09pgflquo;
- X`09`09`09XmRowColumn`09functions;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X
- Xinclude file '`5B`5Dtext.uil';
- Xinclude file '`5B`5Dflags.uil';
- Xinclude file '`5B`5Dquotas.uil';
- Xinclude file '`5B`5Dbuttons.uil';
- Xend module;
- $ CALL UNPACK DWPROFILE.UIL;44 436301396
- $ create 'f'
- Xvalue
- X`09k_disctly_button:`090;
- X`09k_defcli_button:`091;
- X`09k_lockpwd_button:`092;
- X`09k_restricted_button:`093;
- X`09k_disacnt_button:`094;
- X`09k_diswelcom_button:`095;
- X`09k_dismail_button:`096;
- X`09k_nomail_button:`097;
- X`09k_genpwd_button:`098;
- X`09k_pwd_button:`09`099;
- X`09k_pwd2_button:`09`0910;
- X`09k_audit_button:`09`0911;
- X`09k_disreport_button:`0912;
- X`09k_disreconnect_button:`0913;
- X`09k_autologin_button:`0914;
- X`09k_disforce_button:`0915;
- X`09k_captive_button:`0916;
- X`09k_disimage_button:`0917;
- X`09k_dispwddic_button:`0918;
- X`09k_dispwdhis_button:`0919;
- X
- X`09k_disctly_label_text:`09`09"Disctly";
- X`09k_defcli_label_text:`09`09"Defcli";
- X`09k_lockpwd_label_text: `09`09"Lockpwd";
- X`09k_restricted_label_text:`09"Restricted";`09! old captive becomes restrict
- Ved
- X`09k_disacnt_label_text:`09`09"Disuser";`09! disable accnt = disable user ?
- X`09k_diswelcom_label_text:`09`09"Diswelcome";`09! looks better with the 'e'
- X`09k_dismail_label_text:`09`09"Dismail";
- X`09k_nomail_label_text:`09`09"Disnewmail";`09! ??
- X`09k_genpwd_label_text:`09`09"Genpwd";
- X`09k_pwd_label_text: `09`09"Pwd Exp";
- X`09k_pwd2_label_text:`09`09"Pwd2 Exp";
- X`09k_audit_label_text:`09`09"Audit";
- X`09k_disreport_label_text:`09`09"Disreport";
- X`09k_disreconnect_label_text:`09"Disreconnect";
- X`09k_autologin_label_text:`09`09"Autologin";
- X`09k_disforce_label_text:`09`09"Disforce";
- X`09k_disimage_label_text:`09`09"Disimage";
- X`09k_captive_label_text:`09`09"Captive";
- X`09k_dispwddic_label_text:`09`09"Dispwddic";
- X`09k_dispwdhis_label_text:`09`09"Dispwdhis";
- X
- X`09k_widget_disctly:`09k_disctly_button;
- X`09k_widget_defcli:`09k_defcli_button;
- X`09k_widget_lockpwd:`09k_lockpwd_button;
- X`09k_widget_restricted:`09k_restricted_button;
- X`09k_widget_disacnt:`09k_disacnt_button;
- X`09k_widget_diswelcom:`09k_diswelcom_button;
- X`09k_widget_dismail:`09k_dismail_button;
- X`09k_widget_nomail:`09k_nomail_button;
- X`09k_widget_genpwd:`09k_genpwd_button;
- X`09k_widget_pwd:`09`09k_pwd_button;
- X`09k_widget_pwd2:`09`09k_pwd2_button;
- X`09k_widget_audit:`09`09k_audit_button;
- X`09k_widget_disreport:`09k_disreport_button;
- X`09k_widget_disreconnect:`09k_disreconnect_button;
- X`09k_widget_autologin:`09k_autologin_button;
- X`09k_widget_disforce:`09k_disforce_button;
- X`09k_widget_captive:`09k_captive_button;
- X`09k_widget_disimage:`09k_disimage_button;
- X`09k_widget_dispwddic:`09k_dispwddic_button;
- X`09k_widget_dispwdhis:`09k_dispwdhis_button;
- X
- Xprocedure
- X`09FlagsCreated(integer);
- X`09FlagsChanged(integer);
- X
- Xobject
- X`09sep1: XmSeparator `7B
- X`09`09arguments `7B
- X`09`09`09XmNx = k_main_width / 10;
- X`09`09`09XmNwidth = k_main_width * 8 / 10;
- X`09`09`09XmNy = k_flags_y - 2;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- Xobject
- X`09sep2: XmSeparator `7B
- X`09`09arguments `7B
- X`09`09`09XmNx = k_main_width / 10;
- X`09`09`09XmNwidth = k_main_width * 8 / 10;
- X`09`09`09XmNy = k_line_6_y - 10;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- Xobject
- X`09flags: XmRowColumn `7B
- X`09`09arguments `7B
- X`09`09`09XmNy = k_flags_y;
- X`09`09`09XmNx = 30;
- X`09`09`09XmNnumColumns = 4;
- X`09`09`09XmNorientation = XmHORIZONTAL;
- X`09`09`09XmNpacking = XmPACK_COLUMN;
- X`09`09`09XmNspacing = 0;
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmToggleButton audit_button;
- X`09`09`09XmToggleButton autologin_button;
- X`09`09`09XmToggleButton captive_button;
- X`09`09`09XmToggleButton defcli_button;
- X`09`09`09XmToggleButton disctly_button;
- X`09`09`09XmToggleButton disforce_button;
- X`09`09`09XmToggleButton disimage_button;
- X`09`09`09XmToggleButton dismail_button;
- X`09`09`09XmToggleButton nomail_button;
- X`09`09`09XmToggleButton dispwddic_button;
- X`09`09`09XmToggleButton dispwdhis_button;
- X`09`09`09XmToggleButton disreconnect_button;
- X`09`09`09XmToggleButton disreport_button;
- X`09`09`09XmToggleButton disacnt_button;
- X`09`09`09XmToggleButton diswelcom_button;
- X`09`09`09XmToggleButton genpwd_button;
- X`09`09`09XmToggleButton lockpwd_button;
- X`09`09`09XmToggleButton pwd_button;
- X`09`09`09XmToggleButton pwd2_button;
- X`09`09`09XmToggleButton restricted_button;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNhelpCallback = procedure Help("fields flags");
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disctly_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disctly_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disctly_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disctly);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09defcli_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_defcli_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_defcli_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_defcli);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09lockpwd_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_lockpwd_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_lockpwd_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_lockpwd);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09restricted_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_restricted_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_restricted_butto
- Vn);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_restricted);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disacnt_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disacnt_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disacnt_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disacnt);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09diswelcom_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_diswelcom_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_diswelcom_button
- V);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_diswelcom);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09dismail_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_dismail_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dismail_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dismail);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09nomail_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_nomail_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_nomail_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_nomail);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09genpwd_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_genpwd_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_genpwd_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_genpwd);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09pwd_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_pwd_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_pwd_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09pwd2_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_pwd2_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_pwd2_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_pwd2);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09audit_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_audit_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_audit_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_audit);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disreport_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disreport_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disreport_button
- V);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disreport);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disreconnect_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disreconnect_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disreconnect_but
- Vton);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disreconnect);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09autologin_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_autologin_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_autologin_button
- V);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_autologin);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disforce_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disforce_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disforce_button)
- V;
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disforce);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09disimage_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_disimage_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_disimage_button)
- V;
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_disimage);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09captive_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_captive_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_captive_button);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_captive);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09dispwddic_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_dispwddic_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dispwddic_button
- V);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwddic);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09dispwdhis_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_dispwdhis_label_text;
- X`09`09`09XmNmarginHeight = k_flag_margin;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNvalueChangedCallback = procedure FlagsChanged(k_dispwdhis_button
- V);
- X`09`09`09MrmNcreateCallback = procedure FlagsCreated(k_widget_dispwdhis);
- X`09`09`09`7D;
- X`09`09`7D;
- $ CALL UNPACK FLAGS.UIL;51 86073164
- $ create 'f'
- Xmodule Idents
- X`09names = case_sensitive
- X
- X objects = `7B
- X XmSeparator = gadget;
- X XmLabel = gadget;
- X XmPushButton = gadget;
- X XmToggleButton = gadget;
- X `7D
- X
- Xprocedure
- X`09WidgetCreated(integer);
- X`09ListSelect(integer);
- X`09Help(string);
- X
- Xvalue
- X`09k_widget_held_list:`098;
- X`09k_widget_all_list:`099;
- X
- Xobject
- X`09idents_box: XmBulletinBoardDialog `7B
- X`09`09arguments `7B
- X`09`09`09XmNdialogTitle = "DWProfile: Rightslist Identifiers";
- X`09`09`09XmNdefaultPosition = false;
- X`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmForm`09`09idents_form;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNhelpCallback = procedure Help("menus windows idents");
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09idents_form: XmForm `7B
- X`09`09controls `7B
- X`09`09`09XmForm`09`09all_form;
- X`09`09`09XmForm`09`09held_form;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09all_form: XmForm `7B
- X`09`09controls `7B
- X`09`09`09XmLabel`09`09all_label;
- X`09`09`09XmScrolledList`09all_idents;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09held_form: XmForm `7B
- X`09`09arguments `7B
- X`09`09`09XmNleftAttachment = XmATTACH_WIDGET;
- X`09`09`09XmNleftWidget = all_form;
- X`09`09`09XmNleftOffset = 10;
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmLabel`09`09held_label;
- X`09`09`09XmScrolledList`09held_idents;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09all_label: XmLabel `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = "Click here to add identifiers";
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09all_idents: XmScrolledList `7B
- X`09`09arguments `7B
- X`09`09`09XmNtopAttachment = XmATTACH_WIDGET; `20
- X`09`09`09XmNtopWidget = all_label;
- X`09`09`09XmNleftAttachment = XmATTACH_FORM; `20
- X`09`09`09XmNrightAttachment = XmATTACH_FORM; `20
- X`09`09`09XmNvisibleItemCount = 6;
- X`09`09`09XmNselectionPolicy = XmSINGLE_SELECT;
- X`09`09`09XmNscrollBarDisplayPolicy = XmSTATIC;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure WidgetCreated(k_widget_all_list);
- X`09`09`09XmNsingleSelectionCallback = procedure ListSelect(k_widget_all_list
- V);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09held_label: XmLabel `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = "Click here to remove identifiers";
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09held_idents: XmScrolledList `7B
- X`09`09arguments `7B
- X`09`09`09XmNtopAttachment = XmATTACH_WIDGET; `20
- X`09`09`09XmNtopWidget = held_label;
- X`09`09`09XmNleftAttachment = XmATTACH_FORM;
- X`09`09`09XmNrightAttachment = XmATTACH_FORM;
- X`09`09`09XmNvisibleItemCount = 6;
- X`09`09`09XmNselectionPolicy = XmSINGLE_SELECT;
- X`09`09`09XmNscrollBarDisplayPolicy = XmSTATIC;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure WidgetCreated(k_widget_held_list);
- X`09`09`09XmNsingleSelectionCallback = procedure ListSelect(k_widget_held_lis
- Vt);
- X`09`09`09`7D;
- X`09`09`7D;
- Xend module;
- $ CALL UNPACK IDENTS.UIL;33 694426748
- $ create 'f'
- Xsys$library:decw$xmlibshr.exe/share
- Xsys$library:decw$dxmlibshr.exe/share
- $ CALL UNPACK MOTIF.OPT;3 2036425042
- $ create 'f'
- X$! move a directory from p1p2 to p3p4
- X$ if p1 .eqs. "" .or. p2 .eqs. "" .or. p3 .eqs. "" .or. p4 .eqs. "" then exi
- Vt
- X$ if "''p1'''p2'" .eqs. "''p3'''p4'" then exit
- X$
- X$ p2dir = p2 - "`5B" - "`5D"
- X$ p4dir = p4 - "`5B" - "`5D"
- X$ backup 'p1'`5B000000`5D'p2dir'.dir 'p3'`5B000000`5D'p4dir'.dir/by_owner=or
- Viginal
- X$ backup 'p1'`5B'p2dir'...`5D*.*;* 'p3'`5B'p4dir'...`5D*.*;*/by_owner=origin
- Val
- X$ @dwpuid:deltree 'p1''p2'
- X$ exit
- $ CALL UNPACK MOVE_DIRECTORY.COM;10 426015537
- $ create 'f'
- Xmodule Privs
- X`09names = case_sensitive
- X
- X objects = `7B
- X XmSeparator = gadget;
- X XmLabel = gadget;
- X XmPushButton = gadget;
- X XmToggleButton = gadget;
- X `7D
- X
- X
- Xvalue
- X`09k_title:`09`09"DWProfile: Privileges";
- X
- X`09k_cmkrnl_button:`090;
- X`09k_cmexec_button:`091;
- X`09k_sysnam_button:`092;
- X`09k_grpnam_button:`093;
- X`09k_allspool_button:`094;
- X`09k_detach_button:`095;
- X`09k_diagnose_button:`096;
- X`09k_log_io_button:`097;
- X`09k_group_button:`09`098;
- X`09k_noacnt_button:`099;
- X`09k_prmceb_button:`0910;
- X`09k_prmmbx_button:`0911;
- X`09k_pswapm_button:`0912;
- X`09k_setpri_button:`0913;
- X`09k_setprv_button:`0914;
- X`09k_tmpmbx_button:`0915;
- X`09k_world_button:`09`0916;
- X`09k_mount_button:`09`0917;
- X`09k_oper_button:`09`0918;
- X`09k_exquota_button:`0919;
- X`09k_netmbx_button:`0920;
- X`09k_volpro_button:`0921;
- X`09k_phy_io_button:`0922;
- X`09k_bugchk_button:`0923;
- X`09k_prmgbl_button:`0924;
- X`09k_sysgbl_button:`0925;
- X`09k_pfnmap_button:`0926;
- X`09k_shmem_button:`09`0927;
- X`09k_sysprv_button:`0928;
- X`09k_bypass_button:`0929;
- X`09k_syslck_button:`0930;
- X`09k_share_button:`09`0931;
- X`09k_upgrade_button:`0932;
- X`09k_downgrade_button:`0933;
- X`09k_grpprv_button:`0934;
- X`09k_readall_button:`0935;
- X`09k_security_button:`0938;
- X
- X`09k_def_bias:`09`0940;
- X
- X`09k_widget_cmkrnl:`09k_cmkrnl_button;
- X`09k_widget_cmexec:`09k_cmexec_button;
- X`09k_widget_sysnam:`09k_sysnam_button;
- X`09k_widget_grpnam:`09k_grpnam_button;
- X`09k_widget_allspool:`09k_allspool_button;
- X`09k_widget_detach:`09k_detach_button;
- X`09k_widget_diagnose:`09k_diagnose_button;
- X`09k_widget_log_io:`09k_log_io_button;
- X`09k_widget_group:`09`09k_group_button;
- X`09k_widget_noacnt:`09k_noacnt_button;
- X`09k_widget_prmceb:`09k_prmceb_button;
- X`09k_widget_prmmbx:`09k_prmmbx_button;
- X`09k_widget_pswapm:`09k_pswapm_button;
- X`09k_widget_setpri:`09k_setpri_button;
- X`09k_widget_setprv:`09k_setprv_button;
- X`09k_widget_tmpmbx:`09k_tmpmbx_button;
- X`09k_widget_world:`09`09k_world_button;
- X`09k_widget_mount:`09`09k_mount_button;
- X`09k_widget_oper:`09`09k_oper_button;
- X`09k_widget_exquota:`09k_exquota_button;
- X`09k_widget_netmbx:`09k_netmbx_button;
- X`09k_widget_volpro:`09k_volpro_button;
- X`09k_widget_phy_io:`09k_phy_io_button;
- X`09k_widget_bugchk:`09k_bugchk_button;
- X`09k_widget_prmgbl:`09k_prmgbl_button;
- X`09k_widget_sysgbl:`09k_sysgbl_button;
- X`09k_widget_pfnmap:`09k_pfnmap_button;
- X`09k_widget_shmem:`09`09k_shmem_button;
- X`09k_widget_sysprv:`09k_sysprv_button;
- X`09k_widget_bypass:`09k_bypass_button;
- X`09k_widget_syslck:`09k_syslck_button;
- X`09k_widget_share:`09`09k_share_button;
- X`09k_widget_upgrade:`09k_upgrade_button;
- X`09k_widget_downgrade:`09k_downgrade_button;
- X`09k_widget_grpprv:`09k_grpprv_button;
- X`09k_widget_readall:`09k_readall_button;
- X`09k_widget_security:`09k_security_button;
- X
- X`09k_cmkrnl_label_text:`09"Cmkrnl";
- X`09k_cmexec_label_text:`09"Cmexec";
- X`09k_sysnam_label_text:`09"Sysnam";
- X`09k_grpnam_label_text:`09"Grpnam";
- X`09k_allspool_label_text:`09"Allspool";
- X`09k_detach_label_text:`09"Detach";
- X`09k_diagnose_label_text:`09"Diagnose";
- X`09k_log_io_label_text:`09"Log_io";
- X`09k_group_label_text:`09"Group";
- X`09k_noacnt_label_text:`09"Noacnt";
- X`09k_prmceb_label_text:`09"Prmceb";
- X`09k_prmmbx_label_text:`09"Prmmbx";
- X`09k_pswapm_label_text:`09"Pswapm";
- X`09k_setpri_label_text:`09"Setpri";
- X`09k_setprv_label_text:`09"Setprv";
- X`09k_tmpmbx_label_text:`09"Tmpmbx";
- X`09k_world_label_text:`09"World";
- X`09k_mount_label_text:`09"Mount";
- X`09k_oper_label_text:`09"Oper";
- X`09k_exquota_label_text:`09"Exquota";
- X`09k_netmbx_label_text:`09"Netmbx";
- X`09k_volpro_label_text:`09"Volpro";
- X`09k_phy_io_label_text:`09"Phy_io";
- X`09k_bugchk_label_text:`09"Bugchk";
- X`09k_prmgbl_label_text:`09"Prmgbl";
- X`09k_sysgbl_label_text:`09"Sysgbl";
- X`09k_pfnmap_label_text:`09"Pfnmap";
- X`09k_shmem_label_text:`09"Shmem";
- X`09k_sysprv_label_text:`09"Sysprv";
- X`09k_bypass_label_text:`09"Bypass";
- X`09k_syslck_label_text:`09"Syslck";
- X`09k_share_label_text:`09"Share";
- X`09k_upgrade_label_text:`09"Upgrade";
- X`09k_downgrade_label_text:`09"Downgrade";
- X`09k_grpprv_label_text:`09"Grpprv";
- X`09k_readall_label_text:`09"Readall";
- X`09k_security_label_text:`09"Security";
- X
- X`09k_auth_label_text:`09"Authorized Privileges";
- X`09k_def_label_text:`09"Default Privileges";
- X
- X`09k_margin_height:`09-2;
- X
- Xprocedure
- X`09PrivsCreated(integer);
- X`09PrivsChanged(integer);
- X`09Help(string);
- X
- Xobject
- X`09privs_box: XmFormDialog `7B
- X`09`09arguments `7B
- X`09`09`09XmNdialogTitle = k_title;
- X`09`09`09XmNdefaultPosition = false;
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmForm`09`09auth_privs;
- X`09`09`09XmSeparator`09sep;
- X`09`09`09XmForm`09`09def_privs;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09XmNhelpCallback = procedure Help("menus windows privs");
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09sep:`09XmSeparator `7B
- X`09`09arguments `7B
- X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;
- X`09`09`09XmNtopWidget = auth_privs;
- X`09`09`09XmNtopOffset = 10;
- X`09`09`09XmNleftAttachment = XmATTACH_FORM;
- X`09`09`09XmNrightAttachment = XmATTACH_FORM;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_privs: XmForm `7B
- X`09`09controls `7B
- X`09`09`09XmLabel`09`09auth_privs_label;
- X`09`09`09XmRowColumn`09auth_privs_box;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_privs_label: XmLabel `7B
- X`09`09arguments `7B
- X`09`09`09XmNx = 100;
- X`09`09`09XmNy = 10;
- X`09`09`09XmNlabelString = k_auth_label_text;
- X`09`09`7D;
- X`09`7D;
- X
- X`09auth_privs_box: XmRowColumn `7B
- X`09`09arguments `7B
- X`09`09`09XmNtopAttachment = XmATTACH_WIDGET;
- X`09`09`09XmNtopWidget = auth_privs_label;
- X`09`09`09XmNpacking = XmPACK_COLUMN;
- X`09`09`09`7D;
- X`09`09controls `7B
- X`09`09`09XmToggleButton`09auth_allspool_button;
- X`09`09`09XmToggleButton`09auth_bugchk_button;
- X`09`09`09XmToggleButton`09auth_bypass_button;
- X`09`09`09XmToggleButton`09auth_cmexec_button;
- X`09`09`09XmToggleButton`09auth_cmkrnl_button;
- X`09`09`09XmToggleButton`09auth_detach_button;
- X`09`09`09XmToggleButton`09auth_diagnose_button;
- X/*`09`09`09XmToggleButton`09auth_downgrade_button; */
- X`09`09`09XmToggleButton`09auth_exquota_button;
- X`09`09`09XmToggleButton`09auth_group_button;
- X`09`09`09XmToggleButton`09auth_grpnam_button;
- X`09`09`09XmToggleButton`09auth_grpprv_button;
- X`09`09`09XmToggleButton`09auth_log_io_button;
- X`09`09`09XmToggleButton`09auth_mount_button;
- X`09`09`09XmToggleButton`09auth_netmbx_button;
- X`09`09`09XmToggleButton`09auth_noacnt_button;
- X`09`09`09XmToggleButton`09auth_oper_button;
- X`09`09`09XmToggleButton`09auth_pfnmap_button;
- X`09`09`09XmToggleButton`09auth_phy_io_button;
- X`09`09`09XmToggleButton`09auth_prmceb_button;
- X`09`09`09XmToggleButton`09auth_prmgbl_button;
- X`09`09`09XmToggleButton`09auth_prmmbx_button;
- X`09`09`09XmToggleButton`09auth_pswapm_button;
- X`09`09`09XmToggleButton`09auth_readall_button;
- X`09`09`09XmToggleButton`09auth_security_button;
- X`09`09`09XmToggleButton`09auth_setpri_button;
- X`09`09`09XmToggleButton`09auth_setprv_button;
- X`09`09`09XmToggleButton`09auth_share_button;
- X`09`09`09XmToggleButton`09auth_shmem_button;
- X`09`09`09XmToggleButton`09auth_sysgbl_button;
- X`09`09`09XmToggleButton`09auth_syslck_button;
- X`09`09`09XmToggleButton`09auth_sysnam_button;
- X`09`09`09XmToggleButton`09auth_sysprv_button;
- X`09`09`09XmToggleButton`09auth_tmpmbx_button;
- X/*`09`09`09XmToggleButton`09auth_upgrade_button; */
- X`09`09`09XmToggleButton`09auth_volpro_button;
- X`09`09`09XmToggleButton`09auth_world_button;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X
- X`09auth_cmkrnl_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_cmkrnl_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_cmkrnl);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_cmkrnl_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_cmexec_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_cmexec_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_cmexec);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_cmexec_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_sysnam_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_sysnam_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_sysnam);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_sysnam_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_grpnam_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_grpnam_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_grpnam);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_grpnam_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_allspool_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_allspool_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_allspool);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_allspool_button)
- V;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_detach_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_detach_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_detach);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_detach_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_diagnose_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_diagnose_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_diagnose);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_diagnose_button)
- V;
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_log_io_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_log_io_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_log_io);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_log_io_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_group_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_group_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_group);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_group_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_noacnt_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_noacnt_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_noacnt);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_noacnt_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_prmceb_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_prmceb_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_prmceb);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_prmceb_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_prmmbx_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_prmmbx_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_prmmbx);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_prmmbx_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_pswapm_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_pswapm_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_pswapm);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_pswapm_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_setpri_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_setpri_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_setpri);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_setpri_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_setprv_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_setprv_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_setprv);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_setprv_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_tmpmbx_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_tmpmbx_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_tmpmbx);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_tmpmbx_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_world_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_world_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_world);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_world_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_mount_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_mount_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_mount);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_mount_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_oper_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_oper_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_oper);
- X`09`09`09XmNvalueChangedCallback = procedure PrivsChanged(k_oper_button);
- X`09`09`09`7D;
- X`09`09`7D;
- X
- X`09auth_exquota_button: XmToggleButton `7B
- X`09`09arguments `7B
- X`09`09`09XmNlabelString = k_exquota_label_text;
- X`09`09`09XmNmarginHeight = k_margin_height;
- X`09`09`09`7D;
- X`09`09callbacks `7B
- X`09`09`09MrmNcreateCallback = procedure PrivsCreated(k_widget_exquota);
- +-+-+-+-+-+-+-+- END OF PART 4 +-+-+-+-+-+-+-+-
- --
- Bruce Tanner (310) 860-2451 x 596 Tanner@Cerritos.EDU
- Cerritos College Norwalk, CA DoD #0161 NOMAD #007
-