Changeset 25465

Timestamp:

11/30/08 23:10:51 (5 years ago)

Author:

kazuho

Message:

add openid demo

Location:

lang/perl/NanoA/trunk

Files:

• app/openid (added)
• app/openid/openid.pm (added)
• app/openid/start.mt (added)
• lib/NanoA.pm (modified) (2 diffs)
• lib/NanoA/Plugin.pm (modified) (2 diffs)
• nanoa.pl (modified) (1 diff)
• plugin/form.pm (modified) (1 diff)

lang/perl/NanoA/trunk/lib/NanoA.pm

@@ -125 +125 @@
     }
     $status ||= 302;
-    print 'Status: ', $status, "\nLocation: " . $uri . "\n\n";
+    $self->header(-status   => 302);
+    $self->header(-location => $uri);
+    my $body = '';
+    $self->run_hooks('postrun', \$body);
+    $self->print_header();
+    utf8::encode($body)
+         if utf8::is_utf8($body);
+    print $body;
     CGI::ExceptionManager::detach();
 }
@@ -161 +168 @@
 }
 
+sub uri_escape {
+    my $s = shift;
+    join(
+        '',
+        map {
+            /^[a-zA-Z0-9_.!~*'()-]$/ ? $_ : '%' . uc(unpack('H2', $_))
+        } split(//, $s),
+    );
+}
+
 sub nanoa_uri {
     $ENV{SCRIPT_NAME} || '/nanoa.cgi';
+}
+
+sub uri_for {
+    my ($app, $path, $query) = @_;
+    $path = nanoa_uri . '/' . $path
+        unless $path =~ m|^/|;
+    return $path unless $query && ref $query eq 'HASH';
+    $path . '?' . join(
+        '&',
+        map {
+            uri_escape($_) . '=' . uri_escape($query->{$_}),
+        } sort keys %$query,
+    );
 }
 

lang/perl/NanoA/trunk/lib/NanoA/Plugin.pm

@@ -5 +5 @@
 use utf8;
 
+use base qw(NanoA);
+
 sub import {
     my $pkg = caller;
     # plugins loading other plugins should call init_plugin explicitely
-    return if $pkg =~ /^plugin::/;
+    local $@;
+    my $pkg_is_plugin;
+    eval {
+        $pkg_is_plugin = $pkg->is_plugin;
+    };
+    return if $pkg_is_plugin;
     shift->init_plugin($pkg);
 }
@@ -17 +24 @@
 }
 
+sub is_plugin { 1 }
+
 1;

lang/perl/NanoA/trunk/nanoa.pl

@@ -4 +4 @@
 
 BEGIN {
-    unshift @INC, 'extlib';
+    unshift @INC, qw(extlib app);
 };
 

lang/perl/NanoA/trunk/plugin/form.pm

@@ -6 +6 @@
 
 use HTML::AutoForm;
-use plugin::session;
 
 use base qw(NanoA::Plugin);
+
+use plugin::session;
 
 BEGIN {