mod/admin.php

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