Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- any '/start' => sub {
- #get clients
- my $clients = $cm->account_clients();
- my %client_hash = {};
- #process list of clients, enter into DB
- if ($clients->{'code'} eq '200') {
- foreach my $client (@{$clients->{'response'}}) {
- my $clientID = $client->{ClientID};
- $insert_client_query->execute($clientID, $client->{Name});
- $client_hash{$client->{Name}} = $clientID;
- #get list
- my $client_list = $cm->client_lists($clientID);
- #get subs
- # my $active_subs = get_active_subscribers($client_list->{'response'}->[0]->{'ListID'});
- # my $unsub_subs = get_unsubed_subscribers($client_list->{'response'}->[0]->{'ListID'});
- # my $bounced_subs = get_bounced_subscribers($client_list->{'response'}->[0]->{'ListID'});
- # #insert into db
- # foreach my $subscriber (@{$active_subs->{'response'}->{'Results'}}) {
- # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
- # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "active");
- # }
- # foreach my $subscriber (@{$unsub_subs->{'response'}->{'Results'}}) {
- # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
- # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "unsubscribed");
- # }
- # foreach my $subscriber (@{$bounced_subs->{'response'}->{'Results'}}) {
- # my $id = sha256_hex($clientID.":".$subscriber->{'EmailAddress'}.":".$api_key);
- # $insert_subscriber_query->execute($id, $subscriber->{'EmailAddress'}, $clientID, "bounced");
- # }
- }
- my $dt = DateTime->now;
- $insert_timestamp_query->execute($dt->ymd());
- }
- else {
- return send_error 'Unable to get clients';
- }
- template 'start', {client_hash => $client_hash};
- };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement