Subversion Repositories VORC

#!/usr/bin/perl

use strict;

use cPanelUserConfig;

use RollerCon;

use DBI;

use WebDB;

use REST::Client;

use JSON;

use Data::Dumper;

my $DEBUG = 0;

my $dbh = WebDB::connect ();

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 = concat_ws(' ', ?, year(now())) and isnull(wrstbnd_accountid) = 1", undef, "RollerCon") };

foreach (@REGIDS) {

  my $regid = $_;

  print "Updating RegID: $regid - ";

  my $wbdid = getAccountId ($regid);

  unless ($wbdid) { print "ERROR: No Wrstbnd ID found for ticket.\n" and next; }

  print "$wbdid";

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

  print " - Done.\n";

}

sub toList {

   my $data = shift;

   my $key = shift;

   if (ref($data->{$key}) eq 'ARRAY') {

       $data->{$key};

   } elsif (ref($data->{$key}) eq 'HASH') {

       [$data->{$key}];

   } else {

       [];

   }

}

sub getAccountId {

  my $eventsReg = shift // "";

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

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

  my $wb_event_id = getSetting ("WRSTBND_EVENT_ID");

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

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

  $client->GET(

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

    $headers

  );

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

  warn Dumper $response if $DEBUG;

  return $response->{account}->{accountId};

}