5 * Description: Sample Friendica plugin/addon for creating a test drive Friendica site with automatic account expiration.
7 * Author: Mike Macgirvin <http://macgirvin.com/profile/mike>
13 function testdrive_install() {
15 register_hook('register_account', 'addon/testdrive/testdrive.php', 'testdrive_register_account');
16 register_hook('cron', 'addon/testdrive/testdrive.php', 'testdrive_cron');
20 function testdrive_uninstall() {
22 unregister_hook('register_account', 'addon/testdrive/testdrive.php', 'testdrive_register_account');
23 unregister_hook('cron', 'addon/testdrive/testdrive.php', 'testdrive_cron');
27 function testdrive_register_account($a,$b) {
31 $days = get_config('testdrive','expiredays');
35 $r = q("UPDATE user set account_expires_on = '%s' where uid = %d limit 1",
36 dbesc(datetime_convert('UTC','UTC','now +' . $days . ' days')),
43 function testdrive_cron($a,$b) {
44 require_once('include/enotify.php');
46 $r = q("select * from user where account_expires_on < UTC_TIMESTAMP() + INTERVAL 5 DAY and
47 expire_notification_sent = '0000-00-00 00:00:00' ");
53 'type' => NOTIFY_SYSTEM,
54 'system_type' => 'testdrive_expire',
55 'language' => $rr['language'],
56 'to_name' => $rr['username'],
57 'to_email' => $rr['email'],
58 'source_name' => t('Administrator'),
59 'source_link' => $a->get_baseurl(),
60 'source_photo' => $a->get_baseurl() . '/images/person-80.jpg',
63 q("update user set expire_notification_sent = '%s' where uid = %d limit 1",
64 dbesc(datetime_convert()),
71 $r = q("select * from user where account_expired = 1 and account_expires_on < UTC_TIMESTAMP() - INTERVAL 5 DAY ");
73 require_once('include/Contact.php');
75 user_remove($rr['uid']);
81 function testdrive_enotify(&$a, &$b) {
82 if (x($b, 'params') && $b['params']['type'] == NOTIFY_SYSTEM
83 && x($b['params'], 'system_type') && $b['params']['system_type'] === 'testdrive_expire') {
84 $b['itemlink'] = $a->get_baseurl();
85 $b['epreamble'] = $b['preamble'] = sprintf( t('Your account on %s will expire in a few days.'), get_config('system','sitename'));
86 $b['subject'] = t('Your Friendica test account is about to expire.');
87 $b['body'] = sprintf( 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 http://dir.friendica.com/siteinfo - and for more information on setting up your own Friendica server please see the Friendica project website at http://friendica.com."), $b['params']['to_name'], "[url=" . $app->config["system"]["url"] . "]" . $app->config["sitename"] . "[/url]");