Subversion Repositories VORC

Rev

Rev 235 | Rev 237 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 235 Rev 236
Line 106... Line 106...
106 
 
 106 
 
107 
sub getAccountId {
 107 
sub getAccountId {
108 
	my $eventsReg = shift // "";
 108 
	my $eventsReg = shift // "";
Line 109... Line 109...
109 
	warn "ERROR: No Events.com Regstration provided to getAccountId()!" and return "" unless $eventsReg;
 109 
	warn "ERROR: No Events.com Regstration provided to getAccountId()!" and return "" unless $eventsReg;
110
110
111 
	my $headers = { Authorization => '601037851507c624' };
 111 
  my $headers = { Authorization => getSetting ("WRSTBND_API_KEY") };
Line 112... Line 112...
112 
	my $wb_event_id = "event_893C6u5olU";
 112 
	my $wb_event_id = "event_893C6u5olU";
113 
	my $client = REST::Client->new();
 113 
	my $client = REST::Client->new();
114
114
115 
	$client->setHost('https://core.wrstbnd.io');
 115 
	$client->setHost('https://core.wrstbnd.io');
116 
	$client->GET(
 116 
	$client->GET(
117 
    '/rest/core/v1/ticket?eventid='.$wb_event_id.'&barcode='.$eventsReg,
 117 
    '/rest/core/v1/ticket/actcode/'.$eventsReg'?eventid='.$wb_event_id,
Line 118... Line 118...
118 
    $headers
 118 
    $headers