Permalink
Browse files

function to send a test

  • Loading branch information...
1 parent 579dbcc commit a09f8283c5cfba64c3698db3d7ad773d5df7c836 @nicferrier committed Sep 13, 2012
Showing with 9 additions and 0 deletions.
  1. +9 −0 elnode.el
View
@@ -3510,6 +3510,15 @@ SCHEME is the authentication scheme to use as defined by
":redirect MUST be a list or a string")))))
(elnode-send-redirect ,httpconv to))))))
+(defun elnode-test-login (auth target username password)
+ "Send a test login to Elnode."
+ ;; FIXME - use AUTH as a reference to an elnode-authentication
+ ;; declaration and pull things like /login/ from it
+ (elnode-test-call
+ (format "/login/?redirect=%s" target)
+ :method "POST"
+ :parameters (list (cons "username" username)
+ (cons "password" password))))
;;; Main customization stuff

0 comments on commit a09f828

Please sign in to comment.