Catalyst-Controller-Atompub

 view release on metacpan or  search on metacpan

lib/Catalyst/Controller/Atompub/Collection.pm  view on Meta::CPAN

        # Set the Entry
        my $entry = XML::Atom::Entry->new(\$rs->xml);
        $self->entry_resource->body($entry);

        # Return true on success
        1;
    }

    # Update the requested Entry in the method with "Atompub(update)"
    # attribute
    sub update_entry :Atompub(update) {
        my($self, $c) = @_;

        my $uri = $c->entry_resource->uri;

        # app:edited element, which was assigned by C::C::Atompub,
        # is coverted into ISO 8601 format like '2007-01-01 00:00:00'
        my $edited = $self->edited->iso;

        # PUTted Entry (XML::Atom::Entry)
        my $entry = $self->entry_resource->body;

samples/MyAtom/lib/Catalyst/Controller/Atompub/Collection.pm  view on Meta::CPAN

        # Set the Entry
        my $entry = XML::Atom::Entry->new(\$rs->xml);
        $self->entry_resource->body($entry);

        # Return true on success
        1;
    }

    # Update the requested Entry in the method with "Atompub(update)"
    # attribute
    sub update_entry :Atompub(update) {
        my($self, $c) = @_;

        my $uri = $c->entry_resource->uri;

        # app:edited element, which was assigned by C::C::Atompub,
        # is coverted into ISO 8601 format like '2007-01-01 00:00:00'
        my $edited = $self->edited->iso;

        # PUTted Entry (XML::Atom::Entry)
        my $entry = $self->entry_resource->body;

samples/MyAtom/lib/MyAtom/Controller/MyCollection.pm  view on Meta::CPAN

    # Set the Entry
    my $entry = XML::Atom::Entry->new(\$rs->xml);
    $self->entry_resource->body($entry);

    # Return true on success
    1;
}

# Update the requested Entry in the method with "Atompub(update)"
# attribute
sub update_entry :Atompub(update) {
    my($self, $c) = @_;

    my $uri = $c->req->uri;

    # app:edited element, which was assigned by C::C::Atompub,
    # is coverted into UNIX time
    my $edited = $self->edited->epoch;

    # PUTted Entry (XML::Atom::Entry)
    my $entry = $self->entry_resource->body;

samples/MyBlog/lib/Catalyst/Controller/Atompub/Collection.pm  view on Meta::CPAN

        # Set the Entry
        my $entry = XML::Atom::Entry->new(\$rs->xml);
        $self->entry_resource->body($entry);

        # Return true on success
        1;
    }

    # Update the requested Entry in the method with "Atompub(update)"
    # attribute
    sub update_entry :Atompub(update) {
        my($self, $c) = @_;

        my $uri = $c->entry_resource->uri;

        # app:edited element, which was assigned by C::C::Atompub,
        # is coverted into ISO 8601 format like '2007-01-01 00:00:00'
        my $edited = $self->edited->iso;

        # PUTted Entry (XML::Atom::Entry)
        my $entry = $self->entry_resource->body;

samples/MyBlog/lib/MyBlog/Controller/EntryCollection.pm  view on Meta::CPAN

    my $uri = $c->req->uri;

    my $rs = $c->model($MODEL)->find({ uri => $uri })
        or return $self->error($c, RC_NOT_FOUND);

    $self->entry_resource->body(XML::Atom::Entry->new(\$rs->body));

    1;
}

sub update_resource :Atompub(update) {
    my($self, $c) = @_;

    my $uri = $c->req->uri;

    # Edit $entry if needed

    my $rs = $c->model($MODEL)->find({ uri => $uri })
        or return $self->error($c, RC_NOT_FOUND);

    my $vals = {

samples/MyBlog/lib/MyBlog/Controller/MediaCollection.pm  view on Meta::CPAN

	$self->media_resource->type(media_type('entry'));
    }
    else {
	$self->media_resource->body( MIME::Base64::decode($rs->media_body) );
	$self->media_resource->type($rs->media_type);
    }

    1;
}

sub update_resource :Atompub(update) {
    my($self, $c) = @_;

    my $uri = $c->req->uri;

    my $cond = {
        '-or' => [
            { entry_uri => $uri },
            { media_uri => $uri },
        ],
    };