friendica-addons/testdrive/testdrive.php

109 lines
3.9 KiB
PHP
Raw Normal View History

2012-04-11 14:24:45 +02:00
<?php
/**
* Name: testdrive
* Description: Sample Friendica addon for creating a test drive Friendica site with automatic account expiration.
2012-04-11 14:24:45 +02:00
* Version: 1.0
* Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
*/
2018-07-21 15:13:02 +02:00
use Friendica\App;
use Friendica\Core\Config;
use Friendica\Core\Hook;
2018-01-22 20:03:11 +01:00
use Friendica\Core\L10n;
use Friendica\Core\Search;
2018-07-21 15:13:02 +02:00
use Friendica\Database\DBA;
use Friendica\DI;
use Friendica\Model\User;
use Friendica\Util\ConfigFileLoader;
use Friendica\Util\DateTimeFormat;
2012-04-11 14:24:45 +02:00
function testdrive_install() {
Hook::register('load_config', 'addon/testdrive/testdrive.php', 'testdrive_load_config');
Hook::register('register_account', 'addon/testdrive/testdrive.php', 'testdrive_register_account');
Hook::register('cron', 'addon/testdrive/testdrive.php', 'testdrive_cron');
Hook::register('enotify','addon/testdrive/testdrive.php', 'testdrive_enotify');
Hook::register('globaldir_update','addon/testdrive/testdrive.php', 'testdrive_globaldir_update');
2012-04-11 14:24:45 +02:00
}
function testdrive_uninstall() {
Hook::unregister('load_config', 'addon/testdrive/testdrive.php', 'testdrive_load_config');
Hook::unregister('register_account', 'addon/testdrive/testdrive.php', 'testdrive_register_account');
Hook::unregister('cron', 'addon/testdrive/testdrive.php', 'testdrive_cron');
Hook::unregister('enotify','addon/testdrive/testdrive.php', 'testdrive_enotify');
Hook::unregister('globaldir_update','addon/testdrive/testdrive.php', 'testdrive_globaldir_update');
2012-04-11 14:24:45 +02:00
}
function testdrive_load_config(App $a, ConfigFileLoader $loader)
{
2019-02-10 20:10:59 +01:00
$a->getConfigCache()->load($loader->loadAddonConfig('testdrive'));
}
2012-05-22 01:41:44 +02:00
function testdrive_globaldir_update($a,&$b) {
$b['url'] = '';
}
2012-04-11 14:24:45 +02:00
function testdrive_register_account($a,$b) {
$uid = $b;
$days = Config::get('testdrive','expiredays');
2012-04-11 14:24:45 +02:00
if(! $days)
return;
2014-03-16 19:13:57 +01:00
$r = q("UPDATE user set account_expires_on = '%s' where uid = %d",
2018-07-21 15:13:02 +02:00
DBA::escape(DateTimeFormat::convert('now +' . $days . ' days')),
2012-04-11 14:24:45 +02:00
intval($uid)
);
};
2014-03-16 19:13:57 +01:00
2012-04-11 14:24:45 +02:00
function testdrive_cron($a,$b) {
$r = q("select * from user where account_expires_on < UTC_TIMESTAMP() + INTERVAL 5 DAY and
expire_notification_sent = '0000-00-00 00:00:00' ");
if(count($r)) {
foreach($r as $rr) {
2018-01-15 14:15:33 +01:00
notification([
2012-04-11 14:24:45 +02:00
'uid' => $rr['uid'],
'type' => NOTIFY_SYSTEM,
'system_type' => 'testdrive_expire',
'language' => $rr['language'],
'to_name' => $rr['username'],
'to_email' => $rr['email'],
2018-01-22 20:03:11 +01:00
'source_name' => L10n::t('Administrator'),
'source_link' => DI::baseUrl()->get(),
'source_photo' => DI::baseUrl()->get() . '/images/person-80.jpg',
2018-01-15 14:15:33 +01:00
]);
2012-04-11 14:24:45 +02:00
2014-03-16 19:13:57 +01:00
q("update user set expire_notification_sent = '%s' where uid = %d",
2018-07-21 15:13:02 +02:00
DBA::escape(DateTimeFormat::utcNow()),
2012-04-11 14:24:45 +02:00
intval($rr['uid'])
);
2014-03-16 19:13:57 +01:00
2012-04-11 14:24:45 +02:00
}
}
$r = q("select * from user where account_expired = 1 and account_expires_on < UTC_TIMESTAMP() - INTERVAL 5 DAY ");
if(count($r)) {
foreach($r as $rr) {
User::remove($rr['uid']);
}
2012-04-11 14:24:45 +02:00
}
2015-08-23 11:32:47 +02:00
}
2012-04-11 14:24:45 +02:00
function testdrive_enotify(&$a, &$b) {
if (!empty($b['params']) && $b['params']['type'] == NOTIFY_SYSTEM
&& !empty($b['params']['system_type']) && $b['params']['system_type'] === 'testdrive_expire') {
$b['itemlink'] = DI::baseUrl()->get();
$b['epreamble'] = $b['preamble'] = L10n::t('Your account on %s will expire in a few days.', Config::get('system', 'sitename'));
2018-01-22 20:03:11 +01:00
$b['subject'] = L10n::t('Your Friendica test account is about to expire.');
$b['body'] = L10n::t("Hi %1\$s,\n\nYour test account on %2\$s will expire in less than five days. We hope you enjoyed this test drive and use this opportunity to find a permanent Friendica website for your integrated social communications. A list of public sites is available at %s/siteinfo - and for more information on setting up your own Friendica server please see the Friendica project website at https://friendi.ca.", $b['params']['to_name'], "[url=".Config::get('system', 'url')."]".Config::get('config', 'sitename')."[/url]", Config::get('system', 'directory', Search::DEFAULT_DIRECTORY));
2012-04-11 14:24:45 +02:00
}
}