2012-04-11 14:24:45 +02:00
< ? php
/**
* Name : testdrive
2018-01-20 17:01:59 +01:00
* 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-01-25 03:29:09 +01:00
2018-07-21 15:13:02 +02:00
use Friendica\App ;
2018-12-26 08:28:16 +01:00
use Friendica\Core\Hook ;
2020-01-04 23:59:19 +01:00
use Friendica\Core\Search ;
2018-07-21 15:13:02 +02:00
use Friendica\Database\DBA ;
2019-12-30 03:55:10 +01:00
use Friendica\DI ;
2021-01-23 21:36:36 +01:00
use Friendica\Model\Notification ;
2017-11-19 23:09:54 +01:00
use Friendica\Model\User ;
2021-10-26 21:44:28 +02:00
use Friendica\Core\Config\Util\ConfigFileLoader ;
2018-01-27 03:39:02 +01:00
use Friendica\Util\DateTimeFormat ;
2012-04-11 14:24:45 +02:00
2022-06-23 07:16:22 +02:00
function testdrive_install ()
{
2018-12-26 08:28:16 +01:00
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
}
2019-03-24 12:54:26 +01:00
function testdrive_load_config ( App $a , ConfigFileLoader $loader )
2018-06-28 05:19:11 +02:00
{
2019-02-10 20:10:59 +01:00
$a -> getConfigCache () -> load ( $loader -> loadAddonConfig ( 'testdrive' ));
2018-06-28 05:19:11 +02:00
}
2022-06-23 07:16:22 +02:00
function testdrive_globaldir_update ( App $a , array & $b )
{
2012-05-22 01:41:44 +02:00
$b [ 'url' ] = '' ;
}
2022-06-23 07:16:22 +02:00
function testdrive_register_account ( App $a , $b )
{
2012-04-11 14:24:45 +02:00
$uid = $b ;
2020-01-19 21:21:12 +01:00
$days = DI :: config () -> get ( 'testdrive' , 'expiredays' );
2022-06-23 07:16:22 +02:00
if ( ! $days ) {
2012-04-11 14:24:45 +02:00
return ;
2022-06-23 07:16:22 +02:00
}
2012-04-11 14:24:45 +02:00
2021-10-07 07:53:16 +02:00
DBA :: update ( 'user' , [ 'account_expires_on' => DateTimeFormat :: convert ( 'now +' . $days . ' days' )], [ 'uid' => $uid ]);
2022-06-23 07:16:22 +02:00
}
2014-03-16 19:13:57 +01:00
2012-04-11 14:24:45 +02:00
2022-06-23 07:16:22 +02:00
function testdrive_cron ( App $a , $b )
{
2021-12-03 13:35:02 +01:00
$users = DBA :: selectToArray ( 'user' , [], [ " `account_expires_on` < ? AND `expire_notification_sent` <= ? " ,
2022-06-23 07:16:22 +02:00
DateTimeFormat :: utc ( 'now + 5 days' ), DBA :: NULL_DATETIME ]);
foreach ( $users as $rr ) {
2021-10-19 21:53:10 +02:00
DI :: notify () -> createFromArray ([
2021-10-07 07:53:16 +02:00
'type' => Notification\Type :: SYSTEM ,
'uid' => $rr [ 'uid' ],
'system_type' => 'testdrive_expire' ,
'source_name' => DI :: l10n () -> t ( 'Administrator' ),
'source_link' => DI :: baseUrl () -> get (),
'source_photo' => DI :: baseUrl () -> get () . '/images/person-80.jpg' ,
]);
DBA :: update ( 'user' , [ 'expire_notification_sent' => DateTimeFormat :: utcNow ()], [ 'uid' => $rr [ 'uid' ]]);
2012-04-11 14:24:45 +02:00
}
2021-12-03 13:35:02 +01:00
$users = DBA :: selectToArray ( 'user' , [], [ " `account_expired` AND `account_expires_on` < ? " , DateTimeFormat :: utc ( 'now - 5 days' )]);
2021-10-07 07:53:16 +02:00
foreach ( $users 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
2022-06-23 07:16:22 +02:00
function testdrive_enotify ( App $a , array & $b )
{
if ( ! empty ( $b [ 'params' ]) && $b [ 'params' ][ 'type' ] == Notification\Type :: SYSTEM
2018-11-30 15:11:56 +01:00
&& ! empty ( $b [ 'params' ][ 'system_type' ]) && $b [ 'params' ][ 'system_type' ] === 'testdrive_expire' ) {
2022-06-23 07:16:22 +02:00
$b [ 'itemlink' ] = DI :: baseUrl () -> get ();
$b [ 'epreamble' ] = $b [ 'preamble' ] = DI :: l10n () -> t ( 'Your account on %s will expire in a few days.' , DI :: config () -> get ( 'system' , 'sitename' ));
$b [ 'subject' ] = DI :: l10n () -> t ( 'Your Friendica test account is about to expire.' );
$b [ 'body' ] = DI :: l10n () -> t ( " Hi %1 \$ s, \n \n Your 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= " . DI :: config () -> get ( 'system' , 'url' ) . " ] " . DI :: config () -> get ( 'config' , 'sitename' ) . " [/url] " , Search :: getGlobalDirectory ());
}
2012-04-11 14:24:45 +02:00
}