Difference between revisions of "Linode"
From Organic Design wiki
m |
m |
||
Line 18: | Line 18: | ||
); | ); | ||
− | # Find the ID $DOMAIN | + | # Find the ID for $DOMAIN |
$domains = $ua->get( 'https://api.linode.com/v4/domains' )->content; | $domains = $ua->get( 'https://api.linode.com/v4/domains' )->content; | ||
for ( @{ decode_json( $domains )->{data} } ) { | for ( @{ decode_json( $domains )->{data} } ) { | ||
Line 30: | Line 30: | ||
} | } | ||
− | # Update the A record | + | # Update the A record to $IP |
$ua->put( | $ua->put( | ||
"https://api.linode.com/v4/domains/$domain_id/records/$record_id", | "https://api.linode.com/v4/domains/$domain_id/records/$record_id", |
Revision as of 13:47, 28 July 2023
Installing the linode CLI:
pip3 install linode-cli
linode-cli configure --token
linode-cli --json --pretty domains list
Example Perl code using LWP to update an A record $HOST.$DOMAIN to $IP:
# Set up a user agent with our token as default header
$ua = LWP::UserAgent->new();
$ua->default_header(
'Content-Type' => "application/json",
'Authorization' => "Bearer $API_KEY"
);
# Find the ID for $DOMAIN
$domains = $ua->get( 'https://api.linode.com/v4/domains' )->content;
for ( @{ decode_json( $domains )->{data} } ) {
$domain_id = $_->{id} if $_->{domain} eq $DOMAIN;
}
# Find the ID of the A record having the name $HOST
$records = $ua->get( "https://api.linode.com/v4/domains/$domain_id/records" )->content;
for ( @{ decode_json( $records )->{data} } ) {
$record_id = $_->{id} if $_->{name} eq $HOST;
}
# Update the A record to $IP
$ua->put(
"https://api.linode.com/v4/domains/$domain_id/records/$record_id",
'Content' => encode_json({ 'target' => $IP })
);