haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OpenID: Google and Yahoo login buttons

Browse Source
This commit is contained in:
Michael Snoyman 2011-09-24 20:47:03 +03:00
parent 94f4548adc
commit ddea64b458
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-auth/Yesod/Auth/Message.hs
View File

@ -10,6 +10,8 @@ import Data.Text (Text)
data AuthMessage = data AuthMessage =
NoOpenID NoOpenID
| LoginOpenID | LoginOpenID
| LoginGoogle
| LoginYahoo
| Email | Email
| Password | Password
| Register | Register
@ -37,6 +39,8 @@ data AuthMessage =
defaultMessage :: AuthMessage -> Text defaultMessage :: AuthMessage -> Text
defaultMessage NoOpenID = "No OpenID identifier found" defaultMessage NoOpenID = "No OpenID identifier found"
defaultMessage LoginOpenID = "Login via OpenID" defaultMessage LoginOpenID = "Login via OpenID"
defaultMessage LoginGoogle = "Login via Google"
defaultMessage LoginYahoo = "Login via Yahoo"
defaultMessage Email = "Email" defaultMessage Email = "Email"
defaultMessage Password = "Password" defaultMessage Password = "Password"
defaultMessage Register = "Register" defaultMessage Register = "Register"

6
yesod-auth/Yesod/Auth/OpenId.hs
View File

@ -39,6 +39,12 @@ authOpenId =
padding-left: 18px; padding-left: 18px;
|] |]
[QQ(whamlet)| [QQ(whamlet)|
<form method="get" action="@{tm forwardUrl}">
<input type="hidden" name="openid_identifier" value="https://www.google.com/accounts/o8/id">
<button .openid-google>_{Msg.LoginGoogle}
<form method="get" action="@{tm forwardUrl}">
<input type="hidden" name="openid_identifier" value="http://me.yahoo.com">
<button .openid-yahoo>_{Msg.LoginYahoo}
<form method="get" action="@{tm forwardUrl}"> <form method="get" action="@{tm forwardUrl}">
<label for="#{ident}">OpenID: # <label for="#{ident}">OpenID: #
<input id="#{ident}" type="text" name="#{name}" value="http://"> <input id="#{ident}" type="text" name="#{name}" value="http://">