Fix a few bugs with auth handling
if ($uri =~ /^\w+$/) {
$uri = "http://id.dominionofawesome.com/$uri";
}
- my $claimed_identity = $csr->claimed_identity($uri);
+ my $claimed_identity = $csr->claimed_identity($uri)
+ or die "could not get claimed identity for $uri: " . $csr->errcode;
my $check_url = $claimed_identity->check_url(
return_to => 'http://dominionofawesome.com/vector/auth',
$login_id = $session->param('id');
if ($login_id) {
$login_user = Vector::User->fetch_by_id($login_id);
+ } else {
+ $login_user = undef;
}
(undef, $type, $object, @extra) = split(m'/', $ENV{PATH_INFO});