CPAN::Groonga

es.com.au
# Date: 25th May 2016

# ABSTRACT: Query RightScale for server instances


use URI;
use JSON;
use HTTP::Headers;
use LWP::UserAgent;

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(rs_g

sponse->decoded_content;
    } else {
        die $response->status_line;
    }
    return decode_json( $output );
}


sub rs_find_instance {
    my $instance_id = shift;
    my $rs_cloud_id = shift;

=refresh_token" \\
        -d "refresh_token=$refresh_token"
CURL

    my $token_request = decode_json `$curl1`;
    return $token_request->{access_token};
}

# Connect to RightScale and look for the