/[cwmp]/google/trunk/bin/acs.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/bin/acs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 28 by dpavlin, Mon Jun 18 07:59:20 2007 UTC revision 50 by dpavlin, Tue Jun 19 21:29:04 2007 UTC
# Line 6  Line 6 
6    
7  use strict;  use strict;
8    
9  use HTTP::Server::Simple;  use lib './lib';
10    use CWMP::Server;
11    
12  my $port = 3333;  my $port = 3333;
13    
14  my $server = CWMP::Server->new( $port );  my $server = CWMP::Server->new({
15            port => $port,
16            debug => 1,
17            queue => [ qw/
18                    GetRPCMethods  
19            / ],
20    });
21  $server->run();  $server->run();
22    
 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;  
   
   
Legend:
Removed from v.28  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26