__PACKAGE__->mk_accessors( qw/
port
store
-default_queue
background
debug
/ );
use CWMP::Session;
+use CWMP::Queue;
use Carp qw/confess/;
use Data::Dump qw/dump/;
module => 'DBMDeep',
path => 'var/',
},
- default_queue => [ qw/GetRPCMethods GetParameterNames/ ],
background => 1,
debug => 1
});
hash with key C<module> with value C<DBMDeep> if L<CWMP::Store::DBMDeep>
is used. Other parametars are optional.
-=item default_queue
-
-commands which will be issued to every CPE on connect
-
=back
=cut
CWMP::Server::Helper->new({
proto => 'tcp',
port => $self->port,
- default_queue => $self->default_queue,
store => $self->store,
debug => $self->debug,
background => $self->background,
}
# new multi-value options
- foreach my $p ( qw/ default_queue / ) {
- $prop->{ $p } ||= [];
- $template->{ $p } = $prop->{ $p };
- }
+# foreach my $p ( qw/ default_queue / ) {
+# $prop->{ $p } ||= [];
+# $template->{ $p } = $prop->{ $p };
+# }
}
my $sock = $prop->{client};
confess "no sock in ", ref( $self ) unless $sock;
- warn "default CPE queue ", dump( $prop->{default_queue} ), "\n" if defined($prop->{default_queue});
-
eval {
my $session = CWMP::Session->new({
sock => $sock,
- queue => $prop->{default_queue},
store => $prop->{store},
debug => $prop->{debug},
}) || confess "can't create session";