/[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 217 by dpavlin, Wed Nov 14 23:02:17 2007 UTC revision 218 by dpavlin, Tue Nov 20 13:09:08 2007 UTC
# Line 12  use CWMP::Session; Line 12  use CWMP::Session;
12  use CWMP::Vendor;  use CWMP::Vendor;
13  use Getopt::Long;  use Getopt::Long;
14  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
15    use File::Find;
16    
17  my $port = 3333;  my $port = 3333;
18  my $debug = 0;  my $debug = 0;
# Line 27  GetOptions( Line 28  GetOptions(
28          'create_dump!' => \$create_dump,          'create_dump!' => \$create_dump,
29  );  );
30    
31    if ( $create_dump ) {
32            warn "## cleaning dump directory\n" if $debug;
33            find({
34                    wanted => sub {
35                            my $path = $File::Find::name;
36                            return if -d $path;
37                            unlink($path) || die "can't remove $path: $!";
38                            warn "## removed $path\n" if $debug;
39                    },
40                    no_chdir => 1,
41            }, 'dump/' );
42    }
43    
44  my $server = CWMP::Server->new({  my $server = CWMP::Server->new({
45          port => $port,          port => $port,
46          session => {          session => {
Legend:
Removed from v.217  
changed lines
  Added in v.218
  ViewVC Help
Powered by ViewVC 1.1.26