diff --git a/trunk/functions.pl b/trunk/functions.pl
index 7d6e14a..29c99bb 100644
--- a/trunk/functions.pl
+++ b/trunk/functions.pl
@@ -141,8 +141,6 @@ sub output_page
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
- @cookies = [$session->cookie(-name=>$session_name, -value=>$session->id)];
-
#let the XSLT param choose other stylesheets or default to xhtml.xsl
my $param_xslt = $query->param('xslt');
$param_xslt =~ s/[^\w]//gi;
@@ -152,7 +150,6 @@ sub output_page
return $session->header(
-type=>'application/xml',
-charset=>'UTF-8',
- -cookie=>@cookies
),
XMLout(
$page,
@@ -189,7 +186,6 @@ sub output_page
-type=>$stylesheet->media_type,
-charset=>$stylesheet->output_encoding,
-attachment=>$query->param('query').".xspf",
- -cookie=>@cookies
),
$output->toString;
#$stylesheet->output_as_bytes($output); <= for future use with XML::LibXSLT (>= 1.62)
@@ -206,7 +202,6 @@ sub output_page
return $session->header(
-type=>$stylesheet->media_type,
-charset=>$stylesheet->output_encoding,
- -cookie=>@cookies
),
$output->toString;
#$stylesheet->output_as_bytes($output); <= for future use with XML::LibXSLT (>= 1.62)
diff --git a/trunk/login.pl b/trunk/login.pl
index b28f141..c0e7da9 100644
--- a/trunk/login.pl
+++ b/trunk/login.pl
@@ -46,12 +46,21 @@ elsif($query->param('pass') eq '' and $query->param('user')=~m/^http:\/\//)
print $session->header();
print "claim failed: ", $con->err;
}
- $check_url = $claimed->check_url(
- return_to => "$domain/login.pl?action=openid", #on success return to this address
- trust_root => $domain); #this is the string the user will be asked to trust
-
- #redirect to openid server to check claim
- print $query->redirect($check_url);
+
+ #try to set the check_url
+ eval
+ {
+ $check_url = $claimed->check_url(
+ return_to => "$domain/login.pl?action=openid", #on success return to this address
+ trust_root => $domain); #this is the string the user will be asked to trust
+
+ #redirect to openid server to check claim
+ print $query->redirect($check_url);
+ };
+ #if this fails
+ if ($@) {
+ print $query->redirect("/index.pl?error=error_202c");
+ }
}
else
{
diff --git a/trunk/site/main.xml b/trunk/site/main.xml
index 1b8a8f4..596e320 100755
--- a/trunk/site/main.xml
+++ b/trunk/site/main.xml
@@ -17,6 +17,7 @@