Changeset 1516

Show
Ignore:
Timestamp:
02/15/05 23:44:46
Author:
miyagawa
Message:

0.05

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WebService-Bloglines/trunk/Changes

    r1508 r1516  
    11Revision history for Perl extension WebService::Bloglines 
     2 
     30.05  Tue Feb 15 23:08:23 JST 2005 
     4        - Added BloglinesUnread in each folder of Subscriptions 
     5          (Thanks to Gosuke Miyashita) 
    26 
    370.04  Sat Jan 15 21:09:35 JST 2005 
  • WebService-Bloglines/trunk/META.yml

    r1508 r1516  
    22#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX# 
    33name:         WebService-Bloglines 
    4 version:      0.04 
     4version:      0.05 
    55version_from: lib/WebService/Bloglines.pm 
    66installdirs:  site 
  • WebService-Bloglines/trunk/lib/WebService/Bloglines.pm

    r1508 r1516  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.04
     5$VERSION = 0.05
    66 
    77use LWP::UserAgent; 
     
    126126  for my $folder (@folders) { 
    127127      my $title  = $folder->{title};  # title of the folder 
     128      my $unread = $folder->{BloglinesUnread}; # number of unread items 
    128129      my $subid  = $folder->{BloglinesSubId};  # Bloglines SubId 
    129130      my $ignore = $folder->{BloglinesIgnore}; # flag to ignore update 
  • WebService-Bloglines/trunk/lib/WebService/Bloglines/Subscriptions.pm

    r1496 r1516  
    2828    # no XML library used :-) 
    2929    my $current_folderid = 0; 
     30    my $current_folder_unread = 0; 
    3031    while ($self->{_xml} =~ m!(</?outline *[^>]*>)!gs) { 
    3132        local $_ = $1; 
     
    3536            $attr->{folderId} = $current_folderid; 
    3637            push @{$self->{_feeds}}, $attr; 
     38            $current_folder_unread += $attr->{BloglinesUnread}; 
    3739        } elsif (m!<outline (.*?)>$!) { 
    3840            my $attr = $self->_parse_attr($1); 
     
    4143            $current_folderid = $attr->{BloglinesSubId}; 
    4244        } elsif (m!^</outline>$!) { 
     45            $current_folderid and $self->{_folders}->{$current_folderid}->{BloglinesUnread} = $current_folder_unread; 
     46            $current_folder_unread = 0; 
    4347            $current_folderid = 0; 
    4448        } else {