76 |
|
|
77 |
foreach my $input (@inputs) { |
foreach my $input (@inputs) { |
78 |
|
|
|
print Dumper($input); |
|
|
|
|
79 |
my $type = lc($input->{type}); |
my $type = lc($input->{type}); |
80 |
|
|
81 |
die "I know only how to handle input type isis, not '$type'!\n" unless ($type eq 'isis'); |
die "I know only how to handle input type isis, not '$type'!\n" unless ($type eq 'isis'); |
105 |
prefix => $input->{name}, |
prefix => $input->{name}, |
106 |
); |
); |
107 |
|
|
108 |
$n->open( |
my $normalize_path = $input->{normalize}->{path}; |
109 |
tag => $input->{normalize}->{tag}, |
|
110 |
xml_file => $input->{normalize}->{path}, |
if ($normalize_path =~ m/\.xml$/i) { |
111 |
); |
$n->open( |
112 |
|
tag => $input->{normalize}->{tag}, |
113 |
|
xml_file => $input->{normalize}->{path}, |
114 |
|
); |
115 |
|
} elsif ($normalize_path =~ m/\.(?:yml|yaml)$/i) { |
116 |
|
$n->open_yaml( |
117 |
|
path => $normalize_path, |
118 |
|
tag => $input->{normalize}->{tag}, |
119 |
|
); |
120 |
|
} |
121 |
|
|
122 |
for ( 0 ... $isis->size ) { |
for ( 0 ... $isis->size ) { |
123 |
|
|