Show
Ignore:
Timestamp:
02/19/08 01:23:26 (5 years ago)
Author:
takemaru
Message:

lang/perl/Catalyst-Controller-Atompub: 0.3.4 released. fix a bug, see Changes in details

Location:
lang/perl/Catalyst-Controller-Atompub
Files:
8 modified
1 copied

Legend:

Unmodified
Added
Removed

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.4/Changes

    r6742 r6891  
     12008-02-19  Takeru INOUE  <takeru.inoue _ gmail.com> 
     2 
     3        * release 0.3.4: 
     4        * lib/Catalyst/Helper/Controller/Atompub/Collection.pm 
     5        - remove query from URI for member resources 
     6        - add some characters to LocalRegex of edit_uri() 
     7 
    182008-02-15  Takeru INOUE  <takeru.inoue _ gmail.com> 
    29 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.4/META.yml

    r4823 r6891  
    11--- 
    22name: Catalyst-Controller-Atompub 
    3 version: 0.3.2 
     3version: 0.3.4 
    44author: 
    55  - 'Takeru INOUE <takeru.inoue _ gmail.com>' 
    … …  
    4040  Catalyst::Controller::Atompub: 
    4141    file: lib/Catalyst/Controller/Atompub.pm 
    42     version: 0.3.2 
     42    version: 0.3.4 
    4343  Catalyst::Controller::Atompub::Base: 
    4444    file: lib/Catalyst/Controller/Atompub/Base.pm 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.4/lib/Catalyst/Controller/Atompub.pm

    r6742 r6891  
    55use Carp; 
    66 
    7 use version; our $VERSION = qv('0.3.3'); 
     7use version; our $VERSION = qv('0.3.4'); 
    88 
    99use Atompub 0.1.6; 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.4/lib/Catalyst/Controller/Atompub/Collection.pm

    r6742 r6891  
    4747} 
    4848 
    49 sub edit_uri :LocalRegex('^([^-/][^/]*)') { 
     49sub edit_uri :LocalRegex('^([^-/?&#][^/?&#]*)') { 
    5050    my ( $self, $c ) = @_; 
    5151    my $method = $RESOURCE_METHOD{ uc $c->req->method }; 
    … …  
    301301    return $c->res->status( RC_NOT_MODIFIED ) unless $self->_is_modified( $c ); 
    302302 
    303     my $uri = $c->req->uri; 
     303    my $uri = $c->req->uri->no_query; 
    304304 
    305305    my @accepts = $self->info->get( $c, $self )->accepts; 
    … …  
    359359    $self->edited( datetime ); 
    360360 
    361     my $uri = $c->req->uri; 
     361    my $uri = $c->req->uri->no_query; 
    362362 
    363363    my $content; 
    … …  
    427427#       if $self->_is_modified( $c ); 
    428428 
    429     my $uri = $c->req->uri; 
     429    my $uri = $c->req->uri->no_query; 
    430430 
    431431    my $rc = Catalyst::Controller::Atompub::Collection::Resource->new; 
    … …  
    446446    my $method = $c->req->method; 
    447447 
    448     my %ret = $self->find_version( $c, $c->req->uri ); 
     448    my %ret = $self->find_version( $c, $c->req->uri->no_query ); 
    449449 
    450450    my $etag          = $ret{etag}; 
    … …  
    482482    $self->NEXT::create_action( %args ); 
    483483} 
     484 
     485sub URI::no_query { [ split /[?&]/, shift->canonical ]->[0] } 
    484486 
    485487package Catalyst::Controller::Atompub::Collection::Resource; 
    … …  
    597599        my ( $self, $c ) = @_; 
    598600     
    599         my $uri = $c->req->uri; 
     601        my $uri = $c->entry_resource->uri; 
    600602     
    601603        # Retrieve the Entry 
    … …  
    615617        my ( $self, $c ) = @_; 
    616618     
    617         my $uri = $c->req->uri; 
     619        my $uri = $c->entry_resource->uri; 
    618620     
    619621        # app:edited element, which was assigned by C::C::Atompub, 
    … …  
    641643        my ( $self, $c ) = @_; 
    642644     
    643         my $uri = $c->req->uri; 
     645        my $uri = $c->entry_resource->uri; 
    644646     
    645647        # Delete the Entry 

  • lang/perl/Catalyst-Controller-Atompub/trunk/Changes

    r6742 r6891  
     12008-02-19  Takeru INOUE  <takeru.inoue _ gmail.com> 
     2 
     3        * release 0.3.4: 
     4        * lib/Catalyst/Helper/Controller/Atompub/Collection.pm 
     5        - remove query from URI for member resources 
     6        - add some characters to LocalRegex of edit_uri() 
     7 
    182008-02-15  Takeru INOUE  <takeru.inoue _ gmail.com> 
    29 

  • lang/perl/Catalyst-Controller-Atompub/trunk/META.yml

    r4823 r6891  
    11--- 
    22name: Catalyst-Controller-Atompub 
    3 version: 0.3.2 
     3version: 0.3.4 
    44author: 
    55  - 'Takeru INOUE <takeru.inoue _ gmail.com>' 
    … …  
    4040  Catalyst::Controller::Atompub: 
    4141    file: lib/Catalyst/Controller/Atompub.pm 
    42     version: 0.3.2 
     42    version: 0.3.4 
    4343  Catalyst::Controller::Atompub::Base: 
    4444    file: lib/Catalyst/Controller/Atompub/Base.pm 

  • lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub.pm

    r6742 r6891  
    55use Carp; 
    66 
    7 use version; our $VERSION = qv('0.3.3'); 
     7use version; our $VERSION = qv('0.3.4'); 
    88 
    99use Atompub 0.1.6; 

  • lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub/Collection.pm

    r6742 r6891  
    4747} 
    4848 
    49 sub edit_uri :LocalRegex('^([^-/][^/]*)') { 
     49sub edit_uri :LocalRegex('^([^-/?&#][^/?&#]*)') { 
    5050    my ( $self, $c ) = @_; 
    5151    my $method = $RESOURCE_METHOD{ uc $c->req->method }; 
    … …  
    301301    return $c->res->status( RC_NOT_MODIFIED ) unless $self->_is_modified( $c ); 
    302302 
    303     my $uri = $c->req->uri; 
     303    my $uri = $c->req->uri->no_query; 
    304304 
    305305    my @accepts = $self->info->get( $c, $self )->accepts; 
    … …  
    359359    $self->edited( datetime ); 
    360360 
    361     my $uri = $c->req->uri; 
     361    my $uri = $c->req->uri->no_query; 
    362362 
    363363    my $content; 
    … …  
    427427#       if $self->_is_modified( $c ); 
    428428 
    429     my $uri = $c->req->uri; 
     429    my $uri = $c->req->uri->no_query; 
    430430 
    431431    my $rc = Catalyst::Controller::Atompub::Collection::Resource->new; 
    … …  
    446446    my $method = $c->req->method; 
    447447 
    448     my %ret = $self->find_version( $c, $c->req->uri ); 
     448    my %ret = $self->find_version( $c, $c->req->uri->no_query ); 
    449449 
    450450    my $etag          = $ret{etag}; 
    … …  
    482482    $self->NEXT::create_action( %args ); 
    483483} 
     484 
     485sub URI::no_query { [ split /[?&]/, shift->canonical ]->[0] } 
    484486 
    485487package Catalyst::Controller::Atompub::Collection::Resource; 
    … …  
    597599        my ( $self, $c ) = @_; 
    598600     
    599         my $uri = $c->req->uri; 
     601        my $uri = $c->entry_resource->uri; 
    600602     
    601603        # Retrieve the Entry 
    … …  
    615617        my ( $self, $c ) = @_; 
    616618     
    617         my $uri = $c->req->uri; 
     619        my $uri = $c->entry_resource->uri; 
    618620     
    619621        # app:edited element, which was assigned by C::C::Atompub, 
    … …  
    641643        my ( $self, $c ) = @_; 
    642644     
    643         my $uri = $c->req->uri; 
     645        my $uri = $c->entry_resource->uri; 
    644646     
    645647        # Delete the Entry