Subversion Repositories VORC

if ($inputfile) {

sub add_wrstbnd_ids {

  use REST::Client;

  use JSON;

  my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");

  my @REGIDS;

  push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = ? and isnull(wrstbnd_accountid) = 1", undef, "RollerCon 2024") };

  foreach (@REGIDS) {

    my $regid = $_;

  	my $wbdid = getAccountId ($regid);

  	$sth->execute ($wbdid, $regid);

  }

}

sub getAccountId {

	my $eventsReg = shift // "";

	warn "ERROR: No Events.com Regstration provided to getAccountId()!" and return "" unless $eventsReg;

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

	my $wb_event_id = "event_Y5567UWwS5";

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

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

	$client->GET(

    '/rest/core/v1/ticket?eventid='.$wb_event_id.'&barcode='.$eventsReg,

    $headers

	);

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

	return $response->{accountId};

}