Mercurial > openid

comparison src/ur/openid.ur @ 22:70ab0230649b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
21:354dae3008de 22:70ab0230649b
397 ^ eatFragment r.Identifier 397 ^ eatFragment r.Identifier
398 ^ "&openid.identity=http://specs.openid.net/auth/2.0/identifier_select&openid.assoc_handle=" 398 ^ "&openid.identity=http://specs.openid.net/auth/2.0/identifier_select&openid.assoc_handle="
399 ^ assoc.Handle ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString)) 399 ^ assoc.Handle ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString))
400 end 400 end
401 401
402 task periodic 1 = fn () => 402 task periodic 60 = fn () =>
403 dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP); 403 dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP);
404 dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP); 404 dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP);
405 dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP) 405 dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP)