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 HTTP::Server::Simple;

my $port = 3333;

my $server = CWMP::Server->new( $port );
$server->run();

package CWMP::Server;

use Data::Dump qw/dump/;

use base qw(HTTP::Server::Simple::CGI);

sub handle_request {
        my ($self, $cgi) = @_;
                                                                    
        #... do something, print output to default
        # selected filehandle...

        warn $cgi->param('POSTDATA');

        print "Content-Type: text/xml\r\n\r\n";

};

1;


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			use HTTP::Server::Simple;
10
11			my $port = 3333;
12
13			my $server = CWMP::Server->new( $port );
14			$server->run();
15
16			package CWMP::Server;
17
18			use Data::Dump qw/dump/;
19
20			use base qw(HTTP::Server::Simple::CGI);
21
22			sub handle_request {
23			my ($self, $cgi) = @_;
24
25			#... do something, print output to default
26			# selected filehandle...
27
28			warn $cgi->param('POSTDATA');
29
30			print "Content-Type: text/xml\r\n\r\n";
31
32			};
33
34			1;
35
36