Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.76 KB | None | 0 0
  1. any '/start' => sub {
  2.     #get clients
  3.     my $clients = $cm->account_clients();
  4.     my %client_hash = {};
  5.    
  6.     #process list of clients, enter into DB
  7.     if ($clients->{'code'} eq '200') {
  8.         foreach my $client (@{$clients->{'response'}}) {
  9.             my $clientID = $client->{ClientID};
  10.             $insert_client_query->execute($clientID, $client->{Name});
  11.             $client_hash{$client->{Name}} = $clientID;
  12.             #get list
  13.             my $client_list = $cm->client_lists($clientID);
  14.             #get subs
  15.             # my $active_subs  = get_active_subscribers($client_list->{'response'}->[0]->{'ListID'});
  16.             # my $unsub_subs   = get_unsubed_subscribers($client_list->{'response'}->[0]->{'ListID'});
  17.             # my $bounced_subs = get_bounced_subscribers($client_list->{'response'}->[0]->{'ListID'});
  18.             # #insert into db
  19.             # foreach my $subscriber (@{$active_subs->{'response'}->{'Results'}}) {
  20.                 # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
  21.                 # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "active");
  22.             # }
  23.             # foreach my $subscriber (@{$unsub_subs->{'response'}->{'Results'}}) {
  24.                 # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
  25.                 # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "unsubscribed");
  26.             # }
  27.             # foreach my $subscriber (@{$bounced_subs->{'response'}->{'Results'}}) {
  28.                 # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
  29.                 # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "bounced");
  30.             # }
  31.         }
  32.         my $dt = DateTime->now;
  33.         $insert_timestamp_query->execute($dt->ymd());
  34.     }
  35.     else {
  36.         return send_error 'Unable to get clients';
  37.     }
  38.    
  39.     template 'start', {client_hash => $client_hash};
  40. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement