[livejournal] r19377: LJM-1839: Integration m.livejournal.com ...

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)";
         }
     }