// 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
   ]
]