seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(cgi-bin): add missing response info to get_anvils

Browse Source
main
Tsu-ba-me 4 years ago
parent c749441e3b
commit 8d1d49e807
1 changed files with 16 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 18
      cgi-bin/get_anvils

18
cgi-bin/get_anvils
Unescape View File

@ -33,6 +33,8 @@ if (not $anvil->data->{sys}{database}{connections})
# Read in any CGI variables, if needed. # Read in any CGI variables, if needed.
$anvil->Get->cgi(); $anvil->Get->cgi();
$anvil->Database->get_hosts();
$anvil->Database->get_anvils(); $anvil->Database->get_anvils();
my $json_hash = {}; my $json_hash = {};
@ -40,13 +42,25 @@ $json_hash->{anvils} = [];
foreach my $anvil_uuid (keys %{$anvil->data->{anvils}{anvil_uuid}}) foreach my $anvil_uuid (keys %{$anvil->data->{anvils}{anvil_uuid}})
{ {
push @{$json_hash->{anvils}}, { uuid => $anvil_uuid }; my $anvil_name = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_name};
my $anvil_description = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_description}; 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_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_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_node2_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_node2_host_uuid}; 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_dr1_host_uuid = $anvil->data->{anvils}{anvil_uuid}{$anvil_uuid}{anvil_dr1_host_uuid}; 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};
push @{$json_hash->{anvils}}, {
anvil_name => $anvil_name,
anvil_uuid => $anvil_uuid,
nodes => [
{ node_name => $anvil_node1_host_name, node_uuid => $anvil_node1_host_uuid },
{ node_name => $anvil_node2_host_name, node_uuid => $anvil_node2_host_uuid },
{ node_name => $anvil_dr1_host_name, node_uuid => $anvil_dr1_host_uuid }
]
};
} }
print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n"; print $anvil->Template->get({file => "shared.html", name => "json_headers", show_name => 0})."\n";

Write Preview
Loading…
Cancel
Save