Show
Ignore:
Timestamp:
06/02/08 00:25:53 (5 years ago)
Author:
tokuhirom
Message:

App::Mobirc::HTTPD::* => App::Mobirc::Web::*

Location:
lang/perl/mobirc/trunk/lib/App/Mobirc
Files:
14 modified
1 moved

Legend:

Unmodified
Added
Removed

  • lang/perl/mobirc/trunk/lib/App/Mobirc/HTTPD.pm

    r13024 r13031  
    1212use App::Mobirc; 
    1313use App::Mobirc::Util; 
    14 use App::Mobirc::HTTPD::Handler; 
     14use App::Mobirc::Web::Handler; 
    1515 
    1616use HTTP::Engine middlewares => [ 
    1717    qw/ 
    18         +App::Mobirc::HTTPD::Middleware::Encoding 
    19         +App::Mobirc::HTTPD::Middleware::MobileAgent 
     18        +App::Mobirc::Web::Middleware::Encoding 
     19        +App::Mobirc::Web::Middleware::MobileAgent 
    2020    / 
    2121]; 
    … …  
    3131                port => ($config->{httpd}->{port} || 80), 
    3232            }, 
    33             request_handler => \&App::Mobirc::HTTPD::Handler::handler, 
     33            request_handler => \&App::Mobirc::Web::Handler::handler, 
    3434        } 
    3535    )->run; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/C.pm

    r13013 r13031  
    1 package App::Mobirc::HTTPD::C; 
     1package App::Mobirc::Web::C; 
    22use strict; 
    33use warnings; 
    44use Exporter 'import'; 
    5 use App::Mobirc::HTTPD::View; 
     5use App::Mobirc::Web::View; 
    66use Encode; 
    77 
    … …  
    1414sub render_td { 
    1515    my ($c, @args) = @_; 
    16     my $html = App::Mobirc::HTTPD::View->show(@args); 
     16    my $html = App::Mobirc::Web::View->show(@args); 
    1717    _make_response($c, $html); 
    1818} 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/C/Ajax.pm

    r12902 r13031  
    1 package App::Mobirc::HTTPD::C::Ajax; 
     1package App::Mobirc::Web::C::Ajax; 
    22use Moose; 
    3 use App::Mobirc::HTTPD::C; 
     3use App::Mobirc::Web::C; 
    44use App::Mobirc::Util; 
    55use Encode; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/C/Mobile.pm

    r13013 r13031  
    1 package App::Mobirc::HTTPD::C::Mobile; 
     1package App::Mobirc::Web::C::Mobile; 
    22use Moose; 
    3 use App::Mobirc::HTTPD::C; 
     3use App::Mobirc::Web::C; 
    44use App::Mobirc::Util; 
    55use URI::Escape qw/uri_escape uri_unescape/; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/C/Static.pm

    r12894 r13031  
    1 package App::Mobirc::HTTPD::C::Static; 
     1package App::Mobirc::Web::C::Static; 
    22use Moose; 
    3 use App::Mobirc::HTTPD::C; 
     3use App::Mobirc::Web::C; 
    44use App::Mobirc::Util; 
    55use Path::Class; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Handler.pm

    r13013 r13031  
    1 package App::Mobirc::HTTPD::Handler; 
     1package App::Mobirc::Web::Handler; 
    22use Moose; 
    33use Scalar::Util qw/blessed/; 
    44use App::Mobirc; 
    55use App::Mobirc::Util; 
    6 use App::Mobirc::HTTPD::Router; 
    7 use App::Mobirc::HTTPD::C::Mobile; 
    8 use App::Mobirc::HTTPD::C::Ajax; 
    9 use App::Mobirc::HTTPD::C::Static; 
     6use App::Mobirc::Web::Router; 
     7use App::Mobirc::Web::C::Mobile; 
     8use App::Mobirc::Web::C::Ajax; 
     9use App::Mobirc::Web::C::Static; 
    1010use Data::Visitor::Encode; 
    1111 
    … …  
    2020 
    2121    if (authorize($c)) { 
    22         my $response = process_request($c); 
    23         if ($response && blessed $response && $response->isa('HTTP::Response')) { # TODO: remove this feature 
    24             $c->res->set_http_response($response); 
    25         } 
     22        process_request($c); 
    2623        context->run_hook('response_filter', $c); 
    2724    } else { 
    … …  
    4542    my ($c, ) = @_; 
    4643 
    47     my $rule = App::Mobirc::HTTPD::Router->match($c->req); 
     44    my $rule = App::Mobirc::Web::Router->match($c->req); 
    4845 
    4946    unless ($rule) { 
    … …  
    6562    } 
    6663 
    67     my $controller = "App::Mobirc::HTTPD::C::$rule->{controller}"; 
     64    my $controller = "App::Mobirc::Web::C::$rule->{controller}"; 
    6865 
    6966    my $meth = $rule->{action}; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Middleware/Encoding.pm

    r12863 r13031  
    1 package App::Mobirc::HTTPD::Middleware::Encoding; 
     1package App::Mobirc::Web::Middleware::Encoding; 
    22use Moose; 
    33use Data::Visitor::Encode; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Middleware/MobileAgent.pm

    r12864 r13031  
    1 package App::Mobirc::HTTPD::Middleware::MobileAgent; 
     1package App::Mobirc::Web::Middleware::MobileAgent; 
    22use Moose; 
    33 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Router.pm

    r12894 r13031  
    1 package App::Mobirc::HTTPD::Router; 
     1package App::Mobirc::Web::Router; 
    22use strict; 
    33use warnings; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Template/Ajax.pm

    r12902 r13031  
    1 package App::Mobirc::HTTPD::Template::Ajax; 
     1package App::Mobirc::Web::Template::Ajax; 
    22use strict; 
    33use warnings; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Template/IRCMessage.pm

    r13013 r13031  
    1 package App::Mobirc::HTTPD::Template::IRCMessage; 
     1package App::Mobirc::Web::Template::IRCMessage; 
    22use strict; 
    33use warnings; 
    … …  
    77use List::Util qw/first/; 
    88use HTML::Entities qw/encode_entities/; 
    9 use App::Mobirc::HTTPD::View; 
     9use App::Mobirc::Web::View; 
    1010 
    1111template 'irc_message' => sub { 
    … …  
    1313 
    1414    # i want to strip spaces. cellphone hates spaces. 
    15     my $html = App::Mobirc::HTTPD::View->show( '_irc_message', $message, $my_nick ); 
     15    my $html = App::Mobirc::Web::View->show( '_irc_message', $message, $my_nick ); 
    1616    $html =~ s/^\s+//smg; 
    1717    $html =~ s/\n//g; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Template/Mobile.pm

    r12894 r13031  
    1 package App::Mobirc::HTTPD::Template::Mobile; 
     1package App::Mobirc::Web::Template::Mobile; 
    22use strict; 
    33use warnings; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/Template/Parts.pm

    r12585 r13031  
    1 package App::Mobirc::HTTPD::Template::Parts; 
     1package App::Mobirc::Web::Template::Parts; 
    22use strict; 
    33use warnings; 

  • lang/perl/mobirc/trunk/lib/App/Mobirc/Web/View.pm

    r12457 r13031  
    1 package App::Mobirc::HTTPD::View; 
     1package App::Mobirc::Web::View; 
    22use strict; 
    33use warnings; 
    44use Template::Declare; 
    55use Module::Find; 
    6 my @templates = useall 'App::Mobirc::HTTPD::Template'; 
     6my @templates = useall 'App::Mobirc::Web::Template'; 
    77Template::Declare->init(roots => [@templates]); 
    88