mafoo.org.uk/mythic-beasts-dns-sync
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Dereference record

Browse Source
This commit is contained in:
Matthew Slowe
2023-09-02 14:54:39 +01:00
parent f1617977a9
commit d43ef34abc
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
manage-dns.pl
View File

@@ -297,10 +297,10 @@ unless($DRY_RUN) {
# Create # Create
foreach my $record (@to_create) { foreach my $record (@to_create) {
my $res = $ua->post( my $res = $ua->post(
$record[0], $record->[0],
"Content-Type" => "application/json", "Content-Type" => "application/json",
Content => to_json({ Content => to_json({
records => [ $record[1] ] records => [ $record->[1] ]
}) })
); );
warn "Failed to create $url: " . $res->status_line . "\n" . $res->content unless $res->is_success; warn "Failed to create $url: " . $res->status_line . "\n" . $res->content unless $res->is_success;
@@ -309,9 +309,9 @@ unless($DRY_RUN) {
# Update # Update
foreach my $record (@to_update) { foreach my $record (@to_update) {
my $res = $ua->put( my $res = $ua->put(
$record[0], $record->[0],
"Content-Type" => "application/json", "Content-Type" => "application/json",
"Content" => to_json({ records => [ $record[1] ] }), "Content" => to_json({ records => [ $record->[1] ] }),
); );
warn "Failed to update $url: " . $res->status_line unless $res->is_success; warn "Failed to update $url: " . $res->status_line unless $res->is_success;
} }