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 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	#!/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