$dbo->debug(TRUE);
}
$install = PommoInstall::parseSQL();
if ($install) {
// installation of DB went OK, set configuration values to user supplied ones
$pass = $_POST['admin_password'];
// install configuration
$_POST['admin_password'] = md5($_POST['admin_password']);
PommoAPI::configUpdate($_POST);
// generate key to uniquely identify this installation
$key = PommoHelper::makeCode(6);
PommoAPI::configUpdate(array('key' => $key), TRUE);
$pommo->reloadConfig();
// load configuration [depricated?], set message defaults, load templates
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
PommoHelperMessages::resetDefault('all');
// install templates
$file = $pommo->_baseDir . "install/sql.templates.php";
if (!PommoInstall::parseSQL(false, $file)) {
$logger->addErr('Error Loading Default Mailing Templates.');
}
// serialize the latest updates
$GLOBALS['pommoFakeUpgrade'] = true;
Pommo::requireOnce($pommo->_baseDir . 'install/helper.upgrade.php');
PommoUpgrade();
$logger->addMsg(Pommo::_T('Installation Complete! You may now login and setup poMMo.'));
$logger->addMsg(Pommo::_T('Login Username: '******'admin');
$logger->addMsg(Pommo::_T('Login Password: '******'installed', TRUE);
} else {
// INSTALL FAILED
$msg = Pommo::_T('subscription request');
$pending['type'] = 'confirm';
// normalize for PommoHelperMessages::sendMessage
break;
case "change":
$msg = Pommo::_T('record update request');
$pending['type'] = 'update';
// normalize for PommoHelperMessages::sendMessage
break;
case "password":
$msg = Pommo::_T('password change request');
break;
default:
Pommo::redirect('login.php?badPendingType=TRUE');
}
// check if user wants to reconfirm or cancel their request
if (!empty($_POST)) {
if (isset($_POST['reconfirm'])) {
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
PommoHelperMessages::sendMessage(array('to' => $input['Email'], 'code' => $pending['code'], 'type' => $pending['type']));
} elseif (isset($_POST['cancel'])) {
if (PommoPending::cancel($pending)) {
$logger->addMsg(sprintf(Pommo::_T('Your %s has been cancelled.'), $msg));
}
}
$smarty->assign('nodisplay', TRUE);
} else {
$logger->addMsg(sprintf(Pommo::_T('Your %s is still pending. To complete this request, please review the confirmation email sent to %s.'), $msg, $input['Email']));
}
$smarty->display('user/pending.tpl');
Pommo::kill();
if (!SmartyValidate::is_registered_form('exchanger') || empty($_POST)) {
// ___ USER HAS NOT SENT FORM ___
SmartyValidate::register_form('exchanger', true);
SmartyValidate::register_validator('email', 'email', 'isEmail', false, false, false, 'exchanger');
$vMsg = array();
$vMsg['email'] = Pommo::_T('Invalid email address');
$smarty->assign('vMsg', $vMsg);
$dbvals = array('exchanger' => $exchanger, 'email' => $pommo->_config['admin_email']);
$smarty->assign($dbvals);
} else {
// ___ USER HAS SENT FORM ___
/**********************************
JSON OUTPUT INITIALIZATION
*********************************/
Pommo::requireOnce($pommo->_baseDir . 'inc/classes/json.php');
$json = new PommoJSON();
if (SmartyValidate::is_valid($_POST, 'exchanger')) {
// __ FORM IS VALID
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
$msg = PommoHelperMessages::testExchanger($_POST['email'], $exchanger) ? Pommo::_T('Mail Sent.') : Pommo::_T('Error Sending Mail');
$json->success($msg);
} else {
// __ FORM NOT VALID
$json->addMsg(Pommo::_T('Please review and correct errors with your submission.'));
$json->add('fieldErrors', $smarty->getInvalidFields('exchanger'));
$json->fail();
}
}
$smarty->assign($_POST);
$smarty->display('admin/setup/config/ajax.testexchanger.tpl');
Pommo::kill();
*********************************/
Pommo::requireOnce($pommo->_baseDir . 'inc/classes/template.php');
$smarty = new PommoTemplate();
// make sure email/login is valid
$subscriber = current(PommoSubscriber::get(array('email' => empty($_REQUEST['email']) ? '0' : $_REQUEST['email'], 'status' => 1)));
if (empty($subscriber)) {
Pommo::redirect('login.php');
}
// see if an anctivation email was sent to this subscriber in the last 2 minutes;
$query = "\n\tSELECT \n\t\t*\n\tFROM \n\t\t" . $dbo->table['scratch'] . "\n\tWHERE\n\t\t`type`=1\n\t\tAND `int`=%i\n\t\tAND `time` > (NOW() - INTERVAL 2 MINUTE)\n\tLIMIT 1";
$query = $dbo->prepare($query, array($subscriber['id']));
$test = $dbo->query($query, 0);
// attempt to send activation code if once has not recently been sent
if (empty($test)) {
$code = PommoSubscriber::getActCode($subscriber);
if (PommoHelperMessages::sendMessage(array('to' => $subscriber['email'], 'code' => $code, 'type' => 'activate'))) {
$smarty->assign('sent', true);
// timestamp this activation email
$query = "\n\t\t\tINSERT INTO " . $dbo->table['scratch'] . "\n\t\t\tSET\n\t\t\t\t`type`=1,\n\t\t\t\t`int`=%i";
$query = $dbo->prepare($query, array($subscriber['id']));
$dbo->query($query);
// remove ALL activation email timestamps older than 2 minutes
$query = "\n\t\t\tDELETE FROM \n\t\t\t\t" . $dbo->table['scratch'] . "\n\t\t\tWHERE\n\t\t\t\t`type`=1\n\t\t\t\tAND `time` < (NOW() - INTERVAL 2 MINUTE)";
$query = $dbo->prepare($query, array());
$dbo->query($query);
}
} else {
$smarty->assign('sent', false);
}
$smarty->assign('email', $subscriber['email']);
$smarty->display('user/activate.tpl');
function PommoRevUpgrade($rev)
{
global $pommo;
$logger =& $pommo->_logger;
$dbo =& $pommo->_dbo;
switch ($rev) {
case 26:
// Aardvark PR14
// manually add the serial column
$query = "ALTER TABLE " . $dbo->table['updates'] . " ADD `serial` INT UNSIGNED NOT NULL";
if (!$dbo->query($query)) {
Pommo::kill('Could not add serial column');
}
if (!PommoInstall::incUpdate(1, "ALTER TABLE {$dbo->table['updates']} DROP `update_id` , DROP `update_serial`", "Dropping old Update columns")) {
return false;
}
if (!PommoInstall::incUpdate(2, "ALTER TABLE {$dbo->table['updates']} ADD PRIMARY KEY ( `serial` )", "Adding Key to Updates Table")) {
return false;
}
if (!PommoInstall::incUpdate(3, "CREATE TABLE {$dbo->table['mailing_notices']} (\n\t\t\t\t`mailing_id` int(10) unsigned NOT NULL,\n\t\t\t\t`notice` varchar(255) NOT NULL,\n\t\t\t\t`touched` timestamp NOT NULL,\n\t\t\t\tKEY `mailing_id` (`mailing_id`)\n\t\t\t)", "Adding Mailing Notice Table")) {
return false;
}
if (!PommoInstall::incUpdate(4, "ALTER TABLE {$dbo->table['mailing_current']} DROP `notices`", "Dropping old Notice column")) {
return false;
}
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 27), true)) {
return false;
}
case 27:
// Aardvark PR14.1
if (!PommoInstall::incUpdate(5, "CREATE TABLE {$dbo->table['subscriber_update']} (\n\t\t\t\t`email` varchar(60) NOT NULL,\n \t\t\t\t`code` char(32) NOT NULL ,\n \t\t\t\t`activated` datetime NULL default NULL ,\n \t\t\t\t`touched` timestamp(14) NOT NULL,\n\t\t\t\tPRIMARY KEY ( `email` )\n\t\t\t)", "Adding Update Activation Table")) {
return false;
}
if (!PommoInstall::incUpdate(6, "INSERT INTO {$dbo->table['config']} VALUES ('public_history', 'off', 'Public Mailing History', 'off', 'on')", "Adding configuration of Public Mailings")) {
return false;
}
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
PommoHelperMessages::resetDefault();
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 28, 'version' => 'Aardvark PR14.2'), true)) {
return false;
}
case 28:
// Aardvark PR14.2
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 29, 'version' => 'Aardvark PR14.3'), true)) {
return false;
}
case 29:
// Aardvark PR14.3
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 30, 'version' => 'Aardvark PR14.3.1'), true)) {
return false;
}
case 30:
// Aardvark PR14.3.1
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 31, 'version' => 'Aardvark PR14.4'), true)) {
return false;
}
break;
case 31:
// Aardvark PR14.4
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 32, 'version' => 'Aardvark PR14.4.1'), true)) {
return false;
}
case 32:
// Aardvark PR14.4.1
if (!PommoInstall::incUpdate(7, "RENAME TABLE {$dbo->table['group_criteria']} TO {$dbo->table['group_rules']}", "Renaming Group Rules Table")) {
return false;
}
if (!PommoInstall::incUpdate(8, "ALTER TABLE {$dbo->table['group_rules']} CHANGE `criteria_id` `rule_id` INT( 10 ) UNSIGNED NOT NULL AUTO_INCREMENT", "Renaming key column")) {
return false;
}
if (!PommoAPI::configUpdate(array('revision' => 33, 'version' => 'Aardvark SVN'), true)) {
return false;
}
case 33:
// (svn development) -> Aardvark PR15
if (!PommoInstall::incUpdate(9, "ALTER TABLE {$dbo->table['group_rules']} ADD `type` TINYINT( 1 ) NOT NULL DEFAULT '0'", "Adding OR support to Group Rules")) {
return false;
}
if (!PommoInstall::incUpdate(10, "INSERT INTO {$dbo->table['config']} (`config_name`, `config_value`, `config_description`, `autoload`, `user_change`) VALUES ('notices', '', '', 'off', 'off')", "Enabling Notification of Subscriber List Changes")) {
return false;
}
if (!PommoInstall::incUpdate(11, "ALTER TABLE {$dbo->table['fields']} CHANGE `field_type` `field_type` ENUM( 'checkbox', 'multiple', 'text', 'date', 'number', 'comment' ) DEFAULT NULL", "Adding 'comments' field type")) {
return false;
}
if (!PommoInstall::incUpdate(12, "ALTER TABLE {$dbo->table['mailing_notices']} ADD `id` SMALLINT UNSIGNED NULL", "Adding id to mailing notices")) {
return false;
}
if (!PommoInstall::incUpdate(13, "ALTER TABLE {$dbo->table['mailing_current']} CHANGE `command` `command` ENUM( 'none', 'restart', 'stop', 'cancel' ) NOT NULL DEFAULT 'none'", "Adding cancel type to mailing commands")) {
return false;
}
if (!PommoInstall::incUpdate(14, "INSERT INTO {$dbo->table['config']} (`config_name`, `config_value`, `config_description`, `autoload`, `user_change`) VALUES ('maxRuntime', '80', '', 'off', 'on')", "Enabling Mailing Runtime to be set in Config")) {
return false;
}
if (!PommoInstall::incUpdate(15, "INSERT INTO {$dbo->table['config']} (`config_name`, `config_value`, `config_description`, `autoload`, `user_change`) VALUES ('list_wysiwyg', 'on', '', 'off', 'off')", "Persisting State of WYSIWYG Editor Toggle")) {
return false;
}
if (!PommoInstall::incUpdate(16, "ALTER TABLE {$dbo->table['subscriber_data']} CHANGE `value` `value` CHAR( 60 ) NOT NULL", "Tuning Subscriber Data Table")) {
return false;
}
if (!PommoInstall::incUpdate(17, "ALTER TABLE {$dbo->table['subscribers']} CHANGE `email` `email` CHAR( 60 ) NOT NULL", "Tuning Subscribers Table")) {
return false;
}
if (!PommoInstall::incUpdate(18, "DROP TABLE {$dbo->table['subscriber_update']}", "Dropping previous activate routines")) {
return false;
}
if (!PommoInstall::incUpdate(19, "CREATE TABLE {$dbo->table['templates']} (`template_id` SMALLINT UNSIGNED NOT NULL AUTO_INCREMENT, `name` VARCHAR( 60 ) NOT NULL DEFAULT 'name',`description` VARCHAR( 255 ) NULL ,`body` MEDIUMTEXT NULL ,`altbody` MEDIUMTEXT NULL, PRIMARY KEY(`template_id`))", "Adding mailing template support")) {
return false;
}
// custom update 20, install default template
$query = "\n\t\t\tSELECT serial FROM " . $dbo->table['updates'] . " \n\t\t\tWHERE serial=%i";
$query = $dbo->prepare($query, array('20'));
if (!$dbo->records($query)) {
$file = $pommo->_baseDir . "install/sql.templates.php";
if (PommoInstall::parseSQL(false, $file)) {
$query = "INSERT INTO " . $dbo->table['updates'] . "(serial) VALUES(%i)";
$query = $dbo->prepare($query, array('20'));
$dbo->query($query);
}
}
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 34, 'version' => 'Aardvark PR15'), true)) {
return false;
}
case 34:
// Changes >= Aardvark PR15
$file = $pommo->_baseDir . "install/sql.templates.php";
if (!PommoInstall::parseSQL(false, $file)) {
$logger->addErr('Error Loading Default Mailing Templates.');
}
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 35, 'version' => 'Aardvark PR15.1'), true)) {
return false;
}
case 35:
// Aardvark PR15.1
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 36, 'version' => 'Aardvark SVN'), true)) {
return false;
}
case 36:
// SVN revision (applied to PR15.1, for next revision)
if (!PommoInstall::incUpdate(21, "UPDATE {$dbo->table['config']} SET autoload='on' WHERE config_name='revision'", "Flagging Revision Autoloading")) {
return false;
}
if (!PommoInstall::incUpdate(22, "DROP TABLE IF EXISTS {$dbo->table['subscriber_update']}", "Dropping previous activate routines")) {
return false;
}
if (!PommoInstall::incUpdate(23, "CREATE TABLE {$dbo->table['scratch']} (\n\t\t\t\t`scratch_id` int(10) unsigned NOT NULL auto_increment,\n\t\t\t\t`time` TIMESTAMP NOT NULL,\n\t\t\t\t`type` SMALLINT UNSIGNED NOT NULL DEFAULT 0 COMMENT 'Used to identify row type. 0 = undifined, 1 = ',\n\t\t\t\t`int` BIGINT NULL,\n\t\t\t\t`str` TEXT NULL,\n\t\t\t\tPRIMARY KEY (`scratch_id`),\n\t\t\t\tKEY `type`(`type`)\n\t\t\t\t) COMMENT = 'General Purpose Table for caches, counts, etc.'", "Adding Scratch Table")) {
return false;
}
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 37, 'version' => 'Aardvark PR16rc1'), true)) {
return false;
}
case 37:
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 38, 'version' => 'Aardvark PR16rc2'), true)) {
return false;
}
case 38:
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 39, 'version' => 'Aardvark PR16rc3'), true)) {
return false;
}
case 39:
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 40, 'version' => 'Aardvark PR16rc4'), true)) {
return false;
}
case 40:
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 41, 'version' => 'Aardvark PR16'), true)) {
return false;
}
case 41:
$sql = 'Pommo::requireOnce($pommo->_baseDir . \'inc/helpers/messages.php\');PommoHelperMessages::resetDefault();';
if (!PommoInstall::incUpdate(24, $sql, "Resetting all Messages to Default", true)) {
return false;
}
// bump revision
if (!PommoAPI::configUpdate(array('revision' => 42, 'version' => 'Aardvark PR16.1'), true)) {
return false;
}
case 42:
// end of upgrade (break), no revision bump.
break;
default:
return false;
}
return true;
}
} elseif (!empty($_POST['resetPassword'])) {
// TODO -- visit this function later
// Check if a reset password request has been received
// check that captcha matched
if (!isset($_POST['captcha'])) {
// generate captcha
$captcha = substr(md5(rand()), 0, 4);
$smarty->assign('captcha', $captcha);
} elseif ($_POST['captcha'] == $_POST['realdeal']) {
// user inputted captcha matched. Reset password
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/pending.php');
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
// see if there is already a pending request for the administrator [subscriber id == 0]
if (PommoPending::isPending(0)) {
$input = urlencode(serialize(array('adminID' => TRUE, 'Email' => $pommo->_config['admin_email'])));
Pommo::redirect($pommo->_http . $pommo->_baseUrl . 'user/pending.php?input=' . $input);
}
// create a password change request, send confirmation mail
$subscriber = array('id' => 0);
$code = PommoPending::add($subscriber, 'password');
PommoHelperMessages::sendMessage(array('to' => $pommo->_config['admin_email'], 'code' => $code, 'type' => 'password'));
$smarty->assign('captcha', FALSE);
} else {
// captcha did not match
$logger->addMsg(Pommo::_T('Captcha did not match. Try again.'));
}
}
// referer (used to return user to requested page upon login success)
$smarty->assign('referer', isset($_REQUEST['referer']) ? $_REQUEST['referer'] : $pommo->_baseUrl . 'admin/admin.php');
$smarty->display('index.tpl');
die;
PommoHelperMessages::notify($notices, $subscriber, 'pending', $comments);
}
if ($config['site_confirm']) {
Pommo::redirect($config['site_confirm']);
}
} else {
$smarty->assign('back', TRUE);
// delete the subscriber
PommoSubscriber::delete($id);
}
}
} else {
// no email confirmation required
if (!PommoSubscriber::add($subscriber)) {
$logger->addErr('Error adding subscriber! Please contact the administrator.');
$smarty->assign('back', TRUE);
} else {
// send/print welcome message
PommoHelperMessages::sendMessage(array('to' => $subscriber['email'], 'type' => 'subscribe'));
$subscriber['registered'] = date("F j, Y, g:i a", $subscriber['registered']);
if ($comments || isset($notices['subscribe']) && $notices['subscribe'] == 'on') {
PommoHelperMessages::notify($notices, $subscriber, 'subscribe', $comments);
}
// redirect
if ($config['site_success']) {
Pommo::redirect($config['site_success']);
}
}
}
$smarty->display('user/process.tpl');
Pommo::kill();
if (PommoPending::perform($pending)) {
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/messages.php');
// get subscriber info
Pommo::requireOnce($pommo->_baseDir . 'inc/helpers/subscribers.php');
$subscriber = current(PommoSubscriber::get(array('id' => $pending['subscriber_id'])));
switch ($pending['type']) {
case "add":
// send/print welcome message
PommoHelperMessages::sendMessage(array('to' => $subscriber['email'], 'type' => 'subscribe'));
if (isset($notices['subscribe']) && $notices['subscribe'] == 'on') {
PommoHelperMessages::notify($notices, $subscriber, 'subscribe');
}
if (!empty($config['site_success'])) {
Pommo::redirect($config['site_success']);
}
break;
case "change":
if (isset($notices['update']) && $notices['update'] == 'on') {
PommoHelperMessages::notify($notices, $subscriber, 'update');
}
$logger->addMsg(Pommo::_T('Your records have been updated.'));
break;
case "password":
break;
default:
$logger->addMsg('Unknown Pending Type.');
break;
}
}
$smarty->display('user/confirm.tpl');
Pommo::kill();
