Changeset 996
- Timestamp:
- 06/17/06 21:39:18
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Subscription/Bookmarks/Safari.pm
r995 r996 9 9 10 10 my $plist = Mac::Tie::PList->new_from_file($self->conf->{path}); 11 $self->find_feed($context, $plist );11 $self->find_feed($context, $plist, []); 12 12 } 13 13 14 14 sub find_feed { 15 my($self, $context, $plist ) = @_;15 my($self, $context, $plist, $tags) = @_; 16 16 17 17 if(my @children = @{$plist->{Children}}) { 18 push(@$tags, $plist->{Title}) if $plist->{Title}; 19 18 20 for my $child (@children) { 19 $self->find_feed($context, $child );21 $self->find_feed($context, $child, $tags); 20 22 } 21 23 } elsif($plist->{URLString}) { … … 33 35 $feed->url($url->as_string); 34 36 $feed->title($plist->{URIDictionary}->{title}); 37 $feed->tags($tags); 35 38 $context->subscription->add($feed); 36 39 }
