// IfsTelnetChange.bcpl -- "Change" command // Copyright Xerox Corporation 1979, 1981 // Last modified January 24, 1981 3:39 PM by Taft get "IfsFiles.decl" get "IfsRs.decl" external [ // outgoing procedures ExecChange // incoming procedures ExecChangePassword; ExecChangeProtection; ExecChangeDirectory ExecChangeSysParam; ExecChangeGroup SelectKeyword // incoming statics CtxRunning ] //---------------------------------------------------------------------------- let ExecChange(cs) be //---------------------------------------------------------------------------- [ switchon SelectKeyword(cs, "Password", "Protection", "Attributes", "Directory-Parameters", "Group-Membership", (CtxRunning>>RSCtx.userInfo>>UserInfo.capabilities.wheel? "System-Parameters", 0)) into [ case 1: ExecChangePassword(cs); endcase case 2: case 3: ExecChangeProtection(cs); endcase case 4: ExecChangeDirectory(cs); endcase case 5: ExecChangeGroup(cs); endcase case 6: ExecChangeSysParam(cs); endcase ] ]