From 2f2584b18574c9a176744a8939cf5965465b3415 Mon Sep 17 00:00:00 2001 From: Tsu-ba-me Date: Tue, 25 May 2021 18:37:26 -0400 Subject: [PATCH] fix(cgi-bin): use short host name in get_anvils response --- cgi-bin/get_anvils | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cgi-bin/get_anvils b/cgi-bin/get_anvils index b7e7afd9..37a0ecff 100755 --- a/cgi-bin/get_anvils +++ b/cgi-bin/get_anvils @@ -46,11 +46,11 @@ foreach my $anvil_uuid (keys %{$anvil->data->{anvils}{anvil_uuid}}) my $anvil_description = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_description}; my $anvil_password = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_password}; my $anvil_node1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node1_host_uuid}; - my $anvil_node1_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_node1_host_uuid}{host_name}; + my $anvil_node1_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_node1_host_uuid}{short_host_name}; my $anvil_node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid}; - my $anvil_node2_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_node2_host_uuid}{host_name}; + my $anvil_node2_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_node2_host_uuid}{short_host_name}; my $anvil_dr1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid}; - my $anvil_dr1_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_dr1_host_uuid}{host_name}; + my $anvil_dr1_host_name = $anvil->data->{hosts}{host_uuid}{$anvil_dr1_host_uuid}{short_host_name}; push @{$json_hash->{anvils}}, { anvil_name => $anvil_name,