Changeset 29211 for lang/perl/HappySync

Timestamp:

01/29/09 09:45:46 (4 years ago)

Author:

unau

Message:

changed local sile formats.

Location:

lang/perl/HappySync/trunk/lib

Files:

• HappySync.pm (modified) (3 diffs)
• HappySync/Entry.pm (modified) (6 diffs)

lang/perl/HappySync/trunk/lib/HappySync.pm

@@ -43 +43 @@
     $self->{client} = $client;
     $self->{xs}     = $xs;
-    $self->{blogEntry}  = new HappySync::Entry::Blog($client, $xs,
-                                                    $self->{syncpoint});
-    $self->{draftEntry} = new HappySync::Entry::Draft($client, $xs,
-                                                      $self->{syncpoint});
+    $self->{blogEntry}  = HappySync::Entry::new_Blog($self);
+    $self->{draftEntry} = HappySync::Entry::new_Draft($self);
     return 1;
 }
@@ -72 +70 @@
             if ($entry->onSiteIsNewer()) {
                 $entry->buildLocalPath();
-                $entry->get();
+                $entry->getRemoteXML();
+                $entry->writeInto();
             }
         }
@@ -87 +86 @@
 
     my $entry = undef;
+    print STDERR "$tag\n";
     if (my ($year, $type, $rest, $blogRest, $blogDate, $blogName, $draftName) =
         $tag =~ $self->{pattern4Tag}) {
         if ($blogRest) {
             $entry = $self->{blogEntry};
-            $entry->setDateAndAnchorName($blogDate, $blogName);
+            $entry->setDateAndEntryID($blogDate, $blogName);
         }
         else {
             $entry = $self->{draftEntry};
-            $entry->setDateAndAnchorName(q{},       $draftName);
+            $entry->setDateAndEntryID(q{},       $draftName);
         }
     }
-    
     $entry->setOnSiteMetaData($meta);
 

lang/perl/HappySync/trunk/lib/HappySync/Entry.pm

@@ -9 +9 @@
 use File::Path;
 use Data::Dumper;
+use Encode;
 
