-my $queue;
-
-if ( $protocol_dump ) {
-
- warn "generating dump of xml protocol with CPE\n";
-
- $queue = [
- 'GetRPCMethods',
- 'GetParameterNames',
-# [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 ],
-# [ 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.', 1 ],
- [ 'GetParameterValues',
- 'InternetGatewayDevice.DeviceInfo.SerialNumber',
- 'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
- 'InternetGatewayDevice.DeviceInfo.X_000E50_Country',
- ],
- [ 'SetParameterValues',
- 'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
-# 'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 1,
- ],
-# 'Reboot',
- ];
-};
-
+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/' );
+}