mod/admin.php

   1 <?php
   2
   3  /**
   4   * Friendica admin
   5   */
   6 require_once("include/remoteupdate.php");
   7
   8
   9 /**
  10  * @param App $a
  11  */
  12 function admin_post(&$a){
  13
  14
  15         if(!is_site_admin()) {
  16                 return;
  17         }
  18
  19         // do not allow a page manager to access the admin panel at all.
  20
  21         if(x($_SESSION,'submanage') && intval($_SESSION['submanage']))
  22                 return;
  23
  24
  25
  26         // urls
  27         if ($a->argc > 1){
  28                 switch ($a->argv[1]){
  29                         case 'site':
  30                                 admin_page_site_post($a);
  31                                 break;
  32                         case 'users':
  33                                 admin_page_users_post($a);
  34                                 break;
  35                         case 'plugins':
  36                                 if ($a->argc > 2 &&
  37                                         is_file("addon/".$a->argv[2]."/".$a->argv[2].".php")){
  38                                                 @include_once("addon/".$a->argv[2]."/".$a->argv[2].".php");
  39                                                 if(function_exists($a->argv[2].'_plugin_admin_post')) {
  40                                                         $func = $a->argv[2].'_plugin_admin_post';
  41                                                         $func($a);
  42                                                 }
  43                                 }
  44                                 goaway($a->get_baseurl(true) . '/admin/plugins/' . $a->argv[2] );
  45                                 return; // NOTREACHED
  46                                 break;
  47                         case 'themes':
  48                                 $theme = $a->argv[2];
  49                                 if (is_file("view/theme/$theme/config.php")){
  50                                         require_once("view/theme/$theme/config.php");
  51                                         if (function_exists("theme_admin_post")){
  52                                                 theme_admin_post($a);
  53                                         }
  54                                 }
  55                                 info(t('Theme settings updated.'));
  56                                 if(is_ajax()) return;
  57
  58                                 goaway($a->get_baseurl(true) . '/admin/themes/' . $theme );
  59                                 return;
  60                                 break;
  61                         case 'logs':
  62                                 admin_page_logs_post($a);
  63                                 break;
  64                         case 'dbsync':
  65                                 admin_page_dbsync_post($a);
  66                                 break;
  67                         case 'update':
  68                                 admin_page_remoteupdate_post($a);
  69                                 break;
  70                 }
  71         }
  72
  73         goaway($a->get_baseurl(true) . '/admin' );
  74         return; // NOTREACHED
  75 }
  76
  77 /**
  78  * @param App $a
  79  * @return string
  80  */
  81 function admin_content(&$a) {
  82
  83         if(!is_site_admin()) {
  84                 return login(false);
  85         }
  86
  87         if(x($_SESSION,'submanage') && intval($_SESSION['submanage']))
  88                 return "";
  89
  90         // APC deactivated, since there are problems with PHP 5.5
  91         //if (function_exists("apc_delete")) {
  92         //      $toDelete = new APCIterator('user', APC_ITER_VALUE);
  93         //      apc_delete($toDelete);
  94         //}
  95
  96         /**
  97          * Side bar links
  98          */
  99
 100         // array( url, name, extra css classes )
 101         $aside = Array(
 102                 'site'   =>     Array($a->get_baseurl(true)."/admin/site/", t("Site") , "site"),
 103                 'users'  =>     Array($a->get_baseurl(true)."/admin/users/", t("Users") , "users"),
 104                 'plugins'=>     Array($a->get_baseurl(true)."/admin/plugins/", t("Plugins") , "plugins"),
 105                 'themes' =>     Array($a->get_baseurl(true)."/admin/themes/", t("Themes") , "themes"),
 106                 'dbsync' => Array($a->get_baseurl(true)."/admin/dbsync/", t('DB updates'), "dbsync"),
 107                 //'update' =>   Array($a->get_baseurl(true)."/admin/update/", t("Software Update") , "update")
 108         );
 109
 110         /* get plugins admin page */
 111
 112         $r = q("SELECT name FROM `addon` WHERE `plugin_admin`=1");
 113         $aside['plugins_admin']=Array();
 114         foreach ($r as $h){
 115                 $plugin =$h['name'];
 116                 $aside['plugins_admin'][] = Array($a->get_baseurl(true)."/admin/plugins/".$plugin, $plugin, "plugin");
 117                 // temp plugins with admin
 118                 $a->plugins_admin[] = $plugin;
 119         }
 120
 121         $aside['logs'] = Array($a->get_baseurl(true)."/admin/logs/", t("Logs"), "logs");
 122
 123         $t = get_markup_template("admin_aside.tpl");
 124         $a->page['aside'] .= replace_macros( $t, array(
 125                         '$admin' => $aside,
 126                         '$admtxt' => t('Admin'),
 127                         '$plugadmtxt' => t('Plugin Features'),
 128                         '$logtxt' => t('Logs'),
 129                         '$h_pending' => t('User registrations waiting for confirmation'),
 130                         '$admurl'=> $a->get_baseurl(true)."/admin/"
 131         ));
 132
 133
 134
 135         /**
 136          * Page content
 137          */
 138         $o = '';
 139         // urls
 140         if ($a->argc > 1){
 141                 switch ($a->argv[1]){
 142                         case 'site':
 143                                 $o = admin_page_site($a);
 144                                 break;
 145                         case 'users':
 146                                 $o = admin_page_users($a);
 147                                 break;
 148                         case 'plugins':
 149                                 $o = admin_page_plugins($a);
 150                                 break;
 151                         case 'themes':
 152                                 $o = admin_page_themes($a);
 153                                 break;
 154                         case 'logs':
 155                                 $o = admin_page_logs($a);
 156                                 break;
 157                         case 'dbsync':
 158                                 $o = admin_page_dbsync($a);
 159                                 break;
 160                         case 'update':
 161                                 $o = admin_page_remoteupdate($a);
 162                                 break;
 163                         default:
 164                                 notice( t("Item not found.") );
 165                 }
 166         } else {
 167                 $o = admin_page_summary($a);
 168         }
 169
 170         if(is_ajax()) {
 171                 echo $o;
 172                 killme();
 173                 return '';
 174         } else {
 175                 return $o;
 176         }
 177 }
 178
 179
 180 /**
 181  * Admin Summary Page
 182  * @param App $a
 183  * @return string
 184  */
 185 function admin_page_summary(&$a) {
 186         $r = q("SELECT `page-flags`, COUNT(uid) as `count` FROM `user` GROUP BY `page-flags`");
 187         $accounts = Array(
 188                 Array( t('Normal Account'), 0),
 189                 Array( t('Soapbox Account'), 0),
 190                 Array( t('Community/Celebrity Account'), 0),
 191                 Array( t('Automatic Friend Account'), 0),
 192                 Array( t('Blog Account'), 0),
 193                 Array( t('Private Forum'), 0)
 194         );
 195
 196         $users=0;
 197         foreach ($r as $u){ $accounts[$u['page-flags']][1] = $u['count']; $users+= $u['count']; }
 198
 199         logger('accounts: ' . print_r($accounts,true),LOGGER_DATA);
 200
 201         $r = q("SELECT COUNT(id) as `count` FROM `register`");
 202         $pending = $r[0]['count'];
 203
 204         $r = q("select count(*) as total from deliverq where 1");
 205         $deliverq = (($r) ? $r[0]['total'] : 0);
 206
 207         $r = q("select count(*) as total from queue where 1");
 208         $queue = (($r) ? $r[0]['total'] : 0);
 209
 210         // We can do better, but this is a quick queue status
 211
 212         $queues = array( 'label' => t('Message queues'), 'deliverq' => $deliverq, 'queue' => $queue );
 213
 214
 215         $t = get_markup_template("admin_summary.tpl");
 216         return replace_macros($t, array(
 217                 '$title' => t('Administration'),
 218                 '$page' => t('Summary'),
 219                 '$queues' => $queues,
 220                 '$users' => Array( t('Registered users'), $users),
 221                 '$accounts' => $accounts,
 222                 '$pending' => Array( t('Pending registrations'), $pending),
 223                 '$version' => Array( t('Version'), FRIENDICA_VERSION),
 224                 '$build' =>  get_config('system','build'),
 225                 '$plugins' => Array( t('Active plugins'), $a->plugins )
 226         ));
 227 }
 228
 229
 230 /**
 231  * Admin Site Page
 232  *  @param App $a
 233  */
 234 function admin_page_site_post(&$a){
 235         if (!x($_POST,"page_site")){
 236                 return;
 237         }
 238
 239         check_form_security_token_redirectOnErr('/admin/site', 'admin_site');
 240
 241         // relocate
 242         if (x($_POST,'relocate') && x($_POST,'relocate_url') && $_POST['relocate_url']!=""){
 243                 $new_url = $_POST['relocate_url'];
 244                 $new_url = rtrim($new_url,"/");
 245
 246                 $parsed = @parse_url($new_url);
 247                 if (!$parsed || (!x($parsed,'host') || !x($parsed,'scheme'))) {
 248                         notice(t("Can not parse base url. Must have at least <scheme>://<domain>"));
 249                         goaway($a->get_baseurl(true) . '/admin/site' );
 250                 }
 251
 252                 /* steps:
 253                  * replace all "baseurl" to "new_url" in config, profile, term, items and contacts
 254                  * send relocate for every local user
 255                  * */
 256
 257                 $old_url = $a->get_baseurl(true);
 258
 259                 function update_table($table_name, $fields, $old_url, $new_url) {
 260                         global $db, $a;
 261
 262                         $dbold = dbesc($old_url);
 263                         $dbnew = dbesc($new_url);
 264
 265                         $upd = array();
 266                         foreach ($fields as $f) {
 267                                 $upd[] = "`$f` = REPLACE(`$f`, '$dbold', '$dbnew')";
 268                         }
 269
 270                         $upds = implode(", ", $upd);
 271
 272
 273
 274                         $q = sprintf("UPDATE %s SET %s;", $table_name, $upds);
 275                         $r = q($q);
 276                         if (!$r) {
 277                                 notice( "Falied updating '$table_name': " . $db->error );
 278                                 goaway($a->get_baseurl(true) . '/admin/site' );
 279                         }
 280                 }
 281
 282                 // update tables
 283                 update_table("profile", array('photo', 'thumb'), $old_url, $new_url);
 284                 update_table("term", array('url'), $old_url, $new_url);
 285                 update_table("contact", array('photo','thumb','micro','url','nurl','request','notify','poll','confirm','poco'), $old_url, $new_url);
 286                 update_table("item", array('owner-link','owner-avatar','author-name','author-link','author-avatar','body','plink','tag'), $old_url, $new_url);
 287
 288                 // update config
 289                 $a->set_baseurl($new_url);
 290                 set_config('system','url',$new_url);
 291
 292                 // send relocate
 293                 $users = q("SELECT uid FROM user WHERE account_removed = 0 AND account_expired = 0");
 294
 295                 foreach ($users as $user) {
 296                         proc_run('php', 'include/notifier.php', 'relocate', $user['uid']);
 297                 }
 298
 299                 info("Relocation started. Could take a while to complete.");
 300
 301                 goaway($a->get_baseurl(true) . '/admin/site' );
 302         }
 303         // end relocate
 304
 305         $sitename               =       ((x($_POST,'sitename'))                 ? notags(trim($_POST['sitename']))              : '');
 306         $banner                 =       ((x($_POST,'banner'))                   ? trim($_POST['banner'])                        : false);
 307         $info                   =       ((x($_POST,'info'))                     ? trim($_POST['info'])                  : false);
 308         $language               =       ((x($_POST,'language'))                 ? notags(trim($_POST['language']))              : '');
 309         $theme                  =       ((x($_POST,'theme'))                    ? notags(trim($_POST['theme']))                 : '');
 310         $theme_mobile           =       ((x($_POST,'theme_mobile'))             ? notags(trim($_POST['theme_mobile']))          : '');
 311         $maximagesize           =       ((x($_POST,'maximagesize'))             ? intval(trim($_POST['maximagesize']))          :  0);
 312         $maximagelength         =       ((x($_POST,'maximagelength'))           ? intval(trim($_POST['maximagelength']))        :  MAX_IMAGE_LENGTH);
 313         $jpegimagequality       =       ((x($_POST,'jpegimagequality'))         ? intval(trim($_POST['jpegimagequality']))      :  JPEG_QUALITY);
 314
 315
 316         $register_policy        =       ((x($_POST,'register_policy'))          ? intval(trim($_POST['register_policy']))       :  0);
 317         $daily_registrations    =       ((x($_POST,'max_daily_registrations'))  ? intval(trim($_POST['max_daily_registrations']))       :0);
 318         $abandon_days           =       ((x($_POST,'abandon_days'))             ? intval(trim($_POST['abandon_days']))          :  0);
 319
 320         $register_text          =       ((x($_POST,'register_text'))            ? notags(trim($_POST['register_text']))         : '');
 321
 322         $allowed_sites          =       ((x($_POST,'allowed_sites'))            ? notags(trim($_POST['allowed_sites']))         : '');
 323         $allowed_email          =       ((x($_POST,'allowed_email'))            ? notags(trim($_POST['allowed_email']))         : '');
 324         $block_public           =       ((x($_POST,'block_public'))             ? True                                          : False);
 325         $force_publish          =       ((x($_POST,'publish_all'))              ? True                                          : False);
 326         $global_directory       =       ((x($_POST,'directory_submit_url'))     ? notags(trim($_POST['directory_submit_url']))  : '');
 327         $thread_allow           =       ((x($_POST,'thread_allow'))             ? True                                          : False);
 328         $newuser_private                =       ((x($_POST,'newuser_private'))          ? True                                          : False);
 329         $enotify_no_content             =       ((x($_POST,'enotify_no_content'))       ? True                                          : False);
 330         $private_addons                 =       ((x($_POST,'private_addons'))           ? True                                          : False);
 331         $disable_embedded               =       ((x($_POST,'disable_embedded'))         ? True                                          : False);
 332         $allow_users_remote_self        =       ((x($_POST,'allow_users_remote_self'))          ? True                                          : False);
 333
 334         $no_multi_reg           =       ((x($_POST,'no_multi_reg'))             ? True                                          : False);
 335         $no_openid              =       !((x($_POST,'no_openid'))               ? True                                          : False);
 336         $no_regfullname         =       !((x($_POST,'no_regfullname'))          ? True                                          : False);
 337         $no_utf                 =       !((x($_POST,'no_utf'))                  ? True                                          : False);
 338         $no_community_page      =       !((x($_POST,'no_community_page'))       ? True                                          : False);
 339
 340         $verifyssl              =       ((x($_POST,'verifyssl'))                ? True                                          : False);
 341         $proxyuser              =       ((x($_POST,'proxyuser'))                ? notags(trim($_POST['proxyuser']))             : '');
 342         $proxy                  =       ((x($_POST,'proxy'))                    ? notags(trim($_POST['proxy']))                 : '');
 343         $timeout                =       ((x($_POST,'timeout'))                  ? intval(trim($_POST['timeout']))               : 60);
 344         $delivery_interval      =       ((x($_POST,'delivery_interval'))        ? intval(trim($_POST['delivery_interval']))     : 0);
 345         $poll_interval          =       ((x($_POST,'poll_interval'))            ? intval(trim($_POST['poll_interval']))         : 0);
 346         $maxloadavg             =       ((x($_POST,'maxloadavg'))               ? intval(trim($_POST['maxloadavg']))            : 50);
 347         $dfrn_only              =       ((x($_POST,'dfrn_only'))                ? True                                          : False);
 348         $ostatus_disabled       =       !((x($_POST,'ostatus_disabled'))        ? True                                          : False);
 349         $ostatus_poll_interval  =       ((x($_POST,'ostatus_poll_interval'))    ? intval(trim($_POST['ostatus_poll_interval']))         :  0);
 350         $diaspora_enabled       =       ((x($_POST,'diaspora_enabled'))         ? True                                          : False);
 351         $ssl_policy             =       ((x($_POST,'ssl_policy'))               ? intval($_POST['ssl_policy'])                  : 0);
 352         $old_share              =       ((x($_POST,'old_share'))                ? True                                          : False);
 353         $hide_help              =       ((x($_POST,'hide_help'))                ? True                                          : False);
 354         $suppress_language      =       ((x($_POST,'suppress_language'))        ? True                                          : False);
 355         $use_fulltext_engine    =       ((x($_POST,'use_fulltext_engine'))      ? True                                          : False);
 356         $itemcache              =       ((x($_POST,'itemcache'))                ? notags(trim($_POST['itemcache']))             : '');
 357         $itemcache_duration     =       ((x($_POST,'itemcache_duration'))       ? intval($_POST['itemcache_duration'])          : 0);
 358         $max_comments           =       ((x($_POST,'max_comments'))             ? intval($_POST['max_comments'])                : 0);
 359         $lockpath               =       ((x($_POST,'lockpath'))                 ? notags(trim($_POST['lockpath']))              : '');
 360         $temppath               =       ((x($_POST,'temppath'))                 ? notags(trim($_POST['temppath']))              : '');
 361         $basepath               =       ((x($_POST,'basepath'))                 ? notags(trim($_POST['basepath']))              : '');
 362         $singleuser             =       ((x($_POST,'singleuser'))               ? notags(trim($_POST['singleuser']))            : '');
 363         if($ssl_policy != intval(get_config('system','ssl_policy'))) {
 364                 if($ssl_policy == SSL_POLICY_FULL) {
 365                         q("update `contact` set
 366                                 `url`     = replace(`url`    , 'http:' , 'https:'),
 367                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
 368                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:'),
 369                                 `micro`   = replace(`micro`  , 'http:' , 'https:'),
 370                                 `request` = replace(`request`, 'http:' , 'https:'),
 371                                 `notify`  = replace(`notify` , 'http:' , 'https:'),
 372                                 `poll`    = replace(`poll`   , 'http:' , 'https:'),
 373                                 `confirm` = replace(`confirm`, 'http:' , 'https:'),
 374                                 `poco`    = replace(`poco`   , 'http:' , 'https:')
 375                                 where `self` = 1"
 376                         );
 377                         q("update `profile` set
 378                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
 379                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:')
 380                                 where 1 "
 381                         );
 382                 }
 383                 elseif($ssl_policy == SSL_POLICY_SELFSIGN) {
 384                         q("update `contact` set
 385                                 `url`     = replace(`url`    , 'https:' , 'http:'),
 386                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
 387                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:'),
 388                                 `micro`   = replace(`micro`  , 'https:' , 'http:'),
 389                                 `request` = replace(`request`, 'https:' , 'http:'),
 390                                 `notify`  = replace(`notify` , 'https:' , 'http:'),
 391                                 `poll`    = replace(`poll`   , 'https:' , 'http:'),
 392                                 `confirm` = replace(`confirm`, 'https:' , 'http:'),
 393                                 `poco`    = replace(`poco`   , 'https:' , 'http:')
 394                                 where `self` = 1"
 395                         );
 396                         q("update `profile` set
 397                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
 398                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:')
 399                                 where 1 "
 400                         );
 401                 }
 402         }
 403         set_config('system','ssl_policy',$ssl_policy);
 404         set_config('system','delivery_interval',$delivery_interval);
 405         set_config('system','poll_interval',$poll_interval);
 406         set_config('system','maxloadavg',$maxloadavg);
 407         set_config('config','sitename',$sitename);
 408         set_config('system','suppress_language',$suppress_language);
 409         if ($banner==""){
 410                 // don't know why, but del_config doesn't work...
 411                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 412                         dbesc("system"),
 413                         dbesc("banner")
 414                 );
 415         } else {
 416                 set_config('system','banner', $banner);
 417         }
 418         if ($info=="") {
 419             del_config('config','info');
 420         } else {
 421             set_config('config','info',$info);
 422         }
 423         set_config('system','language', $language);
 424         set_config('system','theme', $theme);
 425         if ( $theme_mobile === '---' ) {
 426                 del_config('system','mobile-theme');
 427         } else {
 428                 set_config('system','mobile-theme', $theme_mobile);
 429         }
 430         if ( $singleuser === '---' ) {
 431             del_config('system','singleuser');
 432         } else {
 433             set_config('system','singleuser', $singleuser);
 434         }
 435         set_config('system','maximagesize', $maximagesize);
 436         set_config('system','max_image_length', $maximagelength);
 437         set_config('system','jpeg_quality', $jpegimagequality);
 438
 439         set_config('config','register_policy', $register_policy);
 440         set_config('system','max_daily_registrations', $daily_registrations);
 441         set_config('system','account_abandon_days', $abandon_days);
 442         set_config('config','register_text', $register_text);
 443         set_config('system','allowed_sites', $allowed_sites);
 444         set_config('system','allowed_email', $allowed_email);
 445         set_config('system','block_public', $block_public);
 446         set_config('system','publish_all', $force_publish);
 447         if ($global_directory==""){
 448                 // don't know why, but del_config doesn't work...
 449                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 450                         dbesc("system"),
 451                         dbesc("directory_submit_url")
 452                 );
 453         } else {
 454                 set_config('system','directory_submit_url', $global_directory);
 455         }
 456         set_config('system','thread_allow', $thread_allow);
 457         set_config('system','newuser_private', $newuser_private);
 458         set_config('system','enotify_no_content', $enotify_no_content);
 459         set_config('system','disable_embedded', $disable_embedded);
 460         set_config('system','allow_users_remote_self', $allow_users_remote_self);
 461
 462         set_config('system','block_extended_register', $no_multi_reg);
 463         set_config('system','no_openid', $no_openid);
 464         set_config('system','no_regfullname', $no_regfullname);
 465         set_config('system','no_community_page', $no_community_page);
 466         set_config('system','no_utf', $no_utf);
 467         set_config('system','verifyssl', $verifyssl);
 468         set_config('system','proxyuser', $proxyuser);
 469         set_config('system','proxy', $proxy);
 470         set_config('system','curl_timeout', $timeout);
 471         set_config('system','dfrn_only', $dfrn_only);
 472         set_config('system','ostatus_disabled', $ostatus_disabled);
 473         set_config('system','ostatus_poll_interval', $ostatus_poll_interval);
 474         set_config('system','diaspora_enabled', $diaspora_enabled);
 475         set_config('config','private_addons', $private_addons);
 476
 477         set_config('system','old_share', $old_share);
 478         set_config('system','hide_help', $hide_help);
 479         set_config('system','use_fulltext_engine', $use_fulltext_engine);
 480         set_config('system','itemcache', $itemcache);
 481         set_config('system','itemcache_duration', $itemcache_duration);
 482         set_config('system','max_comments', $max_comments);
 483         set_config('system','lockpath', $lockpath);
 484         set_config('system','temppath', $temppath);
 485         set_config('system','basepath', $basepath);
 486
 487         info( t('Site settings updated.') . EOL);
 488         goaway($a->get_baseurl(true) . '/admin/site' );
 489         return; // NOTREACHED
 490
 491 }
 492
 493 /**
 494  * @param  App $a
 495  * @return string
 496  */
 497 function admin_page_site(&$a) {
 498
 499         /* Installed langs */
 500         $lang_choices = array();
 501         $langs = glob('view/*/strings.php');
 502
 503         if(is_array($langs) && count($langs)) {
 504                 if(! in_array('view/en/strings.php',$langs))
 505                         $langs[] = 'view/en/';
 506                 asort($langs);
 507                 foreach($langs as $l) {
 508                         $t = explode("/",$l);
 509                         $lang_choices[$t[1]] = $t[1];
 510                 }
 511         }
 512
 513         /* Installed themes */
 514         $theme_choices = array();
 515         $theme_choices_mobile = array();
 516         $theme_choices_mobile["---"] = t("No special theme for mobile devices");
 517         $files = glob('view/theme/*');
 518         if($files) {
 519                 foreach($files as $file) {
 520                         $f = basename($file);
 521                         $theme_name = ((file_exists($file . '/experimental')) ?  sprintf("%s - \x28Experimental\x29", $f) : $f);
 522             if (file_exists($file . '/mobile')) {
 523                 $theme_choices_mobile[$f] = $theme_name;
 524             }
 525                 else {
 526                 $theme_choices[$f] = $theme_name;
 527                         }
 528                 }
 529         }
 530
 531         /* OStatus conversation poll choices */
 532         $ostatus_poll_choices = array(
 533                 "-2" => t("Never"),
 534                 "-1" => t("At post arrival"),
 535                 "0" => t("Frequently"),
 536                 "60" => t("Hourly"),
 537                 "720" => t("Twice daily"),
 538                 "1440" => t("Daily")
 539             );
 540
 541         /* get user names to make the install a personal install of X */
 542         $user_names = array();
 543         $user_names['---'] = t('Multi user instance');
 544         $users = q("SELECT username, nickname FROM `user`");
 545         foreach ($users as $user) {
 546             $user_names[$user['nickname']] = $user['username'];
 547         }
 548
 549         /* Banner */
 550         $banner = get_config('system','banner');
 551         if($banner == false)
 552                 $banner = '<a href="http://friendica.com"><img id="logo-img" src="images/friendica-32.png" alt="logo" /></a><span id="logo-text"><a href="http://friendica.com">Friendica</a></span>';
 553         $banner = htmlspecialchars($banner);
 554         $info = get_config('config','info');
 555         $info = htmlspecialchars($info);
 556
 557         // Automatically create temporary paths
 558         get_temppath();
 559         get_lockpath();
 560         get_itemcachepath();
 561
 562         //echo "<pre>"; var_dump($lang_choices); die("</pre>");
 563
 564         /* Register policy */
 565         $register_choices = Array(
 566                 REGISTER_CLOSED => t("Closed"),
 567                 REGISTER_APPROVE => t("Requires approval"),
 568                 REGISTER_OPEN => t("Open")
 569         );
 570
 571         $ssl_choices = array(
 572                 SSL_POLICY_NONE => t("No SSL policy, links will track page SSL state"),
 573                 SSL_POLICY_FULL => t("Force all links to use SSL"),
 574                 SSL_POLICY_SELFSIGN => t("Self-signed certificate, use SSL for local links only (discouraged)")
 575         );
 576
 577         $t = get_markup_template("admin_site.tpl");
 578         return replace_macros($t, array(
 579                 '$title' => t('Administration'),
 580                 '$page' => t('Site'),
 581                 '$submit' => t('Save Settings'),
 582                 '$registration' => t('Registration'),
 583                 '$upload' => t('File upload'),
 584                 '$corporate' => t('Policies'),
 585                 '$advanced' => t('Advanced'),
 586                 '$performance' => t('Performance'),
 587                 '$relocate'=> t('Relocate - WARNING: advanced function. Could make this server unreachable.'),
 588                 '$baseurl' => $a->get_baseurl(true),
 589                 // name, label, value, help string, extra data...
 590                 '$sitename'             => array('sitename', t("Site name"), htmlentities($a->config['sitename'], ENT_QUOTES), 'UTF-8'),
 591                 '$banner'               => array('banner', t("Banner/Logo"), $banner, ""),
 592                 '$info' => array('info',t('Additional Info'), $info, t('For public servers: you can add additional information here that will be listed at dir.friendica.com/siteinfo.')),
 593                 '$language'             => array('language', t("System language"), get_config('system','language'), "", $lang_choices),
 594                 '$theme'                => array('theme', t("System theme"), get_config('system','theme'), t("Default system theme - may be over-ridden by user profiles - <a href='#' id='cnftheme'>change theme settings</a>"), $theme_choices),
 595                 '$theme_mobile'         => array('theme_mobile', t("Mobile system theme"), get_config('system','mobile-theme'), t("Theme for mobile devices"), $theme_choices_mobile),
 596                 '$ssl_policy'           => array('ssl_policy', t("SSL link policy"), (string) intval(get_config('system','ssl_policy')), t("Determines whether generated links should be forced to use SSL"), $ssl_choices),
 597                 '$old_share'            => array('old_share', t("Old style 'Share'"), get_config('system','old_share'), t("Deactivates the bbcode element 'share' for repeating items.")),
 598                 '$hide_help'            => array('hide_help', t("Hide help entry from navigation menu"), get_config('system','hide_help'), t("Hides the menu entry for the Help pages from the navigation menu. You can still access it calling /help directly.")),
 599                 '$singleuser'           => array('singleuser', t("Single user instance"), get_config('system','singleuser'), t("Make this instance multi-user or single-user for the named user"), $user_names),
 600                 '$maximagesize'         => array('maximagesize', t("Maximum image size"), get_config('system','maximagesize'), t("Maximum size in bytes of uploaded images. Default is 0, which means no limits.")),
 601                 '$maximagelength'               => array('maximagelength', t("Maximum image length"), get_config('system','max_image_length'), t("Maximum length in pixels of the longest side of uploaded images. Default is -1, which means no limits.")),
 602                 '$jpegimagequality'             => array('jpegimagequality', t("JPEG image quality"), get_config('system','jpeg_quality'), t("Uploaded JPEGS will be saved at this quality setting [0-100]. Default is 100, which is full quality.")),
 603
 604                 '$register_policy'      => array('register_policy', t("Register policy"), $a->config['register_policy'], "", $register_choices),
 605                 '$daily_registrations'  => array('max_daily_registrations', t("Maximum Daily Registrations"), get_config('system', 'max_daily_registrations'), t("If registration is permitted above, this sets the maximum number of new user registrations to accept per day.  If register is set to closed, this setting has no effect.")),
 606                 '$register_text'        => array('register_text', t("Register text"), htmlentities($a->config['register_text'], ENT_QUOTES, 'UTF-8'), t("Will be displayed prominently on the registration page.")),
 607                 '$abandon_days'         => array('abandon_days', t('Accounts abandoned after x days'), get_config('system','account_abandon_days'), t('Will not waste system resources polling external sites for abandonded accounts. Enter 0 for no time limit.')),
 608                 '$allowed_sites'        => array('allowed_sites', t("Allowed friend domains"), get_config('system','allowed_sites'), t("Comma separated list of domains which are allowed to establish friendships with this site. Wildcards are accepted. Empty to allow any domains")),
 609                 '$allowed_email'        => array('allowed_email', t("Allowed email domains"), get_config('system','allowed_email'), t("Comma separated list of domains which are allowed in email addresses for registrations to this site. Wildcards are accepted. Empty to allow any domains")),
 610                 '$block_public'         => array('block_public', t("Block public"), get_config('system','block_public'), t("Check to block public access to all otherwise public personal pages on this site unless you are currently logged in.")),
 611                 '$force_publish'        => array('publish_all', t("Force publish"), get_config('system','publish_all'), t("Check to force all profiles on this site to be listed in the site directory.")),
 612                 '$global_directory'     => array('directory_submit_url', t("Global directory update URL"), get_config('system','directory_submit_url'), t("URL to update the global directory. If this is not set, the global directory is completely unavailable to the application.")),
 613                 '$thread_allow'         => array('thread_allow', t("Allow threaded items"), get_config('system','thread_allow'), t("Allow infinite level threading for items on this site.")),
 614                 '$newuser_private'      => array('newuser_private', t("Private posts by default for new users"), get_config('system','newuser_private'), t("Set default post permissions for all new members to the default privacy group rather than public.")),
 615                 '$enotify_no_content'   => array('enotify_no_content', t("Don't include post content in email notifications"), get_config('system','enotify_no_content'), t("Don't include the content of a post/comment/private message/etc. in the email notifications that are sent out from this site, as a privacy measure.")),
 616                 '$private_addons'       => array('private_addons', t("Disallow public access to addons listed in the apps menu."), get_config('config','private_addons'), t("Checking this box will restrict addons listed in the apps menu to members only.")),
 617                 '$disable_embedded'     => array('disable_embedded', t("Don't embed private images in posts"), get_config('system','disable_embedded'), t("Don't replace locally-hosted private photos in posts with an embedded copy of the image. This means that contacts who receive posts containing private photos will have to authenticate and load each image, which may take a while.")),
 618                 '$allow_users_remote_self'      => array('allow_users_remote_self', t('Allow Users to set remote_self'), get_config('system','allow_users_remote_self'), t('With checking this, every user is allowed to mark every contact as a remote_self in the repair contact dialog. Setting this flag on a contact causes mirroring every posting of that contact in the users stream.')),
 619                 '$no_multi_reg'         => array('no_multi_reg', t("Block multiple registrations"),  get_config('system','block_extended_register'), t("Disallow users to register additional accounts for use as pages.")),
 620                 '$no_openid'            => array('no_openid', t("OpenID support"), !get_config('system','no_openid'), t("OpenID support for registration and logins.")),
 621                 '$no_regfullname'       => array('no_regfullname', t("Fullname check"), !get_config('system','no_regfullname'), t("Force users to register with a space between firstname and lastname in Full name, as an antispam measure")),
 622                 '$no_utf'               => array('no_utf', t("UTF-8 Regular expressions"), !get_config('system','no_utf'), t("Use PHP UTF8 regular expressions")),
 623                 '$no_community_page'    => array('no_community_page', t("Show Community Page"), !get_config('system','no_community_page'), t("Display a Community page showing all recent public postings on this site.")),
 624                 '$ostatus_disabled'     => array('ostatus_disabled', t("Enable OStatus support"), !get_config('system','ostatus_disabled'), t("Provide built-in OStatus \x28StatusNet, GNU Social etc.\x29 compatibility. All communications in OStatus are public, so privacy warnings will be occasionally displayed.")),
 625                 '$ostatus_poll_interval'        => array('ostatus_poll_interval', t("OStatus conversation completion interval"), (string) intval(get_config('system','ostatus_poll_interval')), t("How often shall the poller check for new entries in OStatus conversations? This can be a very ressource task."), $ostatus_poll_choices),
 626                 '$diaspora_enabled'     => array('diaspora_enabled', t("Enable Diaspora support"), get_config('system','diaspora_enabled'), t("Provide built-in Diaspora network compatibility.")),
 627                 '$dfrn_only'            => array('dfrn_only', t('Only allow Friendica contacts'), get_config('system','dfrn_only'), t("All contacts must use Friendica protocols. All other built-in communication protocols disabled.")),
 628                 '$verifyssl'            => array('verifyssl', t("Verify SSL"), get_config('system','verifyssl'), t("If you wish, you can turn on strict certificate checking. This will mean you cannot connect (at all) to self-signed SSL sites.")),
 629                 '$proxyuser'            => array('proxyuser', t("Proxy user"), get_config('system','proxyuser'), ""),
 630                 '$proxy'                => array('proxy', t("Proxy URL"), get_config('system','proxy'), ""),
 631                 '$timeout'              => array('timeout', t("Network timeout"), (x(get_config('system','curl_timeout'))?get_config('system','curl_timeout'):60), t("Value is in seconds. Set to 0 for unlimited (not recommended).")),
 632                 '$delivery_interval'    => array('delivery_interval', t("Delivery interval"), (x(get_config('system','delivery_interval'))?get_config('system','delivery_interval'):2), t("Delay background delivery processes by this many seconds to reduce system load. Recommend: 4-5 for shared hosts, 2-3 for virtual private servers. 0-1 for large dedicated servers.")),
 633                 '$poll_interval'        => array('poll_interval', t("Poll interval"), (x(get_config('system','poll_interval'))?get_config('system','poll_interval'):2), t("Delay background polling processes by this many seconds to reduce system load. If 0, use delivery interval.")),
 634                 '$maxloadavg'           => array('maxloadavg', t("Maximum Load Average"), ((intval(get_config('system','maxloadavg')) > 0)?get_config('system','maxloadavg'):50), t("Maximum system load before delivery and poll processes are deferred - default 50.")),
 635
 636                 '$use_fulltext_engine'  => array('use_fulltext_engine', t("Use MySQL full text engine"), get_config('system','use_fulltext_engine'), t("Activates the full text engine. Speeds up search - but can only search for four and more characters.")),
 637                 '$suppress_language'    => array('suppress_language', t("Suppress Language"), get_config('system','suppress_language'), t("Suppress language information in meta information about a posting.")),
 638                 '$itemcache'            => array('itemcache', t("Path to item cache"), get_config('system','itemcache'), "The item caches buffers generated bbcode and external images."),
 639                 '$itemcache_duration'   => array('itemcache_duration', t("Cache duration in seconds"), get_config('system','itemcache_duration'), t("How long should the cache files be hold? Default value is 86400 seconds (One day). To disable the item cache, set the value to -1.")),
 640                 '$max_comments'         => array('max_comments', t("Maximum numbers of comments per post"), get_config('system','max_comments'), t("How much comments should be shown for each post? Default value is 100.")),
 641                 '$lockpath'             => array('lockpath', t("Path for lock file"), get_config('system','lockpath'), "The lock file is used to avoid multiple pollers at one time. Only define a folder here."),
 642                 '$temppath'             => array('temppath', t("Temp path"), get_config('system','temppath'), "If you have a restricted system where the webserver can't access the system temp path, enter another path here."),
 643                 '$basepath'             => array('basepath', t("Base path to installation"), get_config('system','basepath'), "If the system cannot detect the correct path to your installation, enter the correct path here. This setting should only be set if you are using a restricted system and symbolic links to your webroot."),
 644
 645                 '$relocate_url'     => array('relocate_url', t("New base url"), $a->get_baseurl(), "Change base url for this server. Sends relocate message to all DFRN contacts of all users."),
 646
 647         '$form_security_token' => get_form_security_token("admin_site"),
 648
 649         ));
 650
 651 }
 652
 653
 654 function admin_page_dbsync(&$a) {
 655
 656         $o = '';
 657
 658         if($a->argc > 3 && intval($a->argv[3]) && $a->argv[2] === 'mark') {
 659                 set_config('database', 'update_' . intval($a->argv[3]), 'success');
 660                 $curr = get_config('system','build');
 661                 if(intval($curr) == intval($a->argv[3]))
 662                         set_config('system','build',intval($curr) + 1);
 663                 info( t('Update has been marked successful') . EOL);
 664                 goaway($a->get_baseurl(true) . '/admin/dbsync');
 665         }
 666
 667         if($a->argc > 2 && intval($a->argv[2])) {
 668                 require_once('update.php');
 669                 $func = 'update_' . intval($a->argv[2]);
 670                 if(function_exists($func)) {
 671                         $retval = $func();
 672                         if($retval === UPDATE_FAILED) {
 673                                 $o .= sprintf( t('Executing %s failed. Check system logs.'), $func);
 674                         }
 675                         elseif($retval === UPDATE_SUCCESS) {
 676                                 $o .= sprintf( t('Update %s was successfully applied.', $func));
 677                                 set_config('database',$func, 'success');
 678                         }
 679                         else
 680                                 $o .= sprintf( t('Update %s did not return a status. Unknown if it succeeded.'), $func);
 681                 }
 682                 else
 683                         $o .= sprintf( t('Update function %s could not be found.'), $func);
 684                 return $o;
 685         }
 686
 687         $failed = array();
 688         $r = q("select k, v from config where `cat` = 'database' ");
 689         if(count($r)) {
 690                 foreach($r as $rr) {
 691                         $upd = intval(substr($rr['k'],7));
 692                         if($upd < 1139 || $rr['v'] === 'success')
 693                                 continue;
 694                         $failed[] = $upd;
 695                 }
 696         }
 697         if(! count($failed))
 698                 return '<h3>' . t('No failed updates.') . '</h3>';
 699
 700         $o = replace_macros(get_markup_template('failed_updates.tpl'),array(
 701                 '$base' => $a->get_baseurl(true),
 702                 '$banner' => t('Failed Updates'),
 703                 '$desc' => t('This does not include updates prior to 1139, which did not return a status.'),
 704                 '$mark' => t('Mark success (if update was manually applied)'),
 705                 '$apply' => t('Attempt to execute this update step automatically'),
 706                 '$failed' => $failed
 707         ));
 708
 709         return $o;
 710
 711 }
 712
 713 /**
 714  * Users admin page
 715  *
 716  * @param App $a
 717  */
 718 function admin_page_users_post(&$a){
 719         $pending = ( x($_POST, 'pending') ? $_POST['pending'] : Array() );
 720         $users = ( x($_POST, 'user') ? $_POST['user'] : Array() );
 721         $nu_name = ( x($_POST, 'new_user_name') ? $_POST['new_user_name'] : '');
 722   $nu_nickname = ( x($_POST, 'new_user_nickname') ? $_POST['new_user_nickname'] : '');
 723   $nu_email = ( x($_POST, 'new_user_email') ? $_POST['new_user_email'] : '');
 724
 725   check_form_security_token_redirectOnErr('/admin/users', 'admin_users');
 726
 727   if (!($nu_name==="") && !($nu_email==="") && !($nu_nickname==="")) {
 728       require_once('include/user.php');
 729       require_once('include/email.php');
 730       $result = create_user( array('username'=>$nu_name, 'email'=>$nu_email, 'nickname'=>$nu_nickname, 'verified'=>1)  );
 731       if(! $result['success']) {
 732                     notice($result['message']);
 733                     return;
 734       }
 735       $nu = $result['user'];
 736       $email_tpl = get_intltext_template("register_adminadd_eml.tpl");
 737       $email_tpl = replace_macros($email_tpl, array(
 738                     '$sitename' => $a->config['sitename'],
 739                     '$siteurl' =>  $a->get_baseurl(),
 740                     '$username' => $nu['username'],
 741                     '$email' => $nu['email'],
 742                     '$password' => $result['password'],
 743                     '$uid' => $nu['uid'] ));
 744
 745       $res = mail($nu['email'], email_header_encode( sprintf( t('Registration details for %s'), $a->config['sitename']),'UTF-8'),
 746                     $email_tpl,
 747                     'From: ' . 'Administrator' . '@' . $_SERVER['SERVER_NAME'] . "\n"
 748                     . 'Content-type: text/plain; charset=UTF-8' . "\n"
 749                     . 'Content-transfer-encoding: 8bit' );
 750       if ($res) {
 751                     info( t('Registration successful. Email send to user').EOL );
 752       }
 753   }
 754
 755         if (x($_POST,'page_users_block')){
 756                 foreach($users as $uid){
 757                         q("UPDATE `user` SET `blocked`=1-`blocked` WHERE `uid`=%s",
 758                                 intval( $uid )
 759                         );
 760                 }
 761                 notice( sprintf( tt("%s user blocked/unblocked", "%s users blocked/unblocked", count($users)), count($users)) );
 762         }
 763         if (x($_POST,'page_users_delete')){
 764                 require_once("include/Contact.php");
 765                 foreach($users as $uid){
 766                         user_remove($uid);
 767                 }
 768                 notice( sprintf( tt("%s user deleted", "%s users deleted", count($users)), count($users)) );
 769         }
 770
 771         if (x($_POST,'page_users_approve')){
 772                 require_once("mod/regmod.php");
 773                 foreach($pending as $hash){
 774                         user_allow($hash);
 775                 }
 776         }
 777         if (x($_POST,'page_users_deny')){
 778                 require_once("mod/regmod.php");
 779                 foreach($pending as $hash){
 780                         user_deny($hash);
 781                 }
 782         }
 783         goaway($a->get_baseurl(true) . '/admin/users' );
 784         return; // NOTREACHED
 785 }
 786
 787 /**
 788  * @param App $a
 789  * @return string
 790  */
 791 function admin_page_users(&$a){
 792         if ($a->argc>2) {
 793                 $uid = $a->argv[3];
 794                 $user = q("SELECT username, blocked FROM `user` WHERE `uid`=%d", intval($uid));
 795                 if (count($user)==0){
 796                         notice( 'User not found' . EOL);
 797                         goaway($a->get_baseurl(true) . '/admin/users' );
 798                         return ''; // NOTREACHED
 799                 }
 800                 switch($a->argv[2]){
 801                         case "delete":{
 802                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
 803                                 // delete user
 804                                 require_once("include/Contact.php");
 805                                 user_remove($uid);
 806
 807                                 notice( sprintf(t("User '%s' deleted"), $user[0]['username']) . EOL);
 808                         }; break;
 809                         case "block":{
 810                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
 811                                 q("UPDATE `user` SET `blocked`=%d WHERE `uid`=%s",
 812                                         intval( 1-$user[0]['blocked'] ),
 813                                         intval( $uid )
 814                                 );
 815                                 notice( sprintf( ($user[0]['blocked']?t("User '%s' unblocked"):t("User '%s' blocked")) , $user[0]['username']) . EOL);
 816                         }; break;
 817                 }
 818                 goaway($a->get_baseurl(true) . '/admin/users' );
 819                 return ''; // NOTREACHED
 820
 821         }
 822
 823         /* get pending */
 824         $pending = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
 825                                  FROM `register`
 826                                  LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
 827                                  LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
 828
 829
 830         /* get users */
 831
 832         $total = q("SELECT count(*) as total FROM `user` where 1");
 833         if(count($total)) {
 834                 $a->set_pager_total($total[0]['total']);
 835                 $a->set_pager_itemspage(100);
 836         }
 837
 838
 839         $users = q("SELECT `user` . * , `contact`.`name` , `contact`.`url` , `contact`.`micro`, `lastitem`.`lastitem_date`, `user`.`account_expired`
 840                                 FROM
 841                                         (SELECT MAX(`item`.`changed`) as `lastitem_date`, `item`.`uid`
 842                                         FROM `item`
 843                                         WHERE `item`.`type` = 'wall'
 844                                         GROUP BY `item`.`uid`) AS `lastitem`
 845                                                  RIGHT OUTER JOIN `user` ON `user`.`uid` = `lastitem`.`uid`,
 846                                            `contact`
 847                                 WHERE
 848                                            `user`.`uid` = `contact`.`uid`
 849                                                 AND `user`.`verified` =1
 850                                         AND `contact`.`self` =1
 851                                 ORDER BY `contact`.`name` LIMIT %d, %d
 852                                 ",
 853                                 intval($a->pager['start']),
 854                                 intval($a->pager['itemspage'])
 855                                 );
 856
 857         function _setup_users($e){
 858                 $a = get_app();
 859
 860                 $adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
 861
 862                 $accounts = Array(
 863                         t('Normal Account'),
 864                         t('Soapbox Account'),
 865                         t('Community/Celebrity Account'),
 866                         t('Automatic Friend Account')
 867                 );
 868                 $e['page-flags'] = $accounts[$e['page-flags']];
 869                 $e['register_date'] = relative_date($e['register_date']);
 870                 $e['login_date'] = relative_date($e['login_date']);
 871                 $e['lastitem_date'] = relative_date($e['lastitem_date']);
 872                 //$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
 873                 $e['is_admin'] = in_array($e['email'], $adminlist);
 874                 $e['deleted'] = ($e['account_removed']?relative_date($e['account_expires_on']):False);
 875                 return $e;
 876         }
 877         $users = array_map("_setup_users", $users);
 878
 879
 880         // Get rid of dashes in key names, Smarty3 can't handle them
 881         // and extracting deleted users
 882
 883         $tmp_users = Array();
 884         $deleted = Array();
 885
 886         while(count($users)) {
 887                 $new_user = Array();
 888                 foreach( array_pop($users) as $k => $v) {
 889                         $k = str_replace('-','_',$k);
 890                         $new_user[$k] = $v;
 891                 }
 892                 if($new_user['deleted']) {
 893                         array_push($deleted, $new_user);
 894                 }
 895                 else {
 896                         array_push($tmp_users, $new_user);
 897                 }
 898         }
 899         //Reversing the two array, and moving $tmp_users to $users
 900         array_reverse($deleted);
 901         while(count($tmp_users)) {
 902                 array_push($users, array_pop($tmp_users));
 903         }
 904
 905         $t = get_markup_template("admin_users.tpl");
 906         $o = replace_macros($t, array(
 907                 // strings //
 908                 '$title' => t('Administration'),
 909                 '$page' => t('Users'),
 910                 '$submit' => t('Add User'),
 911                 '$select_all' => t('select all'),
 912                 '$h_pending' => t('User registrations waiting for confirm'),
 913                 '$h_deleted' => t('User waiting for permanent deletion'),
 914                 '$th_pending' => array( t('Request date'), t('Name'), t('Email') ),
 915                 '$no_pending' =>  t('No registrations.'),
 916                 '$approve' => t('Approve'),
 917                 '$deny' => t('Deny'),
 918                 '$delete' => t('Delete'),
 919                 '$block' => t('Block'),
 920                 '$unblock' => t('Unblock'),
 921         '$siteadmin' => t('Site admin'),
 922         '$accountexpired' => t('Account expired'),
 923
 924                 '$h_users' => t('Users'),
 925                 '$h_newuser' => t('New User'),
 926                 '$th_deleted' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since') ),
 927                 '$th_users' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'),  t('Account') ),
 928
 929                 '$confirm_delete_multi' => t('Selected users will be deleted!\n\nEverything these users had posted on this site will be permanently deleted!\n\nAre you sure?'),
 930                 '$confirm_delete' => t('The user {0} will be deleted!\n\nEverything this user has posted on this site will be permanently deleted!\n\nAre you sure?'),
 931
 932         '$form_security_token' => get_form_security_token("admin_users"),
 933
 934                 // values //
 935                 '$baseurl' => $a->get_baseurl(true),
 936
 937                 '$pending' => $pending,
 938                 'deleted' => $deleted,
 939                 '$users' => $users,
 940                 '$newusername'  => array('new_user_name', t("Name"), '', t("Name of the new user.")),
 941     '$newusernickname'  => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
 942     '$newuseremail'  => array('new_user_email', t("Email"), '', t("Email address of the new user.")),
 943         ));
 944         $o .= paginate($a);
 945         return $o;
 946 }
 947
 948
 949 /**
 950  * Plugins admin page
 951  *
 952  * @param App $a
 953  * @return string
 954  */
 955 function admin_page_plugins(&$a){
 956
 957         /**
 958          * Single plugin
 959          */
 960         if ($a->argc == 3){
 961                 $plugin = $a->argv[2];
 962                 if (!is_file("addon/$plugin/$plugin.php")){
 963                         notice( t("Item not found.") );
 964                         return '';
 965                 }
 966
 967                 if (x($_GET,"a") && $_GET['a']=="t"){
 968                         check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');
 969
 970                         // Toggle plugin status
 971                         $idx = array_search($plugin, $a->plugins);
 972                         if ($idx !== false){
 973                                 unset($a->plugins[$idx]);
 974                                 uninstall_plugin($plugin);
 975                                 info( sprintf( t("Plugin %s disabled."), $plugin ) );
 976                         } else {
 977                                 $a->plugins[] = $plugin;
 978                                 install_plugin($plugin);
 979                                 info( sprintf( t("Plugin %s enabled."), $plugin ) );
 980                         }
 981                         set_config("system","addon", implode(", ",$a->plugins));
 982                         goaway($a->get_baseurl(true) . '/admin/plugins' );
 983                         return ''; // NOTREACHED
 984                 }
 985                 // display plugin details
 986                 require_once('library/markdown.php');
 987
 988                 if (in_array($plugin, $a->plugins)){
 989                         $status="on"; $action= t("Disable");
 990                 } else {
 991                         $status="off"; $action= t("Enable");
 992                 }
 993
 994                 $readme=Null;
 995                 if (is_file("addon/$plugin/README.md")){
 996                         $readme = file_get_contents("addon/$plugin/README.md");
 997                         $readme = Markdown($readme);
 998                 } else if (is_file("addon/$plugin/README")){
 999                         $readme = "<pre>". file_get_contents("addon/$plugin/README") ."</pre>";
1000                 }
1001
1002                 $admin_form="";
1003                 if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)){
1004                         @require_once("addon/$plugin/$plugin.php");
1005                         $func = $plugin.'_plugin_admin';
1006                         $func($a, $admin_form);
1007                 }
1008
1009                 $t = get_markup_template("admin_plugins_details.tpl");
1010
1011                 return replace_macros($t, array(
1012                         '$title' => t('Administration'),
1013                         '$page' => t('Plugins'),
1014                         '$toggle' => t('Toggle'),
1015                         '$settings' => t('Settings'),
1016                         '$baseurl' => $a->get_baseurl(true),
1017
1018                         '$plugin' => $plugin,
1019                         '$status' => $status,
1020                         '$action' => $action,
1021                         '$info' => get_plugin_info($plugin),
1022                         '$str_author' => t('Author: '),
1023                         '$str_maintainer' => t('Maintainer: '),
1024
1025                         '$admin_form' => $admin_form,
1026                         '$function' => 'plugins',
1027                         '$screenshot' => '',
1028                         '$readme' => $readme,
1029
1030                         '$form_security_token' => get_form_security_token("admin_themes"),
1031                 ));
1032         }
1033
1034
1035
1036         /**
1037          * List plugins
1038          */
1039
1040         $plugins = array();
1041         $files = glob("addon/*/"); /* */
1042         if($files) {
1043                 foreach($files as $file) {
1044                         if (is_dir($file)){
1045                                 list($tmp, $id)=array_map("trim", explode("/",$file));
1046                                 $info = get_plugin_info($id);
1047                                 $show_plugin = true;
1048
1049                                 // If the addon is unsupported, then only show it, when it is enabled
1050                                 if ((strtolower($info["status"]) == "unsupported") AND !in_array($id,  $a->plugins))
1051                                         $show_plugin = false;
1052
1053                                 // Override the above szenario, when the admin really wants to see outdated stuff
1054                                 if (get_config("system", "show_unsupported_addons"))
1055                                         $show_plugin = true;
1056
1057                                 if ($show_plugin)
1058                                         $plugins[] = array($id, (in_array($id,  $a->plugins)?"on":"off") , $info);
1059                         }
1060                 }
1061         }
1062
1063         $t = get_markup_template("admin_plugins.tpl");
1064         return replace_macros($t, array(
1065                 '$title' => t('Administration'),
1066                 '$page' => t('Plugins'),
1067                 '$submit' => t('Save Settings'),
1068                 '$baseurl' => $a->get_baseurl(true),
1069                 '$function' => 'plugins',
1070                 '$plugins' => $plugins,
1071         '$form_security_token' => get_form_security_token("admin_themes"),
1072         ));
1073 }
1074
1075 /**
1076  * @param array $themes
1077  * @param string $th
1078  * @param int $result
1079  */
1080 function toggle_theme(&$themes,$th,&$result) {
1081         for($x = 0; $x < count($themes); $x ++) {
1082                 if($themes[$x]['name'] === $th) {
1083                         if($themes[$x]['allowed']) {
1084                                 $themes[$x]['allowed'] = 0;
1085                                 $result = 0;
1086                         }
1087                         else {
1088                                 $themes[$x]['allowed'] = 1;
1089                                 $result = 1;
1090                         }
1091                 }
1092         }
1093 }
1094
1095 /**
1096  * @param array $themes
1097  * @param string $th
1098  * @return int
1099  */
1100 function theme_status($themes,$th) {
1101         for($x = 0; $x < count($themes); $x ++) {
1102                 if($themes[$x]['name'] === $th) {
1103                         if($themes[$x]['allowed']) {
1104                                 return 1;
1105                         }
1106                         else {
1107                                 return 0;
1108                         }
1109                 }
1110         }
1111         return 0;
1112 }
1113
1114
1115 /**
1116  * @param array $themes
1117  * @return string
1118  */
1119 function rebuild_theme_table($themes) {
1120         $o = '';
1121         if(count($themes)) {
1122                 foreach($themes as $th) {
1123                         if($th['allowed']) {
1124                                 if(strlen($o))
1125                                         $o .= ',';
1126                                 $o .= $th['name'];
1127                         }
1128                 }
1129         }
1130         return $o;
1131 }
1132
1133
1134 /**
1135  * Themes admin page
1136  *
1137  * @param App $a
1138  * @return string
1139  */
1140 function admin_page_themes(&$a){
1141
1142         $allowed_themes_str = get_config('system','allowed_themes');
1143         $allowed_themes_raw = explode(',',$allowed_themes_str);
1144         $allowed_themes = array();
1145         if(count($allowed_themes_raw))
1146                 foreach($allowed_themes_raw as $x)
1147                         if(strlen(trim($x)))
1148                                 $allowed_themes[] = trim($x);
1149
1150         $themes = array();
1151         $files = glob('view/theme/*'); /* */
1152         if($files) {
1153                 foreach($files as $file) {
1154                         $f = basename($file);
1155                         $is_experimental = intval(file_exists($file . '/experimental'));
1156                         $is_supported = 1-(intval(file_exists($file . '/unsupported'))); // Is not used yet
1157                         $is_allowed = intval(in_array($f,$allowed_themes));
1158                         $themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
1159                 }
1160         }
1161
1162         if(! count($themes)) {
1163                 notice( t('No themes found.'));
1164                 return '';
1165         }
1166
1167         /**
1168          * Single theme
1169          */
1170
1171         if ($a->argc == 3){
1172                 $theme = $a->argv[2];
1173                 if(! is_dir("view/theme/$theme")){
1174                         notice( t("Item not found.") );
1175                         return '';
1176                 }
1177
1178                 if (x($_GET,"a") && $_GET['a']=="t"){
1179                         check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');
1180
1181                         // Toggle theme status
1182
1183                         toggle_theme($themes,$theme,$result);
1184                         $s = rebuild_theme_table($themes);
1185                         if($result) {
1186                                 install_theme($theme);
1187                                 info( sprintf('Theme %s enabled.',$theme));
1188                         }
1189                         else {
1190                                 uninstall_theme($theme);
1191                                 info( sprintf('Theme %s disabled.',$theme));
1192                         }
1193
1194                         set_config('system','allowed_themes',$s);
1195                         goaway($a->get_baseurl(true) . '/admin/themes' );
1196                         return ''; // NOTREACHED
1197                 }
1198
1199                 // display theme details
1200                 require_once('library/markdown.php');
1201
1202                 if (theme_status($themes,$theme)) {
1203                         $status="on"; $action= t("Disable");
1204                 } else {
1205                         $status="off"; $action= t("Enable");
1206                 }
1207
1208                 $readme=Null;
1209                 if (is_file("view/theme/$theme/README.md")){
1210                         $readme = file_get_contents("view/theme/$theme/README.md");
1211                         $readme = Markdown($readme);
1212                 } else if (is_file("view/theme/$theme/README")){
1213                         $readme = "<pre>". file_get_contents("view/theme/$theme/README") ."</pre>";
1214                 }
1215
1216                 $admin_form="";
1217                 if (is_file("view/theme/$theme/config.php")){
1218                         require_once("view/theme/$theme/config.php");
1219                         if(function_exists("theme_admin")){
1220                                 $admin_form = theme_admin($a);
1221                         }
1222
1223                 }
1224
1225                 $screenshot = array( get_theme_screenshot($theme), t('Screenshot'));
1226                 if(! stristr($screenshot[0],$theme))
1227                         $screenshot = null;
1228
1229                 $t = get_markup_template("admin_plugins_details.tpl");
1230                 return replace_macros($t, array(
1231                         '$title' => t('Administration'),
1232                         '$page' => t('Themes'),
1233                         '$toggle' => t('Toggle'),
1234                         '$settings' => t('Settings'),
1235                         '$baseurl' => $a->get_baseurl(true),
1236
1237                         '$plugin' => $theme,
1238                         '$status' => $status,
1239                         '$action' => $action,
1240                         '$info' => get_theme_info($theme),
1241                         '$function' => 'themes',
1242                         '$admin_form' => $admin_form,
1243                         '$str_author' => t('Author: '),
1244                         '$str_maintainer' => t('Maintainer: '),
1245                         '$screenshot' => $screenshot,
1246                         '$readme' => $readme,
1247
1248                         '$form_security_token' => get_form_security_token("admin_themes"),
1249                 ));
1250         }
1251
1252         /**
1253          * List themes
1254          */
1255
1256         $xthemes = array();
1257         if($themes) {
1258                 foreach($themes as $th) {
1259                         $xthemes[] = array($th['name'],(($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
1260                 }
1261         }
1262
1263         $t = get_markup_template("admin_plugins.tpl");
1264         return replace_macros($t, array(
1265                 '$title' => t('Administration'),
1266                 '$page' => t('Themes'),
1267                 '$submit' => t('Save Settings'),
1268                 '$baseurl' => $a->get_baseurl(true),
1269                 '$function' => 'themes',
1270                 '$plugins' => $xthemes,
1271                 '$experimental' => t('[Experimental]'),
1272                 '$unsupported' => t('[Unsupported]'),
1273         '$form_security_token' => get_form_security_token("admin_themes"),
1274         ));
1275 }
1276
1277
1278 /**
1279  * Logs admin page
1280  *
1281  * @param App $a
1282  */
1283
1284 function admin_page_logs_post(&$a) {
1285         if (x($_POST,"page_logs")) {
1286         check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');
1287
1288                 $logfile                =       ((x($_POST,'logfile'))          ? notags(trim($_POST['logfile']))       : '');
1289                 $debugging              =       ((x($_POST,'debugging'))        ? true                                                          : false);
1290                 $loglevel               =       ((x($_POST,'loglevel'))         ? intval(trim($_POST['loglevel']))      : 0);
1291
1292                 set_config('system','logfile', $logfile);
1293                 set_config('system','debugging',  $debugging);
1294                 set_config('system','loglevel', $loglevel);
1295
1296
1297         }
1298
1299         info( t("Log settings updated.") );
1300         goaway($a->get_baseurl(true) . '/admin/logs' );
1301         return; // NOTREACHED
1302 }
1303
1304 /**
1305  * @param App $a
1306  * @return string
1307  */
1308 function admin_page_logs(&$a){
1309
1310         $log_choices = Array(
1311                 LOGGER_NORMAL => 'Normal',
1312                 LOGGER_TRACE => 'Trace',
1313                 LOGGER_DEBUG => 'Debug',
1314                 LOGGER_DATA => 'Data',
1315                 LOGGER_ALL => 'All'
1316         );
1317
1318         $t = get_markup_template("admin_logs.tpl");
1319
1320         $f = get_config('system','logfile');
1321
1322         $data = '';
1323
1324         if(!file_exists($f)) {
1325                 $data = t("Error trying to open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f exist and is
1326 readable.");
1327         }
1328         else {
1329                 $fp = fopen($f, 'r');
1330                 if(!$fp) {
1331                         $data = t("Couldn't open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f is readable.");
1332                 }
1333                 else {
1334                         $fstat = fstat($fp);
1335                         $size = $fstat['size'];
1336                         if($size != 0)
1337                         {
1338                                 if($size > 5000000 || $size < 0)
1339                                         $size = 5000000;
1340                                 $seek = fseek($fp,0-$size,SEEK_END);
1341                                 if($seek === 0) {
1342                                         $data = escape_tags(fread($fp,$size));
1343                                         while(! feof($fp))
1344                                                 $data .= escape_tags(fread($fp,4096));
1345                                 }
1346                         }
1347                         fclose($fp);
1348                 }
1349         }
1350
1351         return replace_macros($t, array(
1352                 '$title' => t('Administration'),
1353                 '$page' => t('Logs'),
1354                 '$submit' => t('Save Settings'),
1355                 '$clear' => t('Clear'),
1356                 '$data' => $data,
1357                 '$baseurl' => $a->get_baseurl(true),
1358                 '$logname' =>  get_config('system','logfile'),
1359
1360                                                                         // name, label, value, help string, extra data...
1361                 '$debugging'            => array('debugging', t("Enable Debugging"),get_config('system','debugging'), ""),
1362                 '$logfile'                      => array('logfile', t("Log file"), get_config('system','logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
1363                 '$loglevel'             => array('loglevel', t("Log level"), get_config('system','loglevel'), "", $log_choices),
1364
1365         '$form_security_token' => get_form_security_token("admin_logs"),
1366         ));
1367 }
1368
1369 /**
1370  * @param App $a
1371  */
1372 function admin_page_remoteupdate_post(&$a) {
1373         // this function should be called via ajax post
1374         if(!is_site_admin()) {
1375                 return;
1376         }
1377
1378
1379         if (x($_POST,'remotefile') && $_POST['remotefile']!=""){
1380                 $remotefile = $_POST['remotefile'];
1381                 $ftpdata = (x($_POST['ftphost'])?$_POST:false);
1382                 doUpdate($remotefile, $ftpdata);
1383         } else {
1384                 echo "No remote file to download. Abort!";
1385         }
1386
1387         killme();
1388 }
1389
1390 /**
1391  * @param App $a
1392  * @return string
1393  */
1394 function admin_page_remoteupdate(&$a) {
1395         if(!is_site_admin()) {
1396                 return login(false);
1397         }
1398
1399         $canwrite = canWeWrite();
1400         $canftp = function_exists('ftp_connect');
1401
1402         $needupdate = true;
1403         $u = checkUpdate();
1404         if (!is_array($u)){
1405                 $needupdate = false;
1406                 $u = array('','','');
1407         }
1408
1409         $tpl = get_markup_template("admin_remoteupdate.tpl");
1410         return replace_macros($tpl, array(
1411                 '$baseurl' => $a->get_baseurl(true),
1412                 '$submit' => t("Update now"),
1413                 '$close' => t("Close"),
1414                 '$localversion' => FRIENDICA_VERSION,
1415                 '$remoteversion' => $u[1],
1416                 '$needupdate' => $needupdate,
1417                 '$canwrite' => $canwrite,
1418                 '$canftp'       => $canftp,
1419                 '$ftphost'      => array('ftphost', t("FTP Host"), '',''),
1420                 '$ftppath'      => array('ftppath', t("FTP Path"), '/',''),
1421                 '$ftpuser'      => array('ftpuser', t("FTP User"), '',''),
1422                 '$ftppwd'       => array('ftppwd', t("FTP Password"), '',''),
1423                 '$remotefile'=>array('remotefile','', $u['2'],''),
1424         ));
1425
1426 }