updates to DUT testing scripts

This commit is contained in:
Jed Reynolds
2019-01-07 15:13:15 -08:00
parent 53182d7ccf
commit a047f4e68b
2 changed files with 192 additions and 0 deletions

View File

@@ -74,6 +74,7 @@ sub json_request {
sub json_post {
my ($uri, $rh_data) = @_;
my $url = xpand($uri);
print STDERR "URI $uri\n";
my $req = HTTP::Request->new("POST" => $url);
$req->header('Accept' => 'application/json');
$req->header('Content-Type' => 'application/json; charset=UTF-8');