2012-04-11 08:24:45 -04:00
< ? php
/**
* Name : testdrive
2018-01-20 11:01:59 -05:00
* Description : Sample Friendica addon for creating a test drive Friendica site with automatic account expiration .
2012-04-11 08:24:45 -04:00
* Version : 1.0
* Author : Mike Macgirvin < http :// macgirvin . com / profile / mike >
*/
2018-01-24 21:29:09 -05:00
2018-07-21 09:13:02 -04:00
use Friendica\App ;
2018-12-26 02:28:16 -05:00
use Friendica\Core\Hook ;
2020-01-04 17:59:19 -05:00
use Friendica\Core\Search ;
2018-07-21 09:13:02 -04:00
use Friendica\Database\DBA ;
2019-12-29 21:55:10 -05:00
use Friendica\DI ;
2021-01-23 15:36:36 -05:00
use Friendica\Model\Notification ;
2017-11-19 17:09:54 -05:00
use Friendica\Model\User ;
2023-01-01 14:21:56 -05:00
use Friendica\Core\Config\Util\ConfigFileManager ;
2018-01-26 21:39:02 -05:00
use Friendica\Util\DateTimeFormat ;
2012-04-11 08:24:45 -04:00
2022-06-23 01:16:22 -04:00
function testdrive_install ()
{
2018-12-26 02:28:16 -05: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 08:24:45 -04:00
}
2023-01-01 14:21:56 -05:00
function testdrive_load_config ( App $a , ConfigFileManager $loader )
2018-06-27 23:19:11 -04:00
{
2022-11-20 12:44:53 -05:00
$a -> getConfigCache () -> load ( $loader -> loadAddonConfig ( 'testdrive' ), \Friendica\Core\Config\ValueObject\Cache :: SOURCE_STATIC );
2018-06-27 23:19:11 -04:00
}
2022-06-23 01:16:22 -04:00
function testdrive_globaldir_update ( App $a , array & $b )
{
2012-05-21 19:41:44 -04:00
$b [ 'url' ] = '' ;
}
2022-06-23 01:16:22 -04:00
function testdrive_register_account ( App $a , $b )
{
2012-04-11 08:24:45 -04:00
$uid = $b ;
2020-01-19 15:21:12 -05:00
$days = DI :: config () -> get ( 'testdrive' , 'expiredays' );
2022-06-23 01:16:22 -04:00
if ( ! $days ) {
2012-04-11 08:24:45 -04:00
return ;
2022-06-23 01:16:22 -04:00
}
2012-04-11 08:24:45 -04:00
2021-10-07 01:53:16 -04:00
DBA :: update ( 'user' , [ 'account_expires_on' => DateTimeFormat :: convert ( 'now +' . $days . ' days' )], [ 'uid' => $uid ]);
2022-06-23 01:16:22 -04:00
}
2014-03-16 14:13:57 -04:00
2012-04-11 08:24:45 -04:00
2022-06-23 01:16:22 -04:00
function testdrive_cron ( App $a , $b )
{
2021-12-03 07:35:02 -05:00
$users = DBA :: selectToArray ( 'user' , [], [ " `account_expires_on` < ? AND `expire_notification_sent` <= ? " ,
2022-06-23 01:16:22 -04:00
DateTimeFormat :: utc ( 'now + 5 days' ), DBA :: NULL_DATETIME ]);
foreach ( $users as $rr ) {
2021-10-19 15:53:10 -04:00
DI :: notify () -> createFromArray ([
2021-10-07 01:53:16 -04: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 08:24:45 -04:00
}
2021-12-03 07:35:02 -05:00
$users = DBA :: selectToArray ( 'user' , [], [ " `account_expired` AND `account_expires_on` < ? " , DateTimeFormat :: utc ( 'now - 5 days' )]);
2021-10-07 01:53:16 -04:00
foreach ( $users as $rr ) {
User :: remove ( $rr [ 'uid' ]);
2012-04-11 08:24:45 -04:00
}
2015-08-23 05:32:47 -04:00
}
2012-04-11 08:24:45 -04:00
2022-06-23 01:16:22 -04:00
function testdrive_enotify ( App $a , array & $b )
{
if ( ! empty ( $b [ 'params' ]) && $b [ 'params' ][ 'type' ] == Notification\Type :: SYSTEM
2018-11-30 09:11:56 -05:00
&& ! empty ( $b [ 'params' ][ 'system_type' ]) && $b [ 'params' ][ 'system_type' ] === 'testdrive_expire' ) {
2022-06-23 01:16:22 -04: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 08:24:45 -04:00
}