5 # 06/18/07 09:19:54 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
14 use Data::Dump qw/dump/;
19 my $store_path = './';
20 my $store_plugin = 'YAML';
26 'store-path=s' => \$store_path,
27 'store-plugin=s' => \$store_plugin,
28 'create_dump!' => \$create_dump,
32 warn "## cleaning dump directory\n" if $debug;
35 my $path = $File::Find::name;
37 unlink($path) || die "can't remove $path: $!";
38 warn "## removed $path\n" if $debug;
44 my $server = CWMP::Server->new({
48 module => $store_plugin,
52 create_dump => $create_dump,
57 CWMP::Vendor->add_triggers;