[livejournal] r19638: LJSUP-9334: New auth system for external...

U   trunk/cgi-bin/LJ/Session.pm

Modified: trunk/cgi-bin/LJ/Session.pm
===================================================================
--- trunk/cgi-bin/LJ/Session.pm	2011-08-08 09:13:24 UTC (rev 19637)
+++ trunk/cgi-bin/LJ/Session.pm	2011-08-08 09:19:17 UTC (rev 19638)
@@ -576,10 +576,12 @@
 sub session_from_cookies {
     my $class = shift;
 
-    # for debug only. keep in secret!
-    my %GET = LJ::Request->args;
-    if ( exists $GET{'655'} && $GET{'655'} eq '125' ) {
-        warn "Incoming headers: " . Dumper(LJ::Request->headers_in());
+    unless ( $LJ::DISABLED{'dump_headers'} ) {
+        # for debug only. keep in secret!
+        my %GET = LJ::Request->args;
+        if ( exists $GET{'655'} && $GET{'655'} eq '125' ) {
+            warn "Incoming headers: " . Dumper(LJ::Request->headers_in());
+        }
     }
 
     my %getopts = @_;
@@ -731,7 +733,7 @@
     foreach my $sessdata (@cookies) {
         my ($cookie, $gen) = split(m!//!, $sessdata);
 
-        my ($version, $userid, $sessid, $auth, $flags);
+        my ($version, $userid, $sessid, $auth, $flags, $sig);
 
         my $dest = {
             v => \$version,
@@ -739,6 +741,7 @@
             s => \$sessid,
             a => \$auth,
             f => \$flags,
+            g => \$sig
         };
 
         my $bogus = 0;