anchor.diff:          "\t-t           Move buckets from a server to another server (same as -V)~n"
           "\t-b #         Operate on vbucket number #~n"
           "\t-a auth      Try to authenticate as user <auth> (password is then read from stdin)~n"
  +        "\t--password password Use given password instead of reading it from stdin~n"
           "\t-d host:port Send all vbuckets to this server~n"
           "\t--bucket-name name send select_bucket on both ends before proceeding~n"
           "\t              (normally not needed with auth)~n"
  
positive.code:     parse(Rest, [{username, AuthUser} | Acc]);
  parse(["--bucket-name", Bucket | Rest], Acc) ->
      parse(Rest, [{bucket, Bucket} | Acc]);
  parse([Else | Rest], Acc) ->
      io:format("Ignoring ~p flag~n", [Else]),
      parse(Rest, Acc).
  
negative.code: 
      Conf1 = [{suffix, TapSuffix} | Conf],
  
      Conf2 = case {proplists:get_value(username, Conf1), proplists:get_value(password, Conf1)} of
                  {_, undefined} ->
                      io:format("Reading password from stdin~n"),
                      Pwd0 = case file:read_line(standard_io) of
                                 eof -> "";
  