[openid-test commit] r38 - trunk/perl

[codesite...@google.com]

Author: br...@danga.com
Date: Mon Jan 21 02:27:29 2008
New Revision: 38

Modified:
trunk/perl/perl-test.cgi

Log:
caps has no version in URL

Modified: trunk/perl/perl-test.cgi
==============================================================================
--- trunk/perl/perl-test.cgi (original)
+++ trunk/perl/perl-test.cgi Mon Jan 21 02:27:29 2008
@@ -66,7 +66,11 @@

my $base = $self->base;
my $path = $cgi->path_info;
- unless ($path =~ m!^/([\d\.\,]+)/(identity|op|rp|recv_sig|
are_you_sure|caps)(.*)!) {
+ if ($path =~ m!^/caps!) {
+ return $self->handle_caps_request($cgi);
+ }
+
+ unless ($path =~ m!^/([\d\.\,]+)/(identity|op|rp|recv_sig|
are_you_sure)(.*)!) {
print $cgi->header, "Welcome to the Perl library's OpenID
interoptest server. I'm part of the <a
href='http://code.google.com/p/openid-test/'>openid-test project</a>.
Check out my <a href='$base/caps'>capabilities document</a>.";
my $out = sub {
my ($url, $text) = @_;

[codesite...@google.com]