Skip to content

Commit

Permalink
Turn on build of local authentication test.
Browse files Browse the repository at this point in the history
This also removes auth.ml as it's a duplicate of pam.ml

Signed-off-by: John Else <john.else@citrix.com>
  • Loading branch information
johnelse committed Sep 5, 2011
1 parent 17b2e93 commit 0978888
Show file tree
Hide file tree
Showing 4 changed files with 5 additions and 21 deletions.
1 change: 1 addition & 0 deletions .gitignore
Expand Up @@ -43,6 +43,7 @@ ocaml/idl/xen*-datamodel.tex
ocaml/idl/xen*api.ps
ocaml/idl/xen*api.pdf
ocaml/stdlib2/t*.ml
ocaml/auth/testauth
ocaml/auth/testauthx
ocaml/xapi/at_least_once_more
ocaml/xapi/config_constants.ml
Expand Down
1 change: 1 addition & 0 deletions OMakefile
Expand Up @@ -126,6 +126,7 @@ OCAML_PHASE3_XEN = \

OCAML_PHASE3_NOXEN = \
ocaml/ptoken/genptoken \
ocaml/auth/testauth \
ocaml/auth/testauthx \
ocaml/xe-cli/xe \
ocaml/xsh/xsh \
Expand Down
18 changes: 0 additions & 18 deletions ocaml/auth/auth.ml

This file was deleted.

6 changes: 3 additions & 3 deletions ocaml/auth/testauth.ml
Expand Up @@ -18,13 +18,13 @@ let usage() =
Printf.printf "%s chpasswd <username> <new password>\n" Sys.argv.(0);
exit 1

let _ =
let _ =
if Array.length Sys.argv <> 4 then usage ();
let username = Sys.argv.(2)
and password = Sys.argv.(3) in
match Sys.argv.(1) with
| "auth" ->
Auth.authenticate username password
Pam.authenticate username password
| "chpasswd" ->
Auth.change_password username password
Pam.change_password username password
| _ -> usage()

0 comments on commit 0978888

Please sign in to comment.