Subversion Repositories VORC

Rev

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

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