Committer: amyshkin
LJSUP-9334: New auth system for external domains (livejournal.sg)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;