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;
my $store_path = 'state.db';

GetOptions(
        'debug+' => \$debug,
        'port=i' => \$port,
        'store-path=s' => \$store_path,
);

my $server = CWMP::Server->new({
        port => $port,
        store_path => $store_path,
        debug => $debug,
        queue => [ qw/
                GetRPCMethods
                GetParameterNames
        / ],
#               Reboot
});
$server->run();

1	dpavlin	28	#!/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	dpavlin	30	use lib './lib';
10			use CWMP::Server;
11	dpavlin	57	use Getopt::Long;
12	dpavlin	28
13			my $port = 3333;
14	dpavlin	57	my $debug = 0;
15	dpavlin	78	my $store_path = 'state.db';
16	dpavlin	28
17	dpavlin	57	GetOptions(
18			'debug+' => \$debug,
19			'port=i' => \$port,
20	dpavlin	78	'store-path=s' => \$store_path,
21	dpavlin	57	);
22
23	dpavlin	50	my $server = CWMP::Server->new({
24			port => $port,
25	dpavlin	78	store_path => $store_path,
26	dpavlin	53	debug => $debug,
27	dpavlin	50	queue => [ qw/
28	dpavlin	53	GetRPCMethods
29	dpavlin	57	GetParameterNames
30	dpavlin	50	/ ],
31	dpavlin	57	# Reboot
32	dpavlin	50	});
33	dpavlin	28	$server->run();
34