Committer: slobin
LJM-1839: Integration m.livejournal.com into big version LiveJournalM LiveJournal.pm
U branches/mobile/cgi-bin/Apache/LiveJournal.pm
Modified: branches/mobile/cgi-bin/Apache/LiveJournal.pm =================================================================== --- branches/mobile/cgi-bin/Apache/LiveJournal.pm 2011-06-28 03:05:36 UTC (rev 19376) +++ branches/mobile/cgi-bin/Apache/LiveJournal.pm 2011-06-28 03:32:32 UTC (rev 19377) @@ -343,6 +343,7 @@ my @args = split (/\//, LJ::Request->uri); my $response = LJ::Request->notes('controller')->process([@args[1 .. @args-1]]); +warn "RUN: ". LJ::Request->notes('controller'). ' => '.LJ::Request->notes('method'); LJ::Request->handler("perl-script"); LJ::Request->set_handlers(PerlHandler => sub { # show error page if controller didn't return response object @@ -481,10 +482,6 @@ # user-agent string; FIXME: maybe this should do more than just look at the # initial letters? -#my %cookies = LJ::Request->cookies; -#use Data::Dumper; -#warn Dumper \%cookies; - if (my $ua = LJ::Request->header_in('User-Agent')) { if ( Apache::WURFL->is_mobile && $BML::COOKIE{fullversion} ne 'yes' #($ua =~ /^([a-z]+)/i) && $LJ::MINIMAL_USERAGENT{$1} @@ -496,7 +493,6 @@ return redir("http://m.$LJ::DOMAIN$mobile_url") if $mobile_url; -#warn "URI: $mobile_url ($LJ::DOMAIN)"; } }