function perch_mailchimp_form_handler($SubmittedForm)
{
if ($SubmittedForm->validate()) {
$API = new PerchAPI(1.0, 'perch_mailchimp');
$Subscribers = new PerchMailchimp_Subscribers($API);
$Subscribers->subscribe_from_form($SubmittedForm);
}
$Perch = Perch::fetch();
PerchUtil::debug($Perch->get_form_errors($SubmittedForm->formID));
}
<?php
$HTML = $API->get('HTML');
$Subscribers = new PerchMailchimp_Subscribers($API);
$Lang = $API->get('Lang');
if (isset($_GET['id']) && $_GET['id'] != '') {
$subscriberID = (int) $_GET['id'];
$Subscriber = $Subscribers->find($subscriberID, true);
$details = $Subscriber->to_array();
} else {
PerchUtil::redirect($API->app_path());
}
<?php
$HTML = $API->get('HTML');
$Subscribers = new PerchMailchimp_Subscribers($API);
$Paging = $API->get('Paging');
$Paging->set_per_page(15);
$Lang = $API->get('Lang');
$listmembers = array();
$listmembers = $Subscribers->all_members($Paging);
// Install
if ($listmembers == false) {
$Subscribers->attempt_install();
}
// Try to update
if (file_exists('update.php')) {
include 'update.php';
}
$api_key = $Settings->get('perch_mailchimp_api_key')->settingValue();
$list_id = $Settings->get('perch_mailchimp_list_id')->settingValue();
if (!$api_key || !$list_id) {
$Alert->set('notice', $Lang->get('Please visit the Settings page and set your MailChimp API key and List ID'));
}
