public_server/public_server.php

   1 <?php
   2 /**
   3  * Name: public_server
   4  * Description: Friendica addon with functions suitable for a public server. WARNING: This addon is currently not well maintained. It may produce unexpected results. Use with caution!
   5  * Version: 1.1
   6  * Author: Keith Fernie <http://friendika.me4.it/profile/keith>
   7  */
   8
   9 use Friendica\App;
  10 use Friendica\BaseModule;
  11 use Friendica\Core\Hook;
  12 use Friendica\Core\Logger;
  13 use Friendica\Core\Renderer;
  14 use Friendica\Database\DBA;
  15 use Friendica\DI;
  16 use Friendica\Model\Notification;
  17 use Friendica\Model\User;
  18 use Friendica\Core\Config\Util\ConfigFileManager;
  19 use Friendica\Util\DateTimeFormat;
  20
  21 function public_server_install()
  22 {
  23         Hook::register('load_config',      'addon/public_server/public_server.php', 'public_server_load_config');
  24         Hook::register('register_account', 'addon/public_server/public_server.php', 'public_server_register_account');
  25         Hook::register('cron', 'addon/public_server/public_server.php', 'public_server_cron');
  26         Hook::register('enotify', 'addon/public_server/public_server.php', 'public_server_enotify');
  27         Hook::register('logged_in', 'addon/public_server/public_server.php', 'public_server_login');
  28 }
  29
  30 function public_server_load_config(ConfigFileManager $loader)
  31 {
  32         DI::app()->getConfigCache()->load($loader->loadAddonConfig('public_server'), \Friendica\Core\Config\ValueObject\Cache::SOURCE_STATIC);
  33 }
  34
  35 function public_server_register_account($b)
  36 {
  37         $uid = $b;
  38
  39         $days = DI::config()->get('public_server', 'expiredays');
  40         $days_posts = DI::config()->get('public_server', 'expireposts');
  41         if (!$days) {
  42                 return;
  43         }
  44
  45         $fields = ['account_expires_on' => DateTimeFormat::utc('now +' . $days . ' days'), 'expire' => $days_posts];
  46         DBA::update('user', $fields, ['uid' => $uid]);
  47 }
  48
  49 function public_server_cron($b)
  50 {
  51         Logger::notice("public_server: cron start");
  52
  53         $users = DBA::selectToArray('user', [], ["`account_expires_on` > ? AND `account_expires_on` < ?
  54                 AND `expire_notification_sent` <= ?", DBA::NULL_DATETIME, DateTimeFormat::utc('now + 5 days'), DBA::NULL_DATETIME]);
  55         foreach ($users as $rr) {
  56                 DI::notify()->createFromArray([
  57                         'type' => Notification\Type::SYSTEM,
  58                         'event' => 'SYSTEM_PUBLIC_SERVER_EXPIRATION',
  59                         'uid' => $rr['uid'],
  60                         'system_type' => 'public_server_expire',
  61                         'source_name'  => DI::l10n()->t('Administrator'),
  62                         'source_link'  => DI::baseUrl(),
  63                         'source_photo' => DI::baseUrl() . '/images/person-80.jpg',
  64                 ]);
  65
  66                 $fields = ['expire_notification_sent' => DateTimeFormat::utcNow()];
  67                 DBA::update('user', $fields, ['uid' => $rr['uid']]);
  68         }
  69
  70         $nologin = DI::config()->get('public_server', 'nologin', false);
  71         if ($nologin) {
  72                 $users = DBA::selectToArray('user', [], ["NOT `account_expired` AND `login_date` <= ? AND `register_date` < ? AND `account_expires_on` <= ?",
  73                         DBA::NULL_DATETIME, DateTimeFormat::utc('now -  ' . (int)$nologin . ' days'), DBA::NULL_DATETIME]);
  74                 foreach ($users as $rr) {
  75                         $fields = ['account_expires_on' => DateTimeFormat::utc('now +6 days')];
  76                         DBA::update('user', $fields, ['uid' => $rr['uid']]);
  77                 }
  78         }
  79
  80         $flagusers = DI::config()->get('public_server', 'flagusers', false);
  81         if ($flagusers) {
  82                 $users = DBA::selectToArray('user', [], ["NOT `account_expired` AND `login_date` < ? AND `account_expires_on` <= ? AND `page-flags` = ?",
  83             DateTimeFormat::utc('now -  ' . (int)$flagusers . ' days'), DBA::NULL_DATETIME, User::PAGE_FLAGS_NORMAL]);
  84                 foreach ($users as $rr) {
  85                         $fields = ['account_expires_on' => DateTimeFormat::utc('now +6 days')];
  86                         DBA::update('user', $fields, ['uid' => $rr['uid']]);
  87                 }
  88         }
  89
  90         $flagposts = DI::config()->get('public_server', 'flagposts');
  91         $flagpostsexpire = DI::config()->get('public_server', 'flagpostsexpire');
  92         if ($flagposts && $flagpostsexpire) {
  93                 $users = DBA::selectToArray('user', [], ["NOT `account_expired` AND `login_date` < ? AND `account_expires_on` <= ? AND NOT `expire` AND `page-flags` = ?",
  94             DateTimeFormat::utc('now -  ' . (int)$flagposts . ' days'), DBA::NULL_DATETIME, User::PAGE_FLAGS_NORMAL]);
  95                 foreach ($users as $rr) {
  96                         DBA::update('user', ['expire' => $flagpostsexpire], ['uid' => $rr['uid']]);
  97                 }
  98         }
  99
 100         Logger::notice("public_server: cron end");
 101 }
 102
 103 function public_server_enotify(array &$b)
 104 {
 105         if (!empty($b['params']) && $b['params']['type'] == Notification\Type::SYSTEM
 106                 && !empty($b['params']['system_type']) && $b['params']['system_type'] === 'public_server_expire') {
 107                 $b['itemlink'] = DI::baseUrl();
 108                 $b['epreamble'] = $b['preamble'] = DI::l10n()->t('Your account on %s will expire in a few days.', DI::config()->get('system', 'sitename'));
 109                 $b['subject'] = DI::l10n()->t('Your Friendica account is about to expire.');
 110                 $b['body'] = DI::l10n()->t("Hi %1\$s,\n\nYour account on %2\$s will expire in less than five days. You may keep your account by logging in at least once every 30 days", $b['params']['to_name'], "[url=" . DI::config()->get('system', 'url') . "]" . DI::config()->get('config', 'sitename') . "[/url]");
 111         }
 112 }
 113
 114 function public_server_login($b)
 115 {
 116         $days = DI::config()->get('public_server', 'expiredays');
 117         if (!$days) {
 118                 return;
 119         }
 120
 121         $fields = ['account_expires_on' => DateTimeFormat::utc('now +' . $days . ' days')];
 122         $condition = ["`uid` = ? AND `account_expires_on` > ?", DI::userSession()->getLocalUserId(), DBA::NULL_DATETIME];
 123         DBA::update('user', $fields, $condition);
 124 }
 125
 126 function public_server_addon_admin_post()
 127 {
 128         BaseModule::checkFormSecurityTokenRedirectOnError('/admin/addons/publicserver', 'publicserver');
 129
 130         DI::config()->set('public_server', 'expiredays', trim($_POST['expiredays'] ?? ''));
 131         DI::config()->set('public_server', 'expireposts', trim($_POST['expireposts'] ?? ''));
 132         DI::config()->set('public_server', 'nologin', trim($_POST['nologin'] ?? ''));
 133         DI::config()->set('public_server', 'flagusers', trim($_POST['flagusers'] ?? ''));
 134         DI::config()->set('public_server', 'flagposts', trim($_POST['flagposts'] ?? ''));
 135         DI::config()->set('public_server', 'flagpostsexpire', trim($_POST['flagpostsexpire'] ?? ''));
 136 }
 137
 138 function public_server_addon_admin(string &$o)
 139 {
 140         $token = BaseModule::getFormSecurityToken('publicserver');
 141         $t = Renderer::getMarkupTemplate('admin.tpl', 'addon/public_server');
 142         $o = Renderer::replaceMacros($t, [
 143                 '$submit' => DI::l10n()->t('Save Settings'),
 144                 '$form_security_token' => $token,
 145                 '$infotext' => DI::l10n()->t('Set any of these options to 0 to deactivate it.'),
 146                 '$expiredays' => ["expiredays", "Expire Days", intval(DI::config()->get('public_server', 'expiredays')), "When an account is created on the site, it is given a hard "],
 147                 '$expireposts' => ["expireposts", "Expire Posts", intval(DI::config()->get('public_server', 'expireposts')), "Set the default days for posts to expire here"],
 148                 '$nologin' => ["nologin", "No Login", intval(DI::config()->get('public_server', 'nologin')), "Remove users who have never logged in after nologin days "],
 149                 '$flagusers' => ["flagusers", "Flag users", intval(DI::config()->get('public_server', 'flagusers')), "Remove users who last logged in over flagusers days ago"],
 150                 '$flagposts' => ["flagposts", "Flag posts", intval(DI::config()->get('public_server', 'flagposts')), "For users who last logged in over flagposts days ago set post expiry days to flagpostsexpire "],
 151                 '$flagpostsexpire' => ["flagpostsexpire", "Flag posts expire", intval(DI::config()->get('public_server', 'flagpostsexpire'))],
 152         ]);
 153 }