Mercurial > openid
diff src/ur/openid.ur @ 22:70ab0230649b
Fix calculation of URL to return to after sign-up
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 15 Jan 2011 15:24:42 -0500 |
parents | df2eb629f21a |
children | ee97bc0e08fa |
line wrap: on
line diff
--- a/src/ur/openid.ur Sat Jan 08 18:47:27 2011 -0500 +++ b/src/ur/openid.ur Sat Jan 15 15:24:42 2011 -0500 @@ -399,7 +399,7 @@ ^ assoc.Handle ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString)) end -task periodic 1 = fn () => - dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP); - dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP); - dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP) +task periodic 60 = fn () => + dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP); + dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP); + dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP)