/[mdap]/lib/MDAP/Commands.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

Contents of /lib/MDAP/Commands.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 58 - (show annotations)
Fri Nov 16 19:12:08 2007 UTC (12 years ago) by dpavlin
File size: 613 byte(s)
 r78@brr:  dpavlin | 2007-11-16 20:12:03 +0100
 cleanup messages and plugins

1 package MDAP::Commands;
2
3 use strict;
4 use warnings;
5
6 use Module::Pluggable;
7 use MDAP;
8
9 my $commands = [
10 'service system modify name=MDAP log=enabled',
11 'cwmp debug traceconfig level=1',
12 'cwmp server config url=http://10.0.0.100:3333/',
13 'cwmp config state=enabled mode=full periodicInform=enabled periodicInfInt=15',
14 ];
15
16 my $ant_command;
17
18 sub check {
19 my ( $self, $h ) = @_;
20
21 my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
22
23 foreach my $command ( @$commands ) {
24 next if $ant_command->{$serial}->{$command}++;
25 return $command;
26 }
27
28 once "OK ",__PACKAGE__," $serial all commands sent";
29 return;
30 }
31
32 1;

  ViewVC Help
Powered by ViewVC 1.1.26