cwmp/google/acs.pl

#!/usr/bin/perl

use warnings;
use strict;

use SOAP::Transport::HTTP +trace => 'debug';

# Eh...
$SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1;

$SIG{PIPE} = $SIG{INT} = 'IGNORE'; # don't want to die on 'Broken pipe' or Ctrl-C

# change LocalPort to 81 if you want to test it with soapmark.pl

my $daemon = SOAP::Transport::HTTP::Daemon->new(
        #LocalAddr => 'localhost',
        LocalPort => 3333,
        Reuse => 1,
        #'Listen' => 128,
)
        ->dispatch_with({ 'urn:dslforum-org:cwmp-1-0' => 'CWMP'})
;


print "Contact to ACS server at ", $daemon->url, "\n";
$daemon->handle;

package CWMP;
use strict;

use Data::Dump qw/dump/;

sub new {
        bless {}, shift;
}

# Server methods   Calling    Responding
# GetRPCMethods    Optional   Required
# Inform           Required   Required
# TransferComplete Required   Required
# RequestDownload  Optional   Optional
# Kicked           Optional   Optional

sub Inform {
        my ($self, $DeviceId, $Event, $MaxEnvelopes, $CurrentTime, $RetryCount, $ParameterList) = @_;

        my $p;

        foreach ( @$ParameterList ) {
                $p->{ $_->{Name} } = $_->{Value};
        }

        warn "request from ", dump( $DeviceId ), " with events ",dump( $Event ), "maxEnvelopes: $MaxEnvelopes on $CurrentTime retry $RetryCount params ", dump( $p );

}
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use SOAP::Transport::HTTP +trace => 'debug';
7
8	# Eh...
9	$SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1;
10
11	$SIG{PIPE} = $SIG{INT} = 'IGNORE'; # don't want to die on 'Broken pipe' or Ctrl-C
12
13	# change LocalPort to 81 if you want to test it with soapmark.pl
14
15	my $daemon = SOAP::Transport::HTTP::Daemon->new(
16	#LocalAddr => 'localhost',
17	LocalPort => 3333,
18	Reuse => 1,
19	#'Listen' => 128,
20	)
21	->dispatch_with({ 'urn:dslforum-org:cwmp-1-0' => 'CWMP'})
22	;
23
24
25	print "Contact to ACS server at ", $daemon->url, "\n";
26	$daemon->handle;
27
28	package CWMP;
29	use strict;
30
31	use Data::Dump qw/dump/;
32
33	sub new {
34	bless {}, shift;
35	}
36
37	# Server methods Calling Responding
38	# GetRPCMethods Optional Required
39	# Inform Required Required
40	# TransferComplete Required Required
41	# RequestDownload Optional Optional
42	# Kicked Optional Optional
43
44	sub Inform {
45	my ($self, $DeviceId, $Event, $MaxEnvelopes, $CurrentTime, $RetryCount, $ParameterList) = @_;
46
47	my $p;
48
49	foreach ( @$ParameterList ) {
50	$p->{ $_->{Name} } = $_->{Value};
51	}
52
53	warn "request from ", dump( $DeviceId ), " with events ",dump( $Event ), "maxEnvelopes: $MaxEnvelopes on $CurrentTime retry $RetryCount params ", dump( $p );
54
55	}