[livejournal] r22752: LJSUP-13445: Home page optimization: sta...

U   trunk/cgi-bin/ljlib.pl

Modified: trunk/cgi-bin/ljlib.pl
===================================================================
--- trunk/cgi-bin/ljlib.pl	2012-08-28 10:28:33 UTC (rev 22751)
+++ trunk/cgi-bin/ljlib.pl	2012-08-28 12:01:07 UTC (rev 22752)
@@ -2343,6 +2343,7 @@
     %LJ::_ML_USED_STRINGS = ();       # strings looked up in this web request
     %LJ::REQ_CACHE_USERTAGS = ();     # uid -> { ... }; populated by get_usertags, so we don't load it twice
     %LJ::LOCK_OUT = ();
+    %LJ::SECRET = ();                 # secret key -> secret value
 
     $LJ::VERTICALS_FORCE_USE_MASTER = 0;    # It need to load a new created category from master insteed slave server.
 
@@ -3197,7 +3198,12 @@
     }
 
     my $memkey = "secret:$time";
-    my $secret = LJ::MemCache::get($memkey);
+    my $secret = $LJ::SECRET{$memkey};
+    if (!$secret) {
+        $secret = LJ::MemCache::get($memkey);
+        $LJ::SECRET{$memkey} = $secret;
+    }
+
     return $want_new ? ($time, $secret) : $secret if $secret;
 
     my $dbh = LJ::get_db_writer();
@@ -3205,6 +3211,7 @@
     $secret = $dbh->selectrow_array("SELECT secret FROM secrets ".
                                     "WHERE stime=?", undef, $time);
     if ($secret) {
+        $LJ::SECRET{$memkey} = $secret;
         LJ::MemCache::set($memkey, $secret) if $secret;
         return $want_new ? ($time, $secret) : $secret;
     }