Use full Availability Set ID instead of name

Author: BillAnastasiadis

lib/sles4sap/azure_cli.pm

@@ -45,6 +45,7 @@ our @EXPORT = qw(
   az_vm_as_create
   az_vm_as_list
   az_vm_as_show
+  az_vm_as_id
   az_img_from_vhd_create
   az_vm_create
   az_vm_list
@@ -751,6 +752,37 @@ sub az_vm_as_show(%args) {
     assert_script_run($az_cmd);
 }
 
+=head2 az_vm_as_id
+
+    az_vm_as_id(resource_group => 'openqa-rg', name => 'openqa-as');
+
+Get the id of an availability set.
+
+=over
+
+=item B<resource_group> - existing resource group where to create the availability set
+
+=item B<name> - name of the availability set
+
+=back
+=cut
+
+sub az_vm_as_id(%args) {
+    foreach (qw(resource_group name)) {
+        croak("Argument < $_ > missing") unless $args{$_}; 
+    }
+
+    my $az_cmd = join(' ', 'az vm availability-set show',
+        '--resource-group', $args{resource_group},
+        '--name', $args{name},
+        '--query id -o tsv');
+        
+    my $id = script_output($az_cmd);
+    $id =~ s/^\s+|\s+$//g; 
+    
+    return $id;
+}
+
 =head2 az_img_from_vhd_create
 
     az_img_from_vhd_create(resource_group => $rg, name => $name, source => $uploaded_vhd_url);

lib/sles4sap/ipaddr2.pm

@@ -324,6 +324,9 @@ sub ipaddr2_infra_deploy(%args) {
     az_vm_as_show(
         resource_group => $rg,
         name => $as);
+    my $as_id = az_vm_as_id(
+        resource_group => $rg,
+        name => $as);
 
     my $storage_name;
     if ($args{diagnostic}) {
@@ -349,7 +352,7 @@ sub ipaddr2_infra_deploy(%args) {
         public_ip => "");
 
     my %vm_create_internal_args = %vm_create_generic_args;
-    $vm_create_internal_args{availability_set} = $as;
+    $vm_create_internal_args{availability_set} = $as_id;
     $vm_create_internal_args{nsg} = $nsg;
     $vm_create_internal_args{public_ip} = "";
     $vm_create_internal_args{custom_data} = $args{cloudinit_profile} if ($args{cloudinit_profile});