TT#116100 bin/scenario.pl: support extra_info

* define needed extra info for scenario

Change-Id: Ie8d95c6d13e1bec76ea71f3f8ce6d4ba5af40bf1

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);