Subversion Repositories VORC

  my $wb_act_code;

  if ($change eq "del" and $department eq "CLA") {

    ($wb_act_code) = $dbh->selectrow_array ("select wb_ticket_act from assignment where Gid = ? and RCid = ? and role like ?", undef, $DBARGS[0], $DBARGS[2], 'CLA-%');

  }

  	  print "Success!...<br>You've signed up for $daily_count class(es) (you're currently allowed to sign up for $MAXSHIFTS).<br>\n";

sub updateWRSTBND {

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

  use REST::Client;

  use JSON;

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

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

  my ($accountid) = $dbh->selectrow_array ("select wrstbnd_accountid from RCid_ticket_link left join ticket on MVPid = id where RCid = ? and year = year(now())", undef, $user_id);

  if ($change eq "add" or $change eq "override") {

    my ($classid) = $dbh->selectrow_array ("select wrstbnd_id from class where id = ?", undef, $shift_id);

    my $body = {

      "eventId"      => "event_Y5567UWwS5",

      "activeStatus" => "active",

      "ticketTypeId" => $classid

    };

    my $json_body = encode_json $body;

    $client->POST(

      '/rest/core/v1/ticket', 

      $json_body,

      $headers

    );

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

    my $activationCode = $response->{activationCode};

    my $add_response = `/bin/curl --no-progress-meter -i --location 'https://core.wrstbnd.io/rest/core/v1/assign' --header 'Authorization: 601037851507c624' --form 'accountid="$accountid"' --form 'ticketactcode="$activationCode"' | /bin/grep HTTP | /bin/cut -d' ' -f2`;

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

    return;

  } elsif ($change eq "del") {

    my $activationCode = $wb_act_code;

    my $del_response = `/bin/curl --no-progress-meter -i --location --request DELETE 'https://core.wrstbnd.io/rest/core/v1/assign' --header 'Authorization: 601037851507c624' --form 'accountid="$accountid"' --form 'ticketactcode="$activationCode"' | /bin/grep HTTP | /bin/cut -d' ' -f2`;

  }

}