-- Copyright (C) 1985  by Xerox Corporation. All rights reserved. 
-- DummySmashPassword.mesa, HGM,  6-Jan-85  4:06:55

DIRECTORY
  Heap USING [systemZone],
  OthelloDefs USING [
    CommandProcessor, GetName, IndexTooLarge, MyNameIs, RegisterCommandProc],
  OthelloForgot USING [];
  
DummySmashPassword: PROGRAM
  IMPORTS
    Heap, OthelloDefs
  EXPORTS OthelloForgot =
  BEGIN
  
  userName, userPassword: LONG STRING ← NIL;

  GetUserNamePassword: PROC = {
    OthelloDefs.MyNameIs[
      myNameIs: "Login"L, myHelpIs: "Set user name-password"L];
    OthelloDefs.GetName["User: "L,     @userName];
    OthelloDefs.GetName["Password: "L, @userPassword, stars]};

  SmashPassword: PUBLIC PROCEDURE =
    BEGIN
    Heap.systemZone.FREE[@userName];
    Heap.systemZone.FREE[@userPassword]
    END;

    
  commandProcessor: OthelloDefs.CommandProcessor ← [FtpCommands];

  FtpCommands: PROC [index: CARDINAL] = {
    SELECT index FROM
      0 => GetUserNamePassword[];
      ENDCASE => OthelloDefs.IndexTooLarge};

 OthelloDefs.RegisterCommandProc[@commandProcessor];
 END..