/[cwmp]/google/trunk/lib/CWMP/Session.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/lib/CWMP/Session.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42 by dpavlin, Tue Jun 19 18:37:24 2007 UTC revision 43 by dpavlin, Tue Jun 19 18:50:28 2007 UTC
# Line 150  sub process_request { Line 150  sub process_request {
150    
151          my $response = CWMP::Response->new({ debug => $self->debug });          my $response = CWMP::Response->new({ debug => $self->debug });
152    
153          $sock->send(          $sock->send(join("",
154                  $self->status(200),                  $self->status(200,'OK'),
155                  $self->content_type('text/xml; charset="utf-8"'),                  $self->content_type('text/xml; charset="utf-8"'),
156                  "Server: AcmeCWMP/42\r\n",                  "Server: AcmeCWMP/42\r\n",
157                  "SOAPServer: AcmeCWMP/42\r\n"                  "SOAPServer: AcmeCWMP/42\r\n"
158          );          ));
159    
160          $sock->send( "Set-Cookie: ID=" , $state->{ID}, "; path=/\r\n" ) if ( $state->{ID} );          $sock->send( "Set-Cookie: ID=" . $state->{ID} . "; path=/\r\n" ) if ( $state->{ID} );
161                    
162          my $xml = '';          my $xml = '';
163    
# Line 173  sub process_request { Line 173  sub process_request {
173                  warn ">>> empty response\n";                  warn ">>> empty response\n";
174          }          }
175    
176          $sock->send( "Content-length: ", length( $xml ), "\r\n\r\n" );          $sock->send( "Content-Length: " . length( $xml ) . "\r\n\r\n" );
177          $sock->send( "$xml\r\n" ) or die "can't send response";          $sock->send( "$xml\r\n\r\n" ) or die "can't send response";
178    
179          warn "### request over";          warn "### request over";
180    
# Line 215  sub content_type { Line 215  sub content_type {
215    
216  sub error{  sub error{
217    my ($self, $number, $msg) = @_;    my ($self, $number, $msg) = @_;
218    $self->sock->send( $self->status($number, $msg), "\r\n" );    $self->sock->send( $self->status($number, $msg) . "\r\n" );
219    warn "Error - $number - $msg\n";    warn "Error - $number - $msg\n";
220  }  }
221    
# Line 230  sub http_header { Line 230  sub http_header {
230    my $self = shift;    my $self = shift;
231    my $number = shift || 200;    my $number = shift || 200;
232    return if ! delete $self->{needs_header};    return if ! delete $self->{needs_header};
233    $self->sock->send("HTTP/1.0 $number\r\n");    $self->sock->send("HTTP/1.1 $number\r\n");
234    return 1;    return 1;
235  }  }
236    
Legend:
Removed from v.42  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26