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

fix(cgi-bin): accept server UUID list in set_power

Browse Source
main
Tsu-ba-me 4 years ago committed by Digimer
parent 607c097fc8
commit c45a2030e8
1 changed files with 20 additions and 8 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. 28
      cgi-bin/set_power

28
cgi-bin/set_power
Unescape View File

@ -166,20 +166,23 @@ if (not $is_decode_json_success)
}); });
} }
my $anvil_uuid = exists $request_body->{anvil_uuid} ? $request_body->{anvil_uuid} : $anvil->data->{switches}{'anvil-uuid'}; my $anvil_uuid = exists $request_body->{anvil_uuid} ? $request_body->{anvil_uuid} : $anvil->data->{switches}{'anvil-uuid'};
my $host_uuid = exists $request_body->{host_uuid} ? $request_body->{host_uuid} : $anvil->data->{switches}{'host-uuid'}; my $host_uuid = exists $request_body->{host_uuid} ? $request_body->{host_uuid} : $anvil->data->{switches}{'host-uuid'};
my $is_on = exists $request_body->{is_on} ? $request_body->{is_on} : $anvil->data->{switches}{'is-on'}; my $server_uuid_list = exists $request_body->{server_uuid_list} ? $request_body->{server_uuid_list} : [ $anvil->data->{switches}{'server-uuid'} ];
my $anvil_uuid_variable_name = "anvil UUID"; my $is_on = exists $request_body->{is_on} ? $request_body->{is_on} : $anvil->data->{switches}{'is-on'};
my $host_uuid_variable_name = "host UUID"; my $anvil_uuid_variable_name = "anvil UUID";
my $host_uuid_variable_name = "host UUID";
my $server_uuid_list_variable_name = "server UUID list";
$anvil->Log->variables({ $anvil->Log->variables({
source => $THIS_FILE, source => $THIS_FILE,
line => __LINE__, line => __LINE__,
level => 2, level => 2,
list => { list => {
anvil_uuid => $anvil_uuid, anvil_uuid => $anvil_uuid,
host_uuid => $host_uuid, host_uuid => $host_uuid,
is_on => $is_on server_uuid_list => $server_uuid_list,
is_on => $is_on
} }
}); });
@ -205,5 +208,14 @@ elsif ($host_uuid)
handle_invalid_uuid({ name => $host_uuid_variable_name, uuid => $host_uuid }); handle_invalid_uuid({ name => $host_uuid_variable_name, uuid => $host_uuid });
} }
} }
elsif ($server_uuid_list)
{
foreach (@{$server_uuid_list})
{
my $server_uuid = $_;
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => 2, list => { server_uuid => $server_uuid } });
}
}
print JSON->new->utf8->encode($response_body)."\n"; print JSON->new->utf8->encode($response_body)."\n";

Write Preview
Loading…
Cancel
Save