+ }
+
+ $fields = ['account_expires_on' => DateTimeFormat::utc('now +' . $days . ' days')];
+ $condition = ["`uid` = ? AND `account_expires_on` > ?", local_user(), NULL_DATE];
+ dba::update('user', $fields, $condition);
+}
+
+function public_server_addon_admin_post(&$a)
+{
+ check_form_security_token_redirectOnErr('/admin/addons/publicserver', 'publicserver');
+ $expiredays = (x($_POST, 'expiredays') ? notags(trim($_POST['expiredays'])) : '');
+ $expireposts = (x($_POST, 'expireposts') ? notags(trim($_POST['expireposts'])) : '');
+ $nologin = (x($_POST, 'nologin') ? notags(trim($_POST['nologin'])) : '');
+ $flagusers = (x($_POST, 'flagusers') ? notags(trim($_POST['flagusers'])) : '');
+ $flagposts = (x($_POST, 'flagposts') ? notags(trim($_POST['flagposts'])) : '');
+ $flagpostsexpire = (x($_POST, 'flagpostsexpire') ? notags(trim($_POST['flagpostsexpire'])) : '');
+ Config::set('public_server', 'expiredays', $expiredays);
+ Config::set('public_server', 'expireposts', $expireposts);
+ Config::set('public_server', 'nologin', $nologin);
+ Config::set('public_server', 'flagusers', $flagusers);
+ Config::set('public_server', 'flagposts', $flagposts);
+ Config::set('public_server', 'flagpostsexpire', $flagpostsexpire);
+ info(L10n::t('Settings saved').EOL);
+}
+
+function public_server_addon_admin(&$a, &$o)
+{
+ $token = get_form_security_token("publicserver");
+ $t = get_markup_template("admin.tpl", "addon/public_server");
+ $o = replace_macros($t, [
+ '$submit' => L10n::t('Save Settings'),
+ '$form_security_token' => $token,
+ '$infotext' => L10n::t('Set any of these options to 0 to deactivate it.'),
+ '$expiredays' => ["expiredays","Expire Days", intval(Config::get('public_server', 'expiredays')), "When an account is created on the site, it is given a hard "],
+ '$expireposts' => ["expireposts", "Expire Posts", intval(Config::get('public_server', 'expireposts')), "Set the default days for posts to expire here"],
+ '$nologin' => ["nologin", "No Login", intval(Config::get('public_server', 'nologin')), "Remove users who have never logged in after nologin days "],
+ '$flagusers' => ["flagusers", "Flag users", intval(Config::get('public_server', 'flagusers')), "Remove users who last logged in over flagusers days ago"],
+ '$flagposts' => ["flagposts", "Flag posts", intval(Config::get('public_server', 'flagposts')), "For users who last logged in over flagposts days ago set post expiry days to flagpostsexpire "],
+ '$flagpostsexpire' => ["flagpostsexpire", "Flag posts expire", intval(Config::get('public_server', 'flagpostsexpire'))],
+ ]);