Changeset 1538

Show
Ignore:
Timestamp:
04/05/05 13:36:35
Author:
miyagawa
Message:

0.04

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Kwiki-TypeKey/trunk/Changes

    r1537 r1538  
    11Revision history for Perl extension Kwiki::TypeKey 
     2 
     30.04  Tue Apr  5 13:35:51 JST 2005 
     4        - Now it requires Spoon 0.22 and Kwiki 0.38 
    25 
    360.03  Fri Apr  1 20:16:20 JST 2005 
  • Kwiki-TypeKey/trunk/Makefile.PL

    r1537 r1538  
    66        Test::More => 0.32, 
    77        Authen::TypeKey => 0.02, 
    8         Kwiki => 0.37, 
     8        Kwiki => 0.38, 
     9        Spoon => 0.22, 
    910        Kwiki::UserName => 0.14, 
    1011    }, 
  • Kwiki-TypeKey/trunk/lib/Kwiki/Edit/TypeKeyRequired.pm

    r1537 r1538  
    11package Kwiki::Edit::TypeKeyRequired; 
    22use strict; 
    3 our $VERSION = 0.03
     3our $VERSION = 0.04
    44 
    55use Kwiki::Plugin '-Base'; 
  • Kwiki-TypeKey/trunk/lib/Kwiki/TypeKey.pm

    r1537 r1538  
    55use mixin 'Kwiki::Installer'; 
    66 
    7 our $VERSION = 0.03
     7our $VERSION = 0.04
    88 
    99const class_id => 'user_name'; 
     
    2222    my %cookie = map { ($_ => scalar $self->cgi->$_) } qw(email name nick ts sig); 
    2323    $self->hub->cookie->write(typekey => \%cookie); 
    24     # XXX: Spoon doesn't write cookie in redirect! 
    25     # $self->redirect("?" . $self->cgi->page); 
    26     my $url = $self->config->script_name . "?" . $self->cgi->page; 
    27     return <<HTML; 
    28 <HTML><HEAD> 
    29 <TITLE>Redirecting</TITLE> 
    30 <META HTTP-EQUIV="refresh" content="1; url=$url"> 
    31 </HEAD> 
    32 <BODY onLoad="location.replace('$url')"> 
    33 Redirecting you to $url</BODY></HTML> 
    34 HTML 
    35     ; 
     24    $self->redirect("?" . $self->cgi->page); 
    3625} 
    3726 
    3827sub logout_typekey { 
    39     $self->hub->cookie->write(typekey => {}); 
    40     # XXX This is the only way to override Kwiki/Spoon Cookie expires, Ingy! 
    41     no warnings 'redefine'; 
    42     my $old = Kwiki::Cookie->can('expires'); 
    43     *Kwiki::Cookie::expires = sub { 
    44         ($_ eq 'typekey') ? 
    45             do { *Kwiki::Cookie::expires = $old; "-3d" } : "+5y"; 
    46     }; 
     28    $self->hub->cookie->write(typekey => {}, { -expires => "-3d" }); 
    4729    $self->render_screen(content_pane => 'logout_typekey.html'); 
    4830} 
  • Kwiki-TypeKey/trunk/lib/Kwiki/Users/TypeKey.pm

    r1537 r1538  
    33use Authen::TypeKey; 
    44 
    5 our $VERSION = 0.03
     5our $VERSION = 0.04
    66use Kwiki::Users '-Base'; 
    77 
     
    2323 
    2424sub new_user { 
    25     $self->user_class->new(hub => $self->hub); 
     25    $self->user_class->new(); 
    2626} 
    2727