Subversion Repositories VORC

sub updateWRSTBND {

sub updateWRSTBND {

  my ($change, $wb_act_code, $shift_id, $user_id) = @_;

  my ($change, $wb_act_code, $shift_id, $user_id) = @_;

  use REST::Client;

  use REST::Client;

  my $headers = { Authorization => '601037851507c624' };

  my $headers = { Authorization => getSetting ("WRSTBND_API_KEY") };

  my $client = REST::Client->new();

  my $client = REST::Client->new();

  $client->setHost('https://core.wrstbnd.io');

  $client->setHost('https://core.wrstbnd.io');

    );

    );

    my $response = from_json($client->responseContent());

    my $response = from_json($client->responseContent());

    my $api_key = getSetting ("WRSTBND_API_KEY");

    my @add_response = `/bin/curl --location --request POST 'https://core.wrstbnd.io/rest/core/v1/assign' --header 'Authorization: 601037851507c624' --form accountid=$accountid --form ticketactcode=$activationCode --output /dev/null --silent --write-out '%{http_code}\n'`;

    my @add_response = `/bin/curl --location --request POST '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'`;

    my $add_response = $add_response[$#add_response];

    my $add_response = $add_response[$#add_response];

    chomp $add_response;

    chomp $add_response;

    $dbh->do ("update assignment set wb_ticket_act = ? where Gid = ? and RCid = ? and role like ?", undef, $activationCode, $shift_id, $user_id, 'CLA-%') unless $add_response ne "200";

    $dbh->do ("update assignment set wb_ticket_act = ? where Gid = ? and RCid = ? and role like ?", undef, $activationCode, $shift_id, $user_id, 'CLA-%') unless $add_response ne "200";

    return;

  } elsif ($change eq "del") {

  } elsif ($change eq "del") {

    my $activationCode = $wb_act_code;

    my $activationCode = $wb_act_code;

    my $api_key = getSetting ("WRSTBND_API_KEY");