Subversion Repositories VORC

Rev

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

Rev 176 Rev 177
Line 19... Line 19...
19 
$sth->execute ();
 19 
$sth->execute ();
Line 20... Line 20...
20 
 
 20 
 
21 
while (my ($id, $rcid, $classid, $accountid) = $sth->fetchrow ()) {
 21 
while (my ($id, $rcid, $classid, $accountid) = $sth->fetchrow ()) {
22 
  print "Adding $classid to $accountid...";
 22 
  print "Adding $classid to $accountid...";
- 
 
 23 
  my $client = REST::Client->new();
23 
  my $client = REST::Client->new();
 24 
  $client->setHost('https://core.wrstbnd.io');
24
25 
 
25 
  my $body = {
 26 
  my $body = {
26 
    "eventId"      => "event_Y5567UWwS5",
 27 
    "eventId"      => "event_Y5567UWwS5",
27 
    "activeStatus" => "active",
 28 
    "activeStatus" => "active",
28 
    "ticketTypeId" => $classid
 29 
    "ticketTypeId" => $classid