* login page

This commit is contained in:
"Vincent Ambo ext:(%22) 2012-03-07 14:51:45 +01:00
parent b2bb90beff
commit c880a6092c
3 changed files with 24 additions and 7 deletions

View file

@ -40,10 +40,11 @@ body {
border:1px solid #D2D2D2;
border-bottom-left-radius: 12px;
border-bottom-right-radius: 12px;
;
text-align: center;
font-size:12px;
height:auto;
padding-left: 10px;
padding-right: 10px;
min-height:200px;
padding-left:20px;
width:378px;
}

View file

@ -177,13 +177,26 @@ showSiteNotice = H.docTypeHtml $ do
toHtml ("50858 Köln" :: Text)
H.p $ H.a ! A.href "/" ! A.style "color:black" $ "Back"
{-
<title>Impressum</title>
{- Administration pages -}
<h2>Impressum und <a alt="Verantwortlich im Sinne des Presserechtes">ViSdP</a></h2>
adminTemplate :: Html -> Text -> Html
adminTemplate body title = H.docTypeHtml $ do
H.head $ do
H.link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/res/admin.css" ! A.media "all"
H.meta ! A.httpEquiv "content-type" ! A.content "text/html;charset=UTF-8"
H.title $ toHtml $ T.append "TazBlog Admin: " title
H.body
body
<i>[German law demands this]</i><p>Vincent Ambo<br>Benfleetstr. 8<br>50858 Köln<br /><br /><a href="/" style="color:black">Back</a>
-}
adminLogin :: Html
adminLogin = H.div ! A.class_ "loginBox" $ do
H.div ! A.class_ "loginBoxTop" $ "TazBlog Admin: Login"
H.div ! A.class_ "loginBoxMiddle" $ H.form ! A.action "/login" ! A.method "post" $ do
H.p $ "Account ID"
H.p $ H.input ! A.type_ "text" ! A.style "font-size: 2;"
! A.name "account" ! A.value "tazjin" ! A.readonly "1"
H.p $ "Passwort"
H.p $ H.input ! A.type_ "password" ! A.style "font-size: 2;" ! A.name "pass"
-- Error pages
showError :: BlogError -> BlogLang -> Html

View file

@ -43,6 +43,9 @@ tazBlog = do
, path $ \(year :: Int) -> path $ \(month :: Int) -> path $ \(id_ :: String) -> formatOldLink year month id_
, dir "res" $ serveDirectory DisableBrowsing [] "../res"
, dir "notice" $ ok $ toResponse showSiteNotice
, do adminSession <- lookCookieValue "session"
ok $ toResponse ("Eingeloggt" :: String)
, dir "admin" $ ok $ toResponse $ adminTemplate adminLogin "Login"
, serveDirectory DisableBrowsing [] "../res"
]