google/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 $server = CWMP::Server->new( $port );
$server->debug( 1 );
warn "debug level is ", $server->debug;
$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
12	my $port = 3333;
13
14	my $server = CWMP::Server->new( $port );
15	$server->debug( 1 );
16	warn "debug level is ", $server->debug;
17	$server->run();
18
19
20
21