2008-08-21_12:16:05-0400 Ron Peterson <[EMAIL PROTECTED]>: > 2008-04-09_06:24:21-0400 Dave <[EMAIL PROTECTED]>: > > On Wed, Apr 9, 2008 at 12:09 PM, Peter Evans <[EMAIL PROTECTED]> wrote: > > > On Wed, Apr 09, 2008 at 11:57:37AM +0200, Dave wrote: > > > > What a drag, sounds like I'll have to boot the old Windows partition, > > > > get my hands on Windows Live Writer and figure out what is going > > > > wrong. > > > > > > > Another option is to use Roller's AtomPub implementation, it tested > > > > well against Windows Live Writer. > > > > > > Tell me how to turn it on and I'll give that a spin too. > > > > In your properties file: > > webservices.atomprotocol.enabled=true > > > > The AtomPub end-point will be: > > http://hostname/roller/roller-services/app > > I'm trying this, and if I log in as plain ol' me, I get an > authentication error, but if I log in as my admin user, I get in. > > Of course I'd rather not have people log in as the admin user.
(Is this expected behaviour?) I'm playing now w/ the perl Atompub::Client module, which I'm hoping will help educate me about how this all works. I'm still getting stuck though. http://search.cpan.org/~takeru/Atompub-0.3.1/lib/Atompub/Client.pm When I run the following code, it returns the following error: 4994$ ./test.pl Reference found where even-sized list expected at /usr/local/share/perl/5.8.8/XML/Atom/Client.pm line 27. Bad Content-Type: application/xml at /usr/local/share/perl/5.8.8/Atompub/Client.pm line 168. Am I misunderstanding what the service URI should be? I have both webservices.atomprotocol.enabled=true webservices.adminprotocol.enabled=true in my roller-custom.properties. Am I forgetting something? I'm using Roller 4.0 btw, which I'm accessing via an Apache AJP proxy. -Ron- #! /usr/bin/perl -w my $SERVICE_URI = "https://pub.mtholyoke.edu/journal/roller-services/rap";; use strict; use Atompub::Client; use Data::Dumper; my $client = Atompub::Client->new; $client->username('username'); $client->password('password'); my $service = $client->getService($SERVICE_URI); # my @workspaces = $service->workspaces; # print "\n\nWorkspaces:\n"; # print Dumper @workspaces; # my @collections = $workspaces[0]->collections; # print "\n\nCollections:\n"; # print Dumper @collections;
