| Subject: | list_tags() doesn't work. |
This snippet (username, password elided) fails:
---
use Net::Google::PicasaWeb;
my $service = Net::Google::PicasaWeb->new();
$service->authenticator()->login('user', 'pass');
my @photos = $service->list_media_entries(user_id => 'default');
print "Media:\n";
foreach my $photo (@photos) {
my $media_info = $photo->photo();
print $media_info->title(), "\n";
print " ", join(',', $photo->list_tags(user_id => 'default')), "\n";
}
---
The list_tags() call fails.
Turning on some tracing ("env 'PERL5OPT=-MCarp=verbose -MLWP::Debug=+'")
shows that the URL that's being requested is:
LWP::UserAgent::send_request: GET
http://picasaweb.google.com/data/feed/api/user//albumid/<albumid>/photoid/<photoid>?kind=tag
Note the '//' between 'user' and 'albumid'. It looks as though the
Picasa username is not being inserted in to the URL at the right place.