Packages

mongodb_driver

1.4.0
1.6.3 1.6.2 1.6.1 1.6.0 1.5.6 1.5.5 1.5.4 1.5.2 1.5.1 1.5.0 1.4.1 1.4.0 1.2.1 1.2.0 1.1.0 1.0.3 1.0.2 1.0.1 1.0.0 0.9.2 0.9.1 0.9.0 0.9.0-rc.1 0.9.0-rc.0 0.8.4 0.8.3 0.8.2 0.8.1 0.8.0 0.7.4 0.7.3 0.7.2 0.7.1 0.7.0 0.6.5 0.6.4 0.6.3 0.6.2 0.6.1 0.6.0 0.5.7 0.5.6 0.5.5 0.5.4 0.5.3 0.5.2 0.5.1 0.5.0

The MongoDB driver for Elixir

HexDocs

Current section

Files

Jump to
Readme
48 Versions
3 Dependencies
Dependants
Files
Activity
mongodb_driver lib mongo auth cr.ex
Raw

lib/mongo/auth/cr.ex 

defmodule Mongo.Auth.CR do

  @moduledoc false

  alias Mongo.MongoDBConnection.Utils



  def auth({nil, nil}, _db, _s) do

    :ok

  end



  def auth({username, password}, _db, s) do

    with {:ok, _flags, message} <- Utils.command(-2, [getnonce: 1], s),

         do: nonce(message, username, password, s)

  end



  defp nonce(%{"nonce" => nonce, "ok" => ok}, username, password, s)

       # to support a response that returns 1 or 1.0

       when ok == 1 do

    digest = Utils.digest(nonce, username, password)

    command = [authenticate: 1, user: username, nonce: nonce, key: digest]



    case Utils.command(-3, command, s) do

      {:ok, _flags, %{"ok" => ok}} when ok == 1 ->

        :ok



      {:ok, _flags, %{"ok" => 0.0, "errmsg" => reason, "code" => code}} ->

        {:error, Mongo.Error.exception(message: "auth failed for '#{username}': #{reason}", code: code)}



      {:ok, _flags, nil} ->

        {:error, Mongo.Error.exception(message: "auth failed for '#{username}'")}



      error ->

        error

    end

  end

end