Changeset 5819 for lang/perl/WWW-HatenaDiary

Timestamp:

01/30/08 01:26:09 (5 years ago)

Author:

kentaro

Message:

lang/perl/WWW-HatenaDiary?:

• Fixed a bug: creating/updating entry fails if diary is under private.
  
• Updated the POD along with the update
  

Location:

lang/perl/WWW-HatenaDiary/trunk

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/WWW/HatenaDiary.pm (modified) (8 diffs)

lang/perl/WWW-HatenaDiary/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension WWW::HatenaDiary
+
+0.02    Tue Jan 30 01:18:09 2008
+        - This module now uses WWW::HatenaLogin to login to Hatena::Diary.
+        (Thanks to Yappo++)
+        - Fixed a bug: creating/updating entry fails if diary is under private.
 
 0.01    Tue Jan  1 22:45:04 2008

lang/perl/WWW-HatenaDiary/trunk/Makefile.PL

@@ -9 +9 @@
     JSON::Syck
 /);
+
 requires WWW::HatenaLogin => 0.02;
 

lang/perl/WWW-HatenaDiary/trunk/lib/WWW/HatenaDiary.pm

@@ -6 +6 @@
 use Web::Scraper;
 use WWW::Mechanize;
+use WWW::HatenaLogin;
 use JSON::Syck 'Load';
-use WWW::HatenaLogin;
 
 our $VERSION = '0.01';
@@ -210 +210 @@
     });
 
+    $self->{login}->mech->get($uri);
+
     scraper {
         process '//div[@class="section"][1]/h3[1]/a[1]', 'uri' => '@href';
         result 'uri';
-    }->scrape(URI->new($uri));
+    }->scrape($self->{login}->mech->content, URI->new($self->{diary}));
 }
 
@@ -238 +240 @@
   });
 
+  # Or just pass a WWW::HatenaLogin object like below if you already have it.
+  # See the POD of it for details
+  my $diary = WWW::HatenaDiary->new({
+      login => $login                 # it's a WWW::HatenaLogin object
+  });
+
   # Check if already logged in to Hatena::Diary
   # If you have a valid cookie, you can omit this process
@@ -305 +313 @@
 =head1 METHODS
 
-=head2 new ( [I<\%args>] )
+=head2 new ( I<\%args> )
 
 =over 4
@@ -319 +327 @@
   });
 
+  # or...
+
+  my $diary = WWW::HatenaDiary->new({
+      login => $login                 # it's a WWW::HatenaLogin object
+  });
+
+
 Creates and returns a new WWW::HatenaDiary object. If you have a valid
 cookie and pass it into this method as one of C<mech_opt>, you can
@@ -328 +343 @@
 with your diary on Hatena::Group.
 
-C<mech_opt> field is also optional. You can use it to customize the
+C<mech_opt> field is optional. You can use it to customize the
 behavior of this module in the way you like. See the POD of
 L<WWW::Mechanize> for more details.
+
+C<login> field is also optional. If you already have a
+L<WWW::HatenaLogin> object, you can use it to communicate with
+Hatena::Diary after just passing it as the value of the field. See the
+POD of L<WWW::HatenaLogin> for more details.
 
 =back
@@ -510 +530 @@
 L<http://d.hatena.ne.jp/>
 
+=item * L<WWW::HatenaLogin>
+
 =item * L<WWW::Mechanize>
 
@@ -516 +538 @@
 =head1 ACKNOWLEDGMENT
 
-typester++ for some codes copied from Fuse::Hatena.
+typester++ for some codes copied from L<Fuse::Hatena>.
+
+Yappo++ for improving this module using L<WWW::HatenaLogin>
 
 =head1 AUTHOR