diff --git a/bin/scenario.pl b/bin/scenario.pl index fdc9d9d6..6281d282 100755 --- a/bin/scenario.pl +++ b/bin/scenario.pl @@ -28,6 +28,7 @@ use File::Spec; use IO::File; use YAML::XS qw(DumpFile LoadFile); use Hash::Merge qw(merge); +use Storable 'dclone'; use Text::CSV; use Template; use Try::Tiny; @@ -98,6 +99,12 @@ our $tt = Template->new({ our ($phone_cc, $phone_ac, $phone_sn) = split(/:/, $phone); $phone_sn = int($phone_sn); +sub extra_info +{ + my $data = shift; + $ids->{extra_info} = dclone($data->{extra_info}); +} + sub key_domain { my $domain = shift; @@ -458,6 +465,7 @@ sub generate_foreign_dom return; } +extra_info($cf); manage_phones($cf); generate($cf); generate_presence($cf);