/[cwmp]/google/lib/CWMP/Server.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/lib/CWMP/Server.pm

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

revision 34 by dpavlin, Tue Jun 19 00:03:56 2007 UTC revision 35 by dpavlin, Tue Jun 19 00:18:56 2007 UTC
# Line 10  debug Line 10  debug
10  / );  / );
11    
12  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
13    use CWMP::Request;
14    use CWMP::Response;
15    
16  =head1 NAME  =head1 NAME
17    
# Line 34  sub handler { Line 36  sub handler {
36          if ( $transfer_encoding && $transfer_encoding =~ qr/^chunked/i ) {          if ( $transfer_encoding && $transfer_encoding =~ qr/^chunked/i ) {
37    
38                  my $len = 0;                  my $len = 0;
39                    my $hex;
40                  do {                  do {
41                          $len = <STDIN>;                          $hex = <STDIN>;         # get chunk length
42                          $len =~ s/[\n\r]*$//s;                          $hex =~ s/[\n\r]*$//s;
43                          $len = hex( $len );                          $len = hex( $hex );
44    
45                          #warn "getting chunk of $len bytes\n";                          warn "getting chunk of 0x$hex $len bytes\n" if $self->debug;
46    
47                          while( $len > 0 ) {                          while( $len > 0 ) {
48                                  my $line = <STDIN>;                                  my $line = <STDIN>;
# Line 47  sub handler { Line 50  sub handler {
50                                  $len -= length( $line );                                  $len -= length( $line );
51                          }                          }
52    
53                  } while ( $len > 0 );                  } while ( hex( $hex ) != 0 );
54          }          }
55    
56          warn "got ", length($chunk), " bytes\n" if $self->debug;          warn "handler got ", length($chunk), " bytes\n" if $self->debug;
57    
58      my $cgi  = new CGI( $chunk );      my $cgi  = new CGI( $chunk );
59    
# Line 86  sub handle_request { Line 89  sub handle_request {
89                    
90          }          }
91    
92          my $response = CWMP::Server->new({ debug => $self->debug });          my $response = CWMP::Response->new({ debug => $self->debug });
93    
94          print "Content-Type: text/xml\r\n\r\n";          print "Content-Type: text/xml\r\n\r\n";
95    
Legend:
Removed from v.34  
changed lines
  Added in v.35
  ViewVC Help
Powered by ViewVC 1.1.26