-sub new($$$) {
-    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
-    bless {
-           'client'      => $client,
-           'xs'          => $xmlSimpleInstance,
-           'syncpoint'   => $syncpoint,
+sub new($) {
+    my ($parent) = @_;
+    return {
+           client      => $parent->{client},
+           xs          => $parent->{xs},
+           syncpoint   => $parent->{syncpoint},
        };
 }
 
-sub get($) {}
+sub new_Blog($) {
+    my ($parent) = @_;
+    bless new($parent), 'HappySync::Entry::Blog';
+}
 
-sub setDateAndAnchorName() {
+sub new_Draft($) {
+    my ($parent) = @_;
+    bless new($parent), 'HappySync::Entry::Draft';
+}
+
+sub getRemoteXML($) {
     my $self = shift;
 
-    $self->{'date'}  = shift;
-    $self->{'name'} = shift;
+    my $xml = q{};
+    {
+        my $feed = $self->{client}->getFeed($self->{uri});
+        if (! $feed) {
+            $self->setError("an empty feed: ".$self->{uri}."\n");
+            return;
+        }
+        $xml = $self->{files}->{xml}->{value} = $feed->as_xml;
+    }
+    my $body = $self->{xs}->XMLin($xml);
+    $self->{files}->{html}->{value} = extractHTML($body);
+    $self->{files}->{source}->{value} = 
+        extractTitle($body)."\n".extractSource($body);
+}
+
+sub writeIntoFile($) {
+    my $pair = shift;
+    my $path = $pair->{path};
+    open my $fh, '>', $path or die $!;
+    print STDERR "\t->$path\n";
+    print $fh encode('UTF-8', $pair->{value})."\n";
+    close($fh);
+}
+
+sub writeInto($) {
+    my $self = shift;
+    my $files = $self->{files};
+    if ($self->hasError()) {
+        writeIntoFile($files->{err});
+    }
+    else {
+        writeIntoFile($files->{updated});
+        writeIntoFile($files->{source});
+        writeIntoFile($files->{html}) if $files->{html}->{value};
+        writeIntoFile($files->{xml});
+    }
+}
+
+sub setDateAndEntryID() {
+    my $self = shift;
+
+    $self->{date}  = shift;
+    $self->{entry_id} = shift;
 }
 
@@ -32 +82 @@
     my $meta = shift;
 
-    $self->setURI($meta);
+    $self->{uri} = $meta->{link}[0]->{href};
     $self->{updatedOnSite} = $meta->{updated};
 }
-
-sub setURI($$) {};
 
 sub buildLocalPath($) {
@@ -45 +93 @@
     mkpath($dirpath, 0, 0755);
     die "dir error $dirpath" if (! -d $dirpath || ! -x $dirpath);
+    my $base = $self->{basepath};
+    $self->{files} =
+        {
+         updated => { path => "$base.updated", value => $self->{updatedOnSite} },
+         source  => { path => "$base.txt",     value => q{} },
+         html    => { path => "$base.html",    value => q{} },
+         xml     => { path => "$base.xml",     value => q{} },
+         err     => { path => "$base.err",     value => q{} },
+     };
+}
 
+sub setError($$) {
+    my ($self, $value) = @_;
+    $self->{files}->{err}->{value} = $value;
+}
+sub hasError($) {
+    return shift->{files}->{err}->{value};
 }
 
@@ -54 +118 @@
 }
 
+sub extractTitle($) {
+    return shift->{title} || q{};
+}
+
+sub extractSource($) {
+    return shift->{'hatena:syntax'}->{content} || q{};
+}
+
+sub extractHTML($) {
+    return shift->{content}->{content} || q{};
+}
+
+
 ###
 package HappySync::Entry::Blog;
 use base qw/HappySync::Entry/;
-
-use XML::Simple;
-use Encode;
-use Data::Dumper;
-
-sub new($$$) {
-    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
-    bless {
-           'client'      => $client,
-           'xs'          => $xmlSimpleInstance,
-           'syncpoint'   => $syncpoint,
-       };
-}
-
-
-sub setURI($$) {
-    my $self = shift;
-    my $meta = shift;
-
-    $self->{uri} = $meta->{link}[0]->{href};
-}
 
 sub prepareLocalPath($) {
@@ -85 +141 @@
     my $dirpath = $self->{syncpoint}."d/$year$month";
     $self->{dirpath}  = $dirpath;
-    $self->{filepath} = "$dirpath/$date-".$self->{name}.".txt";
-    $self->{htmlpath} = "$dirpath/$date-".$self->{name}.".html";
+    $self->{basepath} = "$dirpath/$date-".$self->{entry_id};
 }
 
-sub get($) {
-    my $self = shift;
-
-    my $client = $self->{client};
-    my $feed = $client->getFeed($self->{uri});
-    if (! $feed) {
-        print STDERR "ERR URI:\t".$self->{uri}."\n";
-        return;
-    }
-    my $body = XMLin($feed->as_xml);
-
-    my $html   = $body->{content}->{content} || q{};
-    my $source = $body->{'hatena:syntax'}->{content} || q{};
-    my $title   = $body->{title} || q{};
-
-    {
-        my $filepath = $self->{htmlpath};
-        open my $fh, '>', $filepath or die $!;
-        print STDERR $filepath."\n";
-        print $fh encode('UTF-8', $title)."\n";
-        print $fh $self->{updatedOnSite}."\n";
-        print $fh encode('UTF-8', $html)."\n";
-        close($fh);
-    }
-    {
-        my $filepath = $self->{filepath};
-        open my $fh, '>', $filepath or die $!;
-        print STDERR $filepath."\n";
-        print $fh encode('UTF-8', $title)."\n";
-        print $fh $self->{updatedOnSite}."\n";
-        print $fh encode('UTF-8', $source)."\n";
-        close($fh);
-    }
-}
 
 ###
@@ -128 +149 @@
 use base qw/HappySync::Entry/;
 
-use XML::Simple;
-use Encode;
-use Data::Dumper;
-
-sub new($$$) {
-    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
-    bless {
-           'client'      => $client,
-           'xs'          => $xmlSimpleInstance,
-           'syncpoint'   => $syncpoint,
-       };
-}
-
-sub setURI($$) {
-    my $self = shift;
-    my $meta = shift;
-
-#    print STDERR Dumper($meta->{link});
-    $self->{uri} = $meta->{link}[0]->{href};
-#    $self->{uri} = $meta->{link}->{href};
-}
-
 sub prepareLocalPath($) {
     my $self = shift;
     my $dirpath = $self->{syncpoint}."d/draft";
     $self->{dirpath}  = $dirpath;
-    $self->{filepath} = "$dirpath/".$self->{name}.".txt";
+    $self->{basepath} = "$dirpath/".$self->{entry_id};
 }
 
-sub get($) {
-    my $self = shift;
-
-    my $client = $self->{client};
-    my $feed = $client->getFeed($self->{uri});
-    if (! $feed) {
-        print STDERR "ERR URI:\t".$self->{uri}."\n";
-        return;
-    }
-    my $body = $self->{xs}->XMLin($feed->as_xml);
-
-    my $source  = $body->{content}->{content} || q{};
-    my $title   = $body->{title} || q{};
-
-    {
-        my $filepath = $self->{filepath};
-        open my $fh, '>', $filepath or die $!;
-        print STDERR $filepath."\n";
-        print $fh encode('UTF-8', $title)."\n";
-        print $fh $self->{updatedOnSite}."\n";
-        print $fh encode('UTF-8', $source)."\n";
-        close($fh);
-    }
-}
 
 1;