/[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

google/bin/acs.pl revision 28 by dpavlin, Mon Jun 18 07:59:20 2007 UTC google/trunk/bin/acs.pl revision 197 by dpavlin, Mon Nov 12 22:03:01 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    use Getopt::Long;
12    
13  my $port = 3333;  my $port = 3333;
14    my $debug = 0;
15  my $server = CWMP::Server->new( $port );  my $store_path = './';
16    my $store_plugin = 'YAML';
17    
18    GetOptions(
19            'debug+' => \$debug,
20            'port=i' => \$port,
21            'store-path=s' => \$store_path,
22            'store-plugin=s' => \$store_plugin,
23    );
24    
25    
26    my $server = CWMP::Server->new({
27            port => $port,
28            store => {
29                    module => $store_plugin,
30                    path => $store_path,
31                    debug => $debug,
32            },
33            debug => $debug,
34    });
35  $server->run();  $server->run();
36    
 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.197
  ViewVC Help
Powered by ViewVC 1.1.26