[openid-test commit] r46 - trunk/perl

[codesite...@google.com]

Author: miyagawa
Date: Fri Feb 29 04:04:56 2008
New Revision: 46

Modified:
trunk/perl/perl-test.cgi

Log:
emits error when it can't get claimed identity. Displays obtained
identity URL

Modified: trunk/perl/perl-test.cgi
==============================================================================
--- trunk/perl/perl-test.cgi (original)
+++ trunk/perl/perl-test.cgi Fri Feb 29 04:04:56 2008
@@ -214,6 +214,7 @@
args => $cgi,
consumer_secret => $self->consumer_secret,
required_root => $base,
+ debug => 1,
);
$self->setup_versions($csr);

@@ -224,7 +225,7 @@
print "user_cancel: 1\n";
} elsif (my $vident = $csr->verified_identity) {
my $verified_url = $vident->url;
- print "OK\n";
+ print "OK # $verified_url\n";
} else {
print "error: ", $csr->err, "\n";
}
@@ -326,6 +327,11 @@
$self->setup_versions($csr);

my $claimed_id = $csr->claimed_identity($oid);
+ unless ($claimed_id) {
+ print $cgi->header("text/plain");
+ print "# ", $csr->err;
+ return;
+ }

my $op = $cgi->param("op") || "";

@@ -445,7 +451,7 @@
sub new {
my ($class, $file) = @_;
my %tied;
- tie %tied, 'AnyDBM_File', $file, $flag, 0640;
+ tie %tied, 'AnyDBM_File', $file, $flag, 0640 or die "$file: $!";
return bless { db => \%tied };
}