package Kwiki::TypeKey; use strict; use Kwiki::UserName '-Base'; use mixin 'Kwiki::Installer'; our $VERSION = 0.03; const class_id => 'user_name'; const class_title => 'Kwiki with TypeKey authentication'; const css_file => 'user_name.css'; const cgi_class => 'Kwiki::TypeKey::CGI'; sub register { my $registry = shift; $registry->add(preload => 'user_name'); $registry->add(action => "return_typekey"); $registry->add(action => "logout_typekey"); } sub return_typekey { my %cookie = map { ($_ => scalar $self->cgi->$_) } qw(email name nick ts sig); $self->hub->cookie->write(typekey => \%cookie); # XXX: Spoon doesn't write cookie in redirect! # $self->redirect("?" . $self->cgi->page); my $url = $self->config->script_name . "?" . $self->cgi->page; return < Redirecting Redirecting you to $url HTML ; } sub logout_typekey { $self->hub->cookie->write(typekey => {}); # XXX This is the only way to override Kwiki/Spoon Cookie expires, Ingy! no warnings 'redefine'; my $old = Kwiki::Cookie->can('expires'); *Kwiki::Cookie::expires = sub { ($_ eq 'typekey') ? do { *Kwiki::Cookie::expires = $old; "-3d" } : "+5y"; }; $self->render_screen(content_pane => 'logout_typekey.html'); } package Kwiki::TypeKey::CGI; use Kwiki::CGI '-Base'; cgi 'email'; cgi 'name'; cgi 'nick'; cgi 'ts'; cgi 'sig'; cgi 'page'; package Kwiki::TypeKey; 1; __DATA__ =head1 NAME Kwiki::TypeKey - Kwiki TypeKey integration =head1 SYNOPSIS > $EDITOR plugins # Kwiki::UserName <- If you use it, comment it out Kwiki::TypeKey Kwiki::Edit::TypeKeyRequired <- Optional: If you don't allow anonymous writes > $EDITOR config.yaml users_class: Kwiki::Users::TypeKey tk_token: YOUR_TYPEKEY_TOKEN script_name: http://www.example.com/kwiki/index.cgi <- needs absURI > kwiki -update =head1 DESCRIPTION Kwiki::TypeKey is a Kwiki User Authentication module to use TypeKey authentication. You need a valid TypeKey token registered at http://www.typekey.com/ =head1 TODO =over 4 =item * Now this plugin stores TypeKey response query to cookie store and verifies the data in every request to avoid spoofed cookie. It means every time it issues GET request to TypeKey servers (with If-Modified-Since) and do some crypto calculation, which should be avoided. We need a patch for Authen::TypeKey. =item * Integration with C link: (e.g. Kwiki::RecentChanges) =item * Logout feature. =back =head1 AUTHOR Tatsuhiko Miyagawa Emiyagawa@bulknews.netE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L L L =cut __css/user_name.css__ div #user_name_title { font-size: small; float: right; } __template/tt2/user_name_title.html__
[% IF hub.users.current.name -%] (Logged In as [% hub.users.current.nick | html %]: Logout) [%- ELSE -%] [%- USE tk = url("https://www.typekey.com/t/typekey/login") -%] (Not Logged In: Login via TypeKey) [%- END %]
__template/tt2/logout_typekey.html__

You've now successfully logged out.