Changeset 742

Show
Ignore:
Timestamp:
05/15/06 01:43:35
Author:
ko
Message:

Changed of protocol upgrade algorithm

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Engine/PreFork.pm

    r734 r742  
    5858            $protocol = $protocol->pre_input($req); 
    5959            $req->protocol($protocol); 
    60             $self->log(debug => "protocol is a:" . ref($protocol)); 
    6160            next unless ref($protocol) && $protocol->input($req); 
    62             $self->log(debug => "protocol is b:" . ref($protocol)); 
    6361 
    6462            $use_protocol = $protocol; 

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol.pm

    r734 r742  
    2020    $self->status(0); 
    2121    $self->body(''); 
     22    $self->{service} = ''; 
    2223} 
    2324 

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/HTTP.pm

    r734 r742  
    1818    my $self = shift; 
    1919 
    20     $self->status(0); 
    21     $self->body(''); 
    2220    $self->uri(''); 
    2321    $self->cgi(''); 
    …… 
    2523    $self->headers_out({}); 
    2624    $self->content_type(''); 
     25 
     26    $self->SUPER::session_init; 
    2727} 
    2828 

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/PLAGGER.pm

    r734 r742  
    2121    my $module = "Plagger::Plugin::Server::Protocol::$1"; 
    2222    return $self if $module eq 'Plagger::Plugin::Server::Protocol::PLAGGER'; 
    23     return  unless $module->require; 
    2423 
    25     my $replace = $module->new({ config => $self->{conf} }); 
    26     $replace->{service} = 'plagger'; 
    27     $replace->session_init; 
    28     $self->log(debug => "$module:".ref($replace)); 
    29  
    30     $replace; 
     24    # protocol upgrade 
     25    foreach my $protocol (Plagger->context->protocol->protocols) { 
     26        next unless ref($protocol) eq $module; 
     27        $protocol->session_init; 
     28        $protocol->{service} = 'plagger';  
     29        return $protocol; 
     30    } 
     31    return; 
    3132} 
    3233 

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/POP3.pm

    r734 r742  
    2525    my $self = shift; 
    2626 
    27     $self->status(0); 
    28     $self->body(''); 
    2927    $self->user(''); 
    3028    $self->pass(''); 
    …… 
    3331    $self->quit(0); 
    3432    $self->req(''); 
     33 
     34    $self->SUPER::session_init; 
    3535} 
    3636 

  • branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/SMTP.pm

    r734 r742  
    1616    my $self = shift; 
    1717 
    18     $self->status(0); 
    1918    $self->mail_from(''); 
    2019    $self->rcpt_to(''); 
    21     $self->body(''); 
    2220    $self->qid(''); 
     21 
     22    $self->SUPER::session_init; 
    2323} 
    2424