Changeset 69

Timestamp:

05/25/05 12:03:23 (3 years ago)

Author:

ogawa

Message:

Add "refresh" option to FlickrPublicPhotos? container.
Add FlickrAPI caching feature.

Files:

• FlickrPublicPhotos/trunk/FlickrPublicPhotos.pl (modified) (1 diff)

FlickrPublicPhotos/trunk/FlickrPublicPhotos.pl

@@ -32 +32 @@
-MT::Template::Context->add_tag('FlickrPublicPhotoOwnerName' => \&owner_name);
-
+# Load photos via FlickrAPI
+sub load_photos_fapi {
+    my ($user) = @_;
+    my $flickr = new MT::Plugin::FlickrPublicPhotos::API();
+    return $flickr->photos($user);
+}
+
+# Load and cache photos
+sub load_photos {
+    my ($user, $refresh) = @_;
+    require MT::PluginData;
+    my $pd = MT::PluginData->load({ plugin => 'FlickrPublicPhotos',
+                                    key => $user });
+    if (!$pd) {
+        $pd = new MT::PluginData();
+        $pd->plugin('FlickrPublicPhotos');
+        $pd->key($user);
+    }
+    my $data = $pd->data() || {};
+    if (!defined($data->{last_updated}) || !defined($data->{photos}) ||
+        (time - $data->{last_updated} >= $refresh)) {
+        my @photos = eval { load_photos_fapi($user); };
+        # if FlickrAPI call fails, reuse cache
+        if (!$@ || !defined($data->{photos})) {
+            $data->{photos} = \@photos;
+            $data->{last_updated} = time;
+        }
+        $pd->data($data);
+        $pd->save or die $pd->errstr;
+    }
+    return @{$data->{photos}};
+}
+
-sub photos {
-    my ($ctx, $args) = @_;
-    my $user = $args->{user} or $ctx->error("'user' must be specified");
-
-
-
+
+
+
-
-    my $lastn = $args->{lastn} || 0;