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 CWMP::Session;
use CWMP::Vendor;
use Getopt::Long;
use Data::Dump qw/dump/;

my $port = 3333;
my $debug = 0;
my $store_path = './';
my $store_plugin = 'YAML';

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

my $server = CWMP::Server->new({
        port => $port,
        store => {
                module => $store_plugin,
                path => $store_path,
                debug => $debug,
        },
        debug => $debug,
});

CWMP::Vendor->add_triggers;

$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 CWMP::Session;
12	use CWMP::Vendor;
13	use Getopt::Long;
14	use Data::Dump qw/dump/;
15
16	my $port = 3333;
17	my $debug = 0;
18	my $store_path = './';
19	my $store_plugin = 'YAML';
20
21	GetOptions(
22	'debug+' => \$debug,
23	'port=i' => \$port,
24	'store-path=s' => \$store_path,
25	'store-plugin=s' => \$store_plugin,
26	);
27
28	my $server = CWMP::Server->new({
29	port => $port,
30	store => {
31	module => $store_plugin,
32	path => $store_path,
33	debug => $debug,
34	},
35	debug => $debug,
36	});
37
38	CWMP::Vendor->add_triggers;
39
40	$server->run();
41