119 |
$prop->{ $p } ||= []; |
$prop->{ $p } ||= []; |
120 |
$template->{ $p } = $prop->{ $p }; |
$template->{ $p } = $prop->{ $p }; |
121 |
} |
} |
|
|
|
|
warn dump( $prop ); |
|
122 |
} |
} |
123 |
|
|
124 |
|
|
136 |
|
|
137 |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )" if defined($prop->{default_queue}); |
warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )" if defined($prop->{default_queue}); |
138 |
|
|
|
warn "sock = ",dump( $sock ); |
|
|
|
|
139 |
my $session = CWMP::Session->new({ |
my $session = CWMP::Session->new({ |
140 |
sock => $sock, |
sock => $sock, |
141 |
queue => $prop->{default_queue}, |
queue => $prop->{default_queue}, |