Subversion Repositories VORC

Rev

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

Rev 238 Rev 273
Line 12... Line 12...
12 
 
 12 
 
Line 13... Line 13...
13 
my $dbh = WebDB::connect ();
 13 
my $dbh = WebDB::connect ();
14 
 
 14 
 
15 
my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
 15 
my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
16 
my @REGIDS;
 16 
my @REGIDS;
17 
push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = ?", undef, "RollerCon 2025") };
 17 
push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = concat_ws(' ', ?, year(now()))", undef, "RollerCon") };
18 
foreach (@REGIDS) {
 18 
foreach (@REGIDS) {
19 
  my $regid = $_;
 19 
  my $regid = $_;
20 
  print "Updating RegID: $regid - ";
 20 
  print "Updating RegID: $regid - ";
Line 42... Line 42...
42 
sub getAccountId {
 42 
sub getAccountId {
43 
  my $eventsReg = shift // "";
 43 
  my $eventsReg = shift // "";
44 
  warn "ERROR: No Events.com Regstration provided to getAccountId()!" and return "" unless $eventsReg;
 44 
  warn "ERROR: No Events.com Regstration provided to getAccountId()!" and return "" unless $eventsReg;
Line 45... Line 45...
45
45
46 
  my $headers = { Authorization => getSetting ("WRSTBND_API_KEY") };
 46 
  my $headers = { Authorization => getSetting ("WRSTBND_API_KEY") };
47 
  my $wb_event_id = "event_893C6u5olU";
 47 
  my $wb_event_id = getSetting ("WRSTBND_EVENT_ID");
Line 48... Line 48...
48 
  my $client = REST::Client->new();
 48 
  my $client = REST::Client->new();
49
49
50 
  $client->setHost('https://core.wrstbnd.io');
 50 
  $client->setHost('https://core.wrstbnd.io');