/[cwmp]/google/acs.pl
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/acs.pl

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

revision 6 by dpavlin, Sat May 19 15:15:14 2007 UTC revision 7 by dpavlin, Sat May 19 19:13:59 2007 UTC
# Line 29  package CWMP; Line 29  package CWMP;
29  use strict;  use strict;
30    
31  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
32    use Carp qw/cluck/;
33    
34  sub new {  sub new {
35          bless {}, shift;          bless {}, shift;
# Line 42  sub new { Line 43  sub new {
43  # Kicked           Optional   Optional  # Kicked           Optional   Optional
44    
45  sub Inform {  sub Inform {
46          my ($self, $DeviceId, $Event, $MaxEnvelopes, $CurrentTime, $RetryCount, $ParameterList) = @_;          my ($self, $DeviceId, $Event, $MaxEnvelopes, $CurrentTime, $RetryCount, $ParameterList, $headers) = @_;
47    
48          my $p;          my $p;
49    
50            #cluck dump( $daemon );
51            #warn dump( $headers );
52    
53            my $ID = ( grep { $_->name eq 'ID' } @$headers )[0]->value;
54    
55          foreach ( @$ParameterList ) {          foreach ( @$ParameterList ) {
56                  $p->{ $_->{Name} } = $_->{Value};                  $p->{ $_->{Name} } = $_->{Value};
57          }          }
58    
59          warn "request from ", dump( $DeviceId ), " with events ",dump( $Event ), "maxEnvelopes: $MaxEnvelopes on $CurrentTime retry $RetryCount params ", dump( $p );          warn "request $ID from ", dump( $DeviceId ), " with events ",dump( $Event ), "maxEnvelopes: $MaxEnvelopes on $CurrentTime retry $RetryCount params ", dump( $p );
60    
61            return SOAP::Data->name('MaxEnvelopes' => $MaxEnvelopes);
62  }  }
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26