[dw-free] Community archives not updating

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/77954ca8e61b]

http://bugs.dwscoalition.org/show_bug.cgi?id=2047

Only cache group security calendars for 15 minutes.

Patch by afuna.

Files modified:

• cgi-bin/LJ/User.pm

--------------------------------------------------------------------------------
diff -r 1ebb4fc0f06a -r 77954ca8e61b cgi-bin/LJ/User.pm
--- a/cgi-bin/LJ/User.pm	Tue Dec 15 02:22:49 2009 +0000
+++ b/cgi-bin/LJ/User.pm	Tue Dec 15 02:58:11 2009 +0000
@@ -2011,7 +2011,7 @@ sub clear_daycounts
 
         $access++ if $security eq 'public' || ( $security != 1 &&  $security =~ /^\d+/ );
     }
-    # FIXME: temporary workaround, but doesn't cover custom groups
+    # clear access only security, but does not cover custom groups
     push @memkind, "g1" if $access;
 
     # any change to any entry security means this must be expired
@@ -8003,7 +8003,7 @@ sub get_daycounts
             # this was an old version of the stored memcache value
             # where the first argument was the list creation time
             # so throw away the first argument
-            shift @$list unless ref @$list->[0];
+            shift @$list unless ref $list->[0];
             return $list;
         }
     }
@@ -8018,7 +8018,15 @@ sub get_daycounts
         # so they store smaller in memcache
         push @days, [ int($y), int($m), int($d), int($c) ];
     }
-    LJ::MemCache::set( $memkey, [@days] );
+
+    if ( $memkind ne "g1" && $memkind =~ /^g\d+$/ ) {
+        # custom groups are cached for only 15 minutes
+        LJ::MemCache::set( $memkey, [@days], 15 * 60 );
+    } else {
+        # all other security levels are cached indefinitely
+        # because we clear them when there are updates
+        LJ::MemCache::set( $memkey, [@days]  );
+    }
     return \@days;
 }
 
--------------------------------------------------------------------------------