Show
Ignore:
Timestamp:
06/04/08 14:50:45 (5 years ago)
Author:
charsbar
Message:

WWW-Mixi-Scraper: fixed show_calendar and live tested and 0.14 -> CPAN. thanks otsune++ for reporting and a patch

Location:
lang/perl/WWW-Mixi-Scraper/trunk
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WWW-Mixi-Scraper/trunk/Changes

    r7521 r13194  
    11Revision history for WWW-Mixi-Scraper 
     2 
     30.14  2008/06/04 
     4  - mixi seems to have changed show_calendar format 
     5    fixed scraping rules (thanks to otsune) 
    26 
    370.13  2008/03/05 

  • lang/perl/WWW-Mixi-Scraper/trunk/lib/WWW/Mixi/Scraper.pm

    r7521 r13194  
    44use warnings; 
    55 
    6 our $VERSION = '0.13'; 
     6our $VERSION = '0.14'; 
    77 
    88use String::CamelCase qw( decamelize ); 

  • lang/perl/WWW-Mixi-Scraper/trunk/lib/WWW/Mixi/Scraper/Plugin/ShowCalendar.pm

    r13193 r13194  
    2424  my %scraper; 
    2525  $scraper{ym} = scraper { 
    26     process '#calendarBox>div.heading02>h3', 
     26    process 'div#calendarBox>div.heading02>h3', 
    2727      ym => 'TEXT'; 
    2828    result qw( ym ); 
    2929  }; 
    3030  my $ym = $scraper{ym}->scrape(\$html); 
     31 
    3132  my ($year, $month) = $ym =~ /^(\d{4})\D+(\d{1,2})/; 
    3233 
    3334  $scraper{day} = scraper { 
    34     process '.', 
    35       day => 'TEXT'; # TODO: fixme. I hope exclude <p> and <ul> node. 
     35    process 'td', 
     36      day => sub { $_->content and $_->content->[0] }; 
    3637    process 'ul>li', 
    3738      'icons[]' => sub{