Changeset 1769

Timestamp:

11/19/07 03:30:51 (10 months ago)

Author:

mattn

Message:

lang/perl/Net-Kotonoha/trunk/README,
lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm:

added README file.
added following methods to module.

hot_list
answered_list
posted_list
stream_list
subscribed_list

Location:

lang/perl/Net-Kotonoha/trunk

Files:

• README (added)
• lib/Net/Kotonoha.pm (modified) (4 diffs)

lang/perl/Net-Kotonoha/trunk/lib/Net/Kotonoha.pm

@@ -8 +8 @@
 use HTML::Selector::XPath qw/selector_to_xpath/;
 use HTML::TreeBuilder::XPath;
+use HTML::Entities qw/decode_entities/;
 use Net::Kotonoha::Koto;
 
@@ -63 +64 @@
     my $self = shift;
     my $xpath = shift;
+    my $page = shift || 'http://kotonoha.cc/home';
 
     $self->login unless defined $self->{loggedin};
 
-    my $res = $self->{mech}->get('http://kotonoha.cc/home');
+    my $res = $self->{mech}->get( $page );
     croak "can't login kotonoha.cc" unless $res->is_success;
     return unless $res->is_success;
@@ -91 +93 @@
 }
 
+sub _get_stream {
+    my $self = shift;
+    my $xpath = shift;
+    my $page = shift || 'http://kotonoha.cc/stream';
+
+    $self->login unless defined $self->{loggedin};
+
+    my $res = $self->{mech}->get( $page );
+    croak "can't login kotonoha.cc" unless $res->is_success;
+    return unless $res->is_success;
+
+    my @list;
+
+    my $tree = HTML::TreeBuilder::XPath->new;
+    $tree->parse($res->content);
+    $tree->eof;
+    foreach my $line ($tree->findnodes(selector_to_xpath($xpath))) {
+        my $html = decode_entities($line->as_HTML);
+        if ($html =~ /<a href="\/user\/(\w+)">([^<]+)<\/a>[^<]+<a href="\/no\/(\d+)">([^<]+)<\/a>([^ ]+)( [^ ]+ (.+))?$/) {
+            push @list, {
+                user    => $1,
+                name    => $2,
+                comment => $7 || '',
+                answer  => $5,
+                koto_no => $3,
+                title   => $4,
+            }
+        }
+    }
+    $tree->delete;
+    return @list;
+}
+
 sub newer_list {
     return shift->_get_list('dl#newkoto a');
@@ -97 +132 @@
 sub recent_list {
     return shift->_get_list('dl#recentkoto a');
+}
+
+sub hot_list {
+    return shift->_get_list('dl#hot20 a');
+}
+
+sub answered_list {
+    return shift->_get_list('dl#answeredkoto a');
+}
+
+sub posted_list {
+    return shift->_get_list('dl#postedkoto a');
+}
+
+sub stream_list {
+    return shift->_get_stream('dl#stream li');
+}
+
+sub subscribed_list {
+    return shift->_get_stream('dl#subscribelist li', 'http://kotonoha.cc/inbox');
 }