Changeset 29106 for lang/perl/HappySync/trunk/lib/HappySync/Entry.pm

Timestamp:

01/27/09 11:08:08 (4 years ago)

Author:

unau

Message:

 

Files:

• lang/perl/HappySync/trunk/lib/HappySync/Entry.pm (modified) (5 diffs)

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

@@ -11 +11 @@
 
 sub new($$$) {
-    my ($class, $client, $syncpoint) = @_;
+    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
     bless {
            'client'      => $client,
+           'xs'          => $xmlSimpleInstance,
            'syncpoint'   => $syncpoint,
        };
@@ -62 +63 @@
 
 sub new($$$) {
-    my ($class, $client, $syncpoint) = @_;
+    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
     bless {
            'client'      => $client,
+           'xs'          => $xmlSimpleInstance,
            'syncpoint'   => $syncpoint,
        };
@@ -131 +133 @@
 
 sub new($$$) {
-    my ($class, $client, $syncpoint) = @_;
+    my ($class, $client, $xmlSimpleInstance, $syncpoint) = @_;
     bless {
            'client'      => $client,
+           'xs'          => $xmlSimpleInstance,
            'syncpoint'   => $syncpoint,
        };
@@ -142 +145 @@
     my $meta = shift;
 
-    $self->{uri} = $meta->{link}->{href};
+#    print STDERR Dumper($meta->{link});
+    $self->{uri} = $meta->{link}[0]->{href};
+#    $self->{uri} = $meta->{link}->{href};
 }
 
@@ -157 +162 @@
     my $client = $self->{client};
     my $feed = $client->getFeed($self->{uri});
-    my $body = XMLin($feed->as_xml);
+    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{};