diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Types/Session.hs | 7 | ||||
-rw-r--r-- | src/sariulclocks.hs | 3 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/Types/Session.hs b/src/Types/Session.hs index 5d037a4..210cd28 100644 --- a/src/Types/Session.hs +++ b/src/Types/Session.hs @@ -26,7 +26,7 @@ makeClassCookie now session = Nothing -> "Nothing" , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} makeClockCookie :: ClockTime -> Session -> Cookie @@ -38,7 +38,7 @@ makeClockCookie now session = CountUpClock -> "1" , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} makeSsCookie :: ClockTime -> Session -> Cookie @@ -50,7 +50,8 @@ makeSsCookie now session = Just c -> show $ numberOfSs c , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing +-- make the cookie path not absolute + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} endOfSchoolDay :: ClockTime -> CalendarTime diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 74ae00c..137e1bd 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -164,6 +164,9 @@ cgiMain = do -- TODO: use POST,REDIRECT,GET https://stackoverflow.com/questions/570015/how-do-i-reload-a-page-without-a-postdata-warning-in-javascript/570069#570069 + + -- TODO: restore time wasting clock if password was wrong + let scores' = if points' /= 0 && userPassword == (unpack . strip . pack) password then updateScore scores (fromJust cookieClass) points' timeWasted' |