Changeset 580 for trunk/lib/Perlbal/Plugin/AtomInject.pm

Timestamp:

09/29/06 09:29:04 (3 years ago)

Author:

aimbert

Message:

add a path filter t the AtomStream:

- the AtomInject plugin receives a PUT request on a given path ("$put_path") with the content of an entry.
- the AtomStream plugin receives a GET request on another path ("$get_path/atom-stream.xml") (the arg 'since' is still allowed)

$put_path and $get_path can be '/' or '/a' or '/a/b', ....

then the AtomStream plugin produces a result filtered like this:

GET /atom-stream.xml returns everything ('/' or '/a' or '/a/b')
GET /a/atom-stream.xml returns the entries put with '/a' or '/a/b'
GET /a/b/atom-stream.xml returns the entries put with '/a/b'

Files:

• trunk/lib/Perlbal/Plugin/AtomInject.pm (modified) (2 diffs)

trunk/lib/Perlbal/Plugin/AtomInject.pm

@@ -22 +22 @@
 
         my $uri = $hds->request_uri;
-        return $self->send_response(400, "Invalid uri") unless $uri eq "/";
-
+        return $self->send_response(400, "Invalid uri") unless $uri =~ /^\//;
+        $self->{scratch}{path} = $uri;
+        
         # now abort the normal handle_put processing...
         return 1;
@@ -38 +39 @@
         $self->{read_ahead} = 0;
 
-        my $rv = eval { Perlbal::Plugin::AtomStream->InjectFeed(\$data); };
+        my $rv = eval { Perlbal::Plugin::AtomStream->InjectFeed(\$data, $self->{scratch}{path}); };
         return $self->send_response(200);
     });