| Line 52... |
Line 52... |
| 52 |
print $activationCode."...";
|
52 |
print $activationCode."...";
|
| 53 |
my $api_key = getSetting ("WRSTBND_API_KEY");
|
53 |
my $api_key = getSetting ("WRSTBND_API_KEY");
|
| 54 |
my $add_response = `/bin/curl --location 'https://core.wrstbnd.io/rest/core/v1/assign' --header 'Authorization: $api_key' --form accountid=$accountid --form ticketactcode=$activationCode --output /dev/null --silent --write-out '%{http_code}\n'`;
|
54 |
my $add_response = `/bin/curl --location 'https://core.wrstbnd.io/rest/core/v1/assign' --header 'Authorization: $api_key' --form accountid=$accountid --form ticketactcode=$activationCode --output /dev/null --silent --write-out '%{http_code}\n'`;
|
| 55 |
print $add_response; chomp $add_response;
|
55 |
print $add_response; chomp $add_response;
|
| 56 |
$assignment->execute ($activationCode, $id, $rcid, 'CLA-%') unless $add_response ne "200";
|
56 |
$assignment->execute ($activationCode, $id, $rcid, 'CLA-%') unless $add_response ne "200";
|
| 57 |
print Dumper $add_response unless $add_response eq "200";
|
57 |
# print Dumper $add_response unless $add_response eq "200";
|
| 58 |
}
|
58 |
}
|
| Line 59... |
Line 59... |
| 59 |
|
59 |
|
| 60 |
|
60 |
|