trunk/bin/dump2test.pl

#!/usr/bin/perl -w

# dump2test.pl
#
# convert dump from one CPE to test files

use strict;
use File::Find;
use File::Path qw/mkpath/;
use Data::Dump qw/dump/;
use File::Slurp;
use blib;
use CWMP::Request;

my $path = shift @ARGV || die "usage: $0 dump/client_ip/\n";

my $requests;

find({
        no_chdir => 1,
        wanted => sub {
                my $path = $File::Find::name;

                return unless -l $path;

                if ( $path =~ m!\d+-(.+)!) {
                        my $name = $1;
                        $requests->{$name} = $path;
                } else {
                        warn "can't find request name in $path\n";
                }

        }
}, $path);

warn "## requests = ",dump( $requests );

my $test_path = 't/dump/';

if ( my $i = $requests->{Inform} ) {

        my $xml = read_file($i);
        $xml =~ s/^.*?</</s;

#       warn "## xml: $xml\n";

        my $state = CWMP::Request->parse( $xml );

#       warn "## state = ",dump( $state );

        $test_path .=
                $state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.HardwareVersion'}
                . '/' .
                $state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.SoftwareVersion'}
                ;

} else {
        die "need Inform found ", dump( $requests );
}

mkpath $test_path unless -e $test_path;

warn "dumping new tests into $test_path\n";

foreach my $name ( keys %$requests ) {
        my $from = $requests->{$name};
        my $to   = "$test_path/$name";
        warn "## $from -> $to\n";
        next if -e $to;
        write_file( $to, read_file( $from ) );
        warn "created $to\n";
}
1	#!/usr/bin/perl -w
2
3	# dump2test.pl
4	#
5	# convert dump from one CPE to test files
6
7	use strict;
8	use File::Find;
9	use File::Path qw/mkpath/;
10	use Data::Dump qw/dump/;
11	use File::Slurp;
12	use blib;
13	use CWMP::Request;
14
15	my $path = shift @ARGV \|\| die "usage: $0 dump/client_ip/\n";
16
17	my $requests;
18
19	find({
20	no_chdir => 1,
21	wanted => sub {
22	my $path = $File::Find::name;
23
24	return unless -l $path;
25
26	if ( $path =~ m!\d+-(.+)!) {
27	my $name = $1;
28	$requests->{$name} = $path;
29	} else {
30	warn "can't find request name in $path\n";
31	}
32
33	}
34	}, $path);
35
36	warn "## requests = ",dump( $requests );
37
38	my $test_path = 't/dump/';
39
40	if ( my $i = $requests->{Inform} ) {
41
42	my $xml = read_file($i);
43	$xml =~ s/^.*?</</s;
44
45	# warn "## xml: $xml\n";
46
47	my $state = CWMP::Request->parse( $xml );
48
49	# warn "## state = ",dump( $state );
50
51	$test_path .=
52	$state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.HardwareVersion'}
53	. '/' .
54	$state->{Parameter}->{'InternetGatewayDevice.DeviceInfo.SoftwareVersion'}
55	;
56
57	} else {
58	die "need Inform found ", dump( $requests );
59	}
60
61	mkpath $test_path unless -e $test_path;
62
63	warn "dumping new tests into $test_path\n";
64
65	foreach my $name ( keys %$requests ) {
66	my $from = $requests->{$name};
67	my $to = "$test_path/$name";
68	warn "## $from -> $to\n";
69	next if -e $to;
70	write_file( $to, read_file( $from ) );
71	warn "created $to\n";
72	}