Parent Directory | Revision Log
begin implementation of own SOAP server for ACS
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |