cgi-bin/LJ/URI.pm

   1 # This is a module for handling URIs
   2 use strict;
   3
   4 package LJ::URI;
   5
   6 use LJ::Pay::Wallet;
   7
   8 # Takes an Apache a path to BML filename relative to htdocs
   9 sub bml_handler {
  10     my ($class, $filename) = @_;
  11
  12     LJ::Request->handler("perl-script");
  13     LJ::Request->notes("bml_filename" => "$LJ::HOME/htdocs/$filename");
  14     LJ::Request->push_handlers(PerlHandler => \&Apache::BML::handler);
  15     return LJ::Request::OK;
  16 }
  17
  18 sub api_handler {
  19     my ($class) = @_;
  20     Apache::LiveJournal::Interface::Api->load;
  21     LJ::Request->handler("perl-script");
  22     LJ::Request->push_handlers(PerlHandler => \&Apache::LiveJournal::Interface::Api::handler);
  23     return LJ::Request::OK;
  24 }
  25
  26 # Handle a URI. Returns response if success, undef if not handled
  27 # Takes URI and Apache $r
  28 sub handle {
  29     my ($class, $uri) = @_;
  30
  31     return undef unless $uri;
  32
  33     # handle "RPC" URIs
  34     if (my ($rpc) = $uri =~ m!^.*/__rpc_(\w+)$!) {
  35         my $bml_handler_path = $LJ::AJAX_URI_MAP{$rpc};
  36
  37         return LJ::URI->bml_handler($bml_handler_path) if $bml_handler_path;
  38     }
  39
  40     # handle "API" endpoint
  41     if ($uri =~ /^\/__api_endpoint.*$/) {
  42         return LJ::URI->api_handler();
  43     }
  44
  45     ## URI "/pics" can be handle only under user domains
  46     return undef if $uri =~ /^\/pics/;
  47
  48     # handle normal URI mappings
  49     if (my $bml_file = $LJ::URI_MAP{$uri}) {
  50         return LJ::URI->bml_handler($bml_file);
  51     }
  52
  53     # handle URI redirects
  54     if (my $url = $LJ::URI_REDIRECT{$uri}) {
  55         return Apache::LiveJournal::redir($url, LJ::Request::HTTP_MOVED_TEMPORARILY);
  56     }
  57
  58     my $args = LJ::Request->args;
  59     my $full_uri = $uri;
  60     $full_uri .= "?$args" if $args;
  61
  62     ########
  63     #
  64     # Now we handle verticals as subproject of community directory via LJ::Browse
  65     #
  66     ########
  67
  68     # handle vertical URLs
  69     if (my $v = LJ::Vertical->load_by_url($full_uri)) {
  70         return LJ::URI->bml_handler("browse/index.bml");
  71     }
  72
  73     if (my $c = LJ::Browse->load_by_url($full_uri)) {
  74         return LJ::URI->bml_handler("browse/index.bml");
  75     }
  76
  77     if ($uri =~ m!^/statistics(/.*|$)! or $uri =~ m!^/ratings(/.*|$)! and not $uri eq '/ratings/admin.bml') {
  78         return LJ::URI->bml_handler("statistics/index.bml");
  79     }
  80
  81     if ( $uri =~ m!^/singles(/.*|$)! ) {
  82         return LJ::URI->bml_handler("singles/index.bml");
  83     }
  84
  85     return undef;
  86 }
  87
  88 1;