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;

my $port = 3333;
my $debug = shift @ARGV;

my $server = CWMP::Server->new({
        port => $port,
        debug => $debug,
        queue => [ qw/
                GetRPCMethods
                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	28
12			my $port = 3333;
13	dpavlin	53	my $debug = shift @ARGV;
14	dpavlin	28
15	dpavlin	50	my $server = CWMP::Server->new({
16			port => $port,
17	dpavlin	53	debug => $debug,
18	dpavlin	50	queue => [ qw/
19	dpavlin	53	GetRPCMethods
20			Reboot
21	dpavlin	50	/ ],
22			});
23	dpavlin	28	$server->run();
24