move CPE specific stuff back into CWMP::Vendor

[perl-cwmp.git] / bin / acs.pl

diff --git a/bin/acs.pl b/bin/acs.pl
index 3675088..c524bff 100755 (executable)
--- a/bin/acs.pl
+++ b/bin/acs.pl
@@ -9,9 +9,11 @@ use strict;
 use lib './lib';
 use CWMP::Server;
 use CWMP::Session;
-use CWMP::Vendor;
 use Getopt::Long;
 use Data::Dump qw/dump/;
+use File::Find;
+
+#use Devel::LeakTrace::Fast;
 
 my $port = 3333;
 my $debug = 0;
@@ -27,6 +29,19 @@ GetOptions(
        'create_dump!' => \$create_dump,
 );
 
+if ( $create_dump ) {
+       warn "## cleaning dump directory\n" if $debug;
+       find({
+               wanted => sub {
+                       my $path = $File::Find::name;
+                       return if -d $path;
+                       unlink($path) || die "can't remove $path: $!";
+                       warn "## removed $path\n" if $debug;
+               },
+               no_chdir => 1,
+       }, 'dump/' );
+}
+
 my $server = CWMP::Server->new({
        port => $port,
        session => {
@@ -40,7 +55,5 @@ my $server = CWMP::Server->new({
        debug => $debug,
 });
 
-CWMP::Vendor->add_triggers;
-
 $server->run();