trunk/bin/acs.pl

#!/usr/bin/perl -w

# acs.pl
#
# 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use strict;

use lib './lib';
use CWMP::Server;
use Getopt::Long;

my $port = 3333;
my $debug = 0;

GetOptions(
        'debug+' => \$debug,
        'port=i' => \$port,
);

my $server = CWMP::Server->new({
        port => $port,
        store => {
#               module => 'DBMDeep',
                module => 'YAML',
                store_path => 'state.db',
        },
        debug => $debug,
        default_queue => [ qw/
                GetRPCMethods
                GetParameterNames
        / ],
#               Reboot
});
$server->run();

1	#!/usr/bin/perl -w
2
3	# acs.pl
4	#
5	# 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7	use strict;
8
9	use lib './lib';
10	use CWMP::Server;
11	use Getopt::Long;
12
13	my $port = 3333;
14	my $debug = 0;
15
16	GetOptions(
17	'debug+' => \$debug,
18	'port=i' => \$port,
19	);
20
21	my $server = CWMP::Server->new({
22	port => $port,
23	store => {
24	# module => 'DBMDeep',
25	module => 'YAML',
26	store_path => 'state.db',
27	},
28	debug => $debug,
29	default_queue => [ qw/
30	GetRPCMethods
31	GetParameterNames
32	/ ],
33	# Reboot
34	});
35	$server->run();
36