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("unique_contacts", array('url'), $old_url, $new_url);
 287                 update_table("item", array('owner-link','owner-avatar','author-name','author-link','author-avatar','body','plink','tag'), $old_url, $new_url);
 288
 289                 // update config
 290                 $a->set_baseurl($new_url);
 291                 set_config('system','url',$new_url);
 292
 293                 // send relocate
 294                 $users = q("SELECT uid FROM user WHERE account_removed = 0 AND account_expired = 0");
 295
 296                 foreach ($users as $user) {
 297                         proc_run('php', 'include/notifier.php', 'relocate', $user['uid']);
 298                 }
 299
 300                 info("Relocation started. Could take a while to complete.");
 301
 302                 goaway($a->get_baseurl(true) . '/admin/site' );
 303         }
 304         // end relocate
 305
 306         $sitename               =       ((x($_POST,'sitename'))                 ? notags(trim($_POST['sitename']))              : '');
 307         $banner                 =       ((x($_POST,'banner'))                   ? trim($_POST['banner'])                        : false);
 308         $info                   =       ((x($_POST,'info'))                     ? trim($_POST['info'])                  : false);
 309         $language               =       ((x($_POST,'language'))                 ? notags(trim($_POST['language']))              : '');
 310         $theme                  =       ((x($_POST,'theme'))                    ? notags(trim($_POST['theme']))                 : '');
 311         $theme_mobile           =       ((x($_POST,'theme_mobile'))             ? notags(trim($_POST['theme_mobile']))          : '');
 312         $maximagesize           =       ((x($_POST,'maximagesize'))             ? intval(trim($_POST['maximagesize']))          :  0);
 313         $maximagelength         =       ((x($_POST,'maximagelength'))           ? intval(trim($_POST['maximagelength']))        :  MAX_IMAGE_LENGTH);
 314         $jpegimagequality       =       ((x($_POST,'jpegimagequality'))         ? intval(trim($_POST['jpegimagequality']))      :  JPEG_QUALITY);
 315
 316
 317         $register_policy        =       ((x($_POST,'register_policy'))          ? intval(trim($_POST['register_policy']))       :  0);
 318         $daily_registrations    =       ((x($_POST,'max_daily_registrations'))  ? intval(trim($_POST['max_daily_registrations']))       :0);
 319         $abandon_days           =       ((x($_POST,'abandon_days'))             ? intval(trim($_POST['abandon_days']))          :  0);
 320
 321         $register_text          =       ((x($_POST,'register_text'))            ? notags(trim($_POST['register_text']))         : '');
 322
 323         $allowed_sites          =       ((x($_POST,'allowed_sites'))            ? notags(trim($_POST['allowed_sites']))         : '');
 324         $allowed_email          =       ((x($_POST,'allowed_email'))            ? notags(trim($_POST['allowed_email']))         : '');
 325         $block_public           =       ((x($_POST,'block_public'))             ? True                                          : False);
 326         $force_publish          =       ((x($_POST,'publish_all'))              ? True                                          : False);
 327         $global_directory       =       ((x($_POST,'directory_submit_url'))     ? notags(trim($_POST['directory_submit_url']))  : '');
 328         $thread_allow           =       ((x($_POST,'thread_allow'))             ? True                                          : False);
 329         $newuser_private                =       ((x($_POST,'newuser_private'))          ? True                                          : False);
 330         $enotify_no_content             =       ((x($_POST,'enotify_no_content'))       ? True                                          : False);
 331         $private_addons                 =       ((x($_POST,'private_addons'))           ? True                                          : False);
 332         $disable_embedded               =       ((x($_POST,'disable_embedded'))         ? True                                          : False);
 333         $allow_users_remote_self        =       ((x($_POST,'allow_users_remote_self'))          ? True                                          : False);
 334
 335         $no_multi_reg           =       ((x($_POST,'no_multi_reg'))             ? True                                          : False);
 336         $no_openid              =       !((x($_POST,'no_openid'))               ? True                                          : False);
 337         $no_regfullname         =       !((x($_POST,'no_regfullname'))          ? True                                          : False);
 338         $no_utf                 =       !((x($_POST,'no_utf'))                  ? True                                          : False);
 339         $no_community_page      =       !((x($_POST,'no_community_page'))       ? True                                          : False);
 340
 341         $verifyssl              =       ((x($_POST,'verifyssl'))                ? True                                          : False);
 342         $proxyuser              =       ((x($_POST,'proxyuser'))                ? notags(trim($_POST['proxyuser']))             : '');
 343         $proxy                  =       ((x($_POST,'proxy'))                    ? notags(trim($_POST['proxy']))                 : '');
 344         $timeout                =       ((x($_POST,'timeout'))                  ? intval(trim($_POST['timeout']))               : 60);
 345         $delivery_interval      =       ((x($_POST,'delivery_interval'))        ? intval(trim($_POST['delivery_interval']))     : 0);
 346         $poll_interval          =       ((x($_POST,'poll_interval'))            ? intval(trim($_POST['poll_interval']))         : 0);
 347         $maxloadavg             =       ((x($_POST,'maxloadavg'))               ? intval(trim($_POST['maxloadavg']))            : 50);
 348         $dfrn_only              =       ((x($_POST,'dfrn_only'))                ? True                                          : False);
 349         $ostatus_disabled       =       !((x($_POST,'ostatus_disabled'))        ? True                                          : False);
 350         $ostatus_poll_interval  =       ((x($_POST,'ostatus_poll_interval'))    ? intval(trim($_POST['ostatus_poll_interval']))         :  0);
 351         $diaspora_enabled       =       ((x($_POST,'diaspora_enabled'))         ? True                                          : False);
 352         $ssl_policy             =       ((x($_POST,'ssl_policy'))               ? intval($_POST['ssl_policy'])                  : 0);
 353         $old_share              =       ((x($_POST,'old_share'))                ? True                                          : False);
 354         $hide_help              =       ((x($_POST,'hide_help'))                ? True                                          : False);
 355         $suppress_language      =       ((x($_POST,'suppress_language'))        ? True                                          : False);
 356         $use_fulltext_engine    =       ((x($_POST,'use_fulltext_engine'))      ? True                                          : False);
 357         $itemcache              =       ((x($_POST,'itemcache'))                ? notags(trim($_POST['itemcache']))             : '');
 358         $itemcache_duration     =       ((x($_POST,'itemcache_duration'))       ? intval($_POST['itemcache_duration'])          : 0);
 359         $max_comments           =       ((x($_POST,'max_comments'))             ? intval($_POST['max_comments'])                : 0);
 360         $lockpath               =       ((x($_POST,'lockpath'))                 ? notags(trim($_POST['lockpath']))              : '');
 361         $temppath               =       ((x($_POST,'temppath'))                 ? notags(trim($_POST['temppath']))              : '');
 362         $basepath               =       ((x($_POST,'basepath'))                 ? notags(trim($_POST['basepath']))              : '');
 363         $singleuser             =       ((x($_POST,'singleuser'))               ? notags(trim($_POST['singleuser']))            : '');
 364         $proxy_disabled         =       ((x($_POST,'proxy_disabled'))           ? True                                          : False);
 365         if($ssl_policy != intval(get_config('system','ssl_policy'))) {
 366                 if($ssl_policy == SSL_POLICY_FULL) {
 367                         q("update `contact` set
 368                                 `url`     = replace(`url`    , 'http:' , 'https:'),
 369                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
 370                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:'),
 371                                 `micro`   = replace(`micro`  , 'http:' , 'https:'),
 372                                 `request` = replace(`request`, 'http:' , 'https:'),
 373                                 `notify`  = replace(`notify` , 'http:' , 'https:'),
 374                                 `poll`    = replace(`poll`   , 'http:' , 'https:'),
 375                                 `confirm` = replace(`confirm`, 'http:' , 'https:'),
 376                                 `poco`    = replace(`poco`   , 'http:' , 'https:')
 377                                 where `self` = 1"
 378                         );
 379                         q("update `profile` set
 380                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
 381                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:')
 382                                 where 1 "
 383                         );
 384                 }
 385                 elseif($ssl_policy == SSL_POLICY_SELFSIGN) {
 386                         q("update `contact` set
 387                                 `url`     = replace(`url`    , 'https:' , 'http:'),
 388                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
 389                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:'),
 390                                 `micro`   = replace(`micro`  , 'https:' , 'http:'),
 391                                 `request` = replace(`request`, 'https:' , 'http:'),
 392                                 `notify`  = replace(`notify` , 'https:' , 'http:'),
 393                                 `poll`    = replace(`poll`   , 'https:' , 'http:'),
 394                                 `confirm` = replace(`confirm`, 'https:' , 'http:'),
 395                                 `poco`    = replace(`poco`   , 'https:' , 'http:')
 396                                 where `self` = 1"
 397                         );
 398                         q("update `profile` set
 399                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
 400                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:')
 401                                 where 1 "
 402                         );
 403                 }
 404         }
 405         set_config('system','ssl_policy',$ssl_policy);
 406         set_config('system','delivery_interval',$delivery_interval);
 407         set_config('system','poll_interval',$poll_interval);
 408         set_config('system','maxloadavg',$maxloadavg);
 409         set_config('config','sitename',$sitename);
 410         set_config('system','suppress_language',$suppress_language);
 411         if ($banner==""){
 412                 // don't know why, but del_config doesn't work...
 413                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 414                         dbesc("system"),
 415                         dbesc("banner")
 416                 );
 417         } else {
 418                 set_config('system','banner', $banner);
 419         }
 420         if ($info=="") {
 421             del_config('config','info');
 422         } else {
 423             set_config('config','info',$info);
 424         }
 425         set_config('system','language', $language);
 426         set_config('system','theme', $theme);
 427         if ( $theme_mobile === '---' ) {
 428                 del_config('system','mobile-theme');
 429         } else {
 430                 set_config('system','mobile-theme', $theme_mobile);
 431         }
 432         if ( $singleuser === '---' ) {
 433             del_config('system','singleuser');
 434         } else {
 435             set_config('system','singleuser', $singleuser);
 436         }
 437         set_config('system','maximagesize', $maximagesize);
 438         set_config('system','max_image_length', $maximagelength);
 439         set_config('system','jpeg_quality', $jpegimagequality);
 440
 441         set_config('config','register_policy', $register_policy);
 442         set_config('system','max_daily_registrations', $daily_registrations);
 443         set_config('system','account_abandon_days', $abandon_days);
 444         set_config('config','register_text', $register_text);
 445         set_config('system','allowed_sites', $allowed_sites);
 446         set_config('system','allowed_email', $allowed_email);
 447         set_config('system','block_public', $block_public);
 448         set_config('system','publish_all', $force_publish);
 449         if ($global_directory==""){
 450                 // don't know why, but del_config doesn't work...
 451                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 452                         dbesc("system"),
 453                         dbesc("directory_submit_url")
 454                 );
 455         } else {
 456                 set_config('system','directory_submit_url', $global_directory);
 457         }
 458         set_config('system','thread_allow', $thread_allow);
 459         set_config('system','newuser_private', $newuser_private);
 460         set_config('system','enotify_no_content', $enotify_no_content);
 461         set_config('system','disable_embedded', $disable_embedded);
 462         set_config('system','allow_users_remote_self', $allow_users_remote_self);
 463
 464         set_config('system','block_extended_register', $no_multi_reg);
 465         set_config('system','no_openid', $no_openid);
 466         set_config('system','no_regfullname', $no_regfullname);
 467         set_config('system','no_community_page', $no_community_page);
 468         set_config('system','no_utf', $no_utf);
 469         set_config('system','verifyssl', $verifyssl);
 470         set_config('system','proxyuser', $proxyuser);
 471         set_config('system','proxy', $proxy);
 472         set_config('system','curl_timeout', $timeout);
 473         set_config('system','dfrn_only', $dfrn_only);
 474         set_config('system','ostatus_disabled', $ostatus_disabled);
 475         set_config('system','ostatus_poll_interval', $ostatus_poll_interval);
 476         set_config('system','diaspora_enabled', $diaspora_enabled);
 477         set_config('config','private_addons', $private_addons);
 478
 479         set_config('system','old_share', $old_share);
 480         set_config('system','hide_help', $hide_help);
 481         set_config('system','use_fulltext_engine', $use_fulltext_engine);
 482         set_config('system','itemcache', $itemcache);
 483         set_config('system','itemcache_duration', $itemcache_duration);
 484         set_config('system','max_comments', $max_comments);
 485         set_config('system','lockpath', $lockpath);
 486         set_config('system','temppath', $temppath);
 487         set_config('system','basepath', $basepath);
 488         set_config('system','proxy_disabled', $proxy_disabled);
 489
 490         info( t('Site settings updated.') . EOL);
 491         goaway($a->get_baseurl(true) . '/admin/site' );
 492         return; // NOTREACHED
 493
 494 }
 495
 496 /**
 497  * @param  App $a
 498  * @return string
 499  */
 500 function admin_page_site(&$a) {
 501
 502         /* Installed langs */
 503         $lang_choices = array();
 504         $langs = glob('view/*/strings.php');
 505
 506         if(is_array($langs) && count($langs)) {
 507                 if(! in_array('view/en/strings.php',$langs))
 508                         $langs[] = 'view/en/';
 509                 asort($langs);
 510                 foreach($langs as $l) {
 511                         $t = explode("/",$l);
 512                         $lang_choices[$t[1]] = $t[1];
 513                 }
 514         }
 515
 516         /* Installed themes */
 517         $theme_choices = array();
 518         $theme_choices_mobile = array();
 519         $theme_choices_mobile["---"] = t("No special theme for mobile devices");
 520         $files = glob('view/theme/*');
 521         if($files) {
 522                 foreach($files as $file) {
 523                         $f = basename($file);
 524                         $theme_name = ((file_exists($file . '/experimental')) ?  sprintf("%s - \x28Experimental\x29", $f) : $f);
 525             if (file_exists($file . '/mobile')) {
 526                 $theme_choices_mobile[$f] = $theme_name;
 527             }
 528                 else {
 529                 $theme_choices[$f] = $theme_name;
 530                         }
 531                 }
 532         }
 533
 534         /* OStatus conversation poll choices */
 535         $ostatus_poll_choices = array(
 536                 "-2" => t("Never"),
 537                 "-1" => t("At post arrival"),
 538                 "0" => t("Frequently"),
 539                 "60" => t("Hourly"),
 540                 "720" => t("Twice daily"),
 541                 "1440" => t("Daily")
 542             );
 543
 544         /* get user names to make the install a personal install of X */
 545         $user_names = array();
 546         $user_names['---'] = t('Multi user instance');
 547         $users = q("SELECT username, nickname FROM `user`");
 548         foreach ($users as $user) {
 549             $user_names[$user['nickname']] = $user['username'];
 550         }
 551
 552         /* Banner */
 553         $banner = get_config('system','banner');
 554         if($banner == false)
 555                 $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>';
 556         $banner = htmlspecialchars($banner);
 557         $info = get_config('config','info');
 558         $info = htmlspecialchars($info);
 559
 560         // Automatically create temporary paths
 561         get_temppath();
 562         get_lockpath();
 563         get_itemcachepath();
 564
 565         //echo "<pre>"; var_dump($lang_choices); die("</pre>");
 566
 567         /* Register policy */
 568         $register_choices = Array(
 569                 REGISTER_CLOSED => t("Closed"),
 570                 REGISTER_APPROVE => t("Requires approval"),
 571                 REGISTER_OPEN => t("Open")
 572         );
 573
 574         $ssl_choices = array(
 575                 SSL_POLICY_NONE => t("No SSL policy, links will track page SSL state"),
 576                 SSL_POLICY_FULL => t("Force all links to use SSL"),
 577                 SSL_POLICY_SELFSIGN => t("Self-signed certificate, use SSL for local links only (discouraged)")
 578         );
 579
 580         $t = get_markup_template("admin_site.tpl");
 581         return replace_macros($t, array(
 582                 '$title' => t('Administration'),
 583                 '$page' => t('Site'),
 584                 '$submit' => t('Save Settings'),
 585                 '$registration' => t('Registration'),
 586                 '$upload' => t('File upload'),
 587                 '$corporate' => t('Policies'),
 588                 '$advanced' => t('Advanced'),
 589                 '$performance' => t('Performance'),
 590                 '$relocate'=> t('Relocate - WARNING: advanced function. Could make this server unreachable.'),
 591                 '$baseurl' => $a->get_baseurl(true),
 592                 // name, label, value, help string, extra data...
 593                 '$sitename'             => array('sitename', t("Site name"), htmlentities($a->config['sitename'], ENT_QUOTES), 'UTF-8'),
 594                 '$banner'               => array('banner', t("Banner/Logo"), $banner, ""),
 595                 '$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.')),
 596                 '$language'             => array('language', t("System language"), get_config('system','language'), "", $lang_choices),
 597                 '$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),
 598                 '$theme_mobile'         => array('theme_mobile', t("Mobile system theme"), get_config('system','mobile-theme'), t("Theme for mobile devices"), $theme_choices_mobile),
 599                 '$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),
 600                 '$old_share'            => array('old_share', t("Old style 'Share'"), get_config('system','old_share'), t("Deactivates the bbcode element 'share' for repeating items.")),
 601                 '$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.")),
 602                 '$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),
 603                 '$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.")),
 604                 '$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.")),
 605                 '$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.")),
 606
 607                 '$register_policy'      => array('register_policy', t("Register policy"), $a->config['register_policy'], "", $register_choices),
 608                 '$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.")),
 609                 '$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.")),
 610                 '$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.')),
 611                 '$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")),
 612                 '$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")),
 613                 '$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.")),
 614                 '$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.")),
 615                 '$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.")),
 616                 '$thread_allow'         => array('thread_allow', t("Allow threaded items"), get_config('system','thread_allow'), t("Allow infinite level threading for items on this site.")),
 617                 '$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.")),
 618                 '$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.")),
 619                 '$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.")),
 620                 '$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.")),
 621                 '$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.')),
 622                 '$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.")),
 623                 '$no_openid'            => array('no_openid', t("OpenID support"), !get_config('system','no_openid'), t("OpenID support for registration and logins.")),
 624                 '$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")),
 625                 '$no_utf'               => array('no_utf', t("UTF-8 Regular expressions"), !get_config('system','no_utf'), t("Use PHP UTF8 regular expressions")),
 626                 '$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.")),
 627                 '$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.")),
 628                 '$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),
 629                 '$diaspora_enabled'     => array('diaspora_enabled', t("Enable Diaspora support"), get_config('system','diaspora_enabled'), t("Provide built-in Diaspora network compatibility.")),
 630                 '$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.")),
 631                 '$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.")),
 632                 '$proxyuser'            => array('proxyuser', t("Proxy user"), get_config('system','proxyuser'), ""),
 633                 '$proxy'                => array('proxy', t("Proxy URL"), get_config('system','proxy'), ""),
 634                 '$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).")),
 635                 '$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.")),
 636                 '$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.")),
 637                 '$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.")),
 638
 639                 '$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.")),
 640                 '$suppress_language'    => array('suppress_language', t("Suppress Language"), get_config('system','suppress_language'), t("Suppress language information in meta information about a posting.")),
 641                 '$itemcache'            => array('itemcache', t("Path to item cache"), get_config('system','itemcache'), "The item caches buffers generated bbcode and external images."),
 642                 '$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.")),
 643                 '$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.")),
 644                 '$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."),
 645                 '$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."),
 646                 '$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."),
 647                 '$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.")),
 648
 649                 '$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."),
 650
 651         '$form_security_token' => get_form_security_token("admin_site"),
 652
 653         ));
 654
 655 }
 656
 657
 658 function admin_page_dbsync(&$a) {
 659
 660         $o = '';
 661
 662         if($a->argc > 3 && intval($a->argv[3]) && $a->argv[2] === 'mark') {
 663                 set_config('database', 'update_' . intval($a->argv[3]), 'success');
 664                 $curr = get_config('system','build');
 665                 if(intval($curr) == intval($a->argv[3]))
 666                         set_config('system','build',intval($curr) + 1);
 667                 info( t('Update has been marked successful') . EOL);
 668                 goaway($a->get_baseurl(true) . '/admin/dbsync');
 669         }
 670
 671         if($a->argc > 2 && intval($a->argv[2])) {
 672                 require_once('update.php');
 673                 $func = 'update_' . intval($a->argv[2]);
 674                 if(function_exists($func)) {
 675                         $retval = $func();
 676                         if($retval === UPDATE_FAILED) {
 677                                 $o .= sprintf( t('Executing %s failed. Check system logs.'), $func);
 678                         }
 679                         elseif($retval === UPDATE_SUCCESS) {
 680                                 $o .= sprintf( t('Update %s was successfully applied.', $func));
 681                                 set_config('database',$func, 'success');
 682                         }
 683                         else
 684                                 $o .= sprintf( t('Update %s did not return a status. Unknown if it succeeded.'), $func);
 685                 }
 686                 else
 687                         $o .= sprintf( t('Update function %s could not be found.'), $func);
 688                 return $o;
 689         }
 690
 691         $failed = array();
 692         $r = q("select k, v from config where `cat` = 'database' ");
 693         if(count($r)) {
 694                 foreach($r as $rr) {
 695                         $upd = intval(substr($rr['k'],7));
 696                         if($upd < 1139 || $rr['v'] === 'success')
 697                                 continue;
 698                         $failed[] = $upd;
 699                 }
 700         }
 701         if(! count($failed))
 702                 return '<h3>' . t('No failed updates.') . '</h3>';
 703
 704         $o = replace_macros(get_markup_template('failed_updates.tpl'),array(
 705                 '$base' => $a->get_baseurl(true),
 706                 '$banner' => t('Failed Updates'),
 707                 '$desc' => t('This does not include updates prior to 1139, which did not return a status.'),
 708                 '$mark' => t('Mark success (if update was manually applied)'),
 709                 '$apply' => t('Attempt to execute this update step automatically'),
 710                 '$failed' => $failed
 711         ));
 712
 713         return $o;
 714
 715 }
 716
 717 /**
 718  * Users admin page
 719  *
 720  * @param App $a
 721  */
 722 function admin_page_users_post(&$a){
 723         $pending = ( x($_POST, 'pending') ? $_POST['pending'] : Array() );
 724         $users = ( x($_POST, 'user') ? $_POST['user'] : Array() );
 725         $nu_name = ( x($_POST, 'new_user_name') ? $_POST['new_user_name'] : '');
 726   $nu_nickname = ( x($_POST, 'new_user_nickname') ? $_POST['new_user_nickname'] : '');
 727   $nu_email = ( x($_POST, 'new_user_email') ? $_POST['new_user_email'] : '');
 728
 729   check_form_security_token_redirectOnErr('/admin/users', 'admin_users');
 730
 731   if (!($nu_name==="") && !($nu_email==="") && !($nu_nickname==="")) {
 732       require_once('include/user.php');
 733       require_once('include/email.php');
 734       $result = create_user( array('username'=>$nu_name, 'email'=>$nu_email, 'nickname'=>$nu_nickname, 'verified'=>1)  );
 735       if(! $result['success']) {
 736                     notice($result['message']);
 737                     return;
 738       }
 739       $nu = $result['user'];
 740       $email_tpl = get_intltext_template("register_adminadd_eml.tpl");
 741       $email_tpl = replace_macros($email_tpl, array(
 742                     '$sitename' => $a->config['sitename'],
 743                     '$siteurl' =>  $a->get_baseurl(),
 744                     '$username' => $nu['username'],
 745                     '$email' => $nu['email'],
 746                     '$password' => $result['password'],
 747                     '$uid' => $nu['uid'] ));
 748
 749       $res = mail($nu['email'], email_header_encode( sprintf( t('Registration details for %s'), $a->config['sitename']),'UTF-8'),
 750                     $email_tpl,
 751                     'From: ' . 'Administrator' . '@' . $_SERVER['SERVER_NAME'] . "\n"
 752                     . 'Content-type: text/plain; charset=UTF-8' . "\n"
 753                     . 'Content-transfer-encoding: 8bit' );
 754       if ($res) {
 755                     info( t('Registration successful. Email send to user').EOL );
 756       }
 757   }
 758
 759         if (x($_POST,'page_users_block')){
 760                 foreach($users as $uid){
 761                         q("UPDATE `user` SET `blocked`=1-`blocked` WHERE `uid`=%s",
 762                                 intval( $uid )
 763                         );
 764                 }
 765                 notice( sprintf( tt("%s user blocked/unblocked", "%s users blocked/unblocked", count($users)), count($users)) );
 766         }
 767         if (x($_POST,'page_users_delete')){
 768                 require_once("include/Contact.php");
 769                 foreach($users as $uid){
 770                         user_remove($uid);
 771                 }
 772                 notice( sprintf( tt("%s user deleted", "%s users deleted", count($users)), count($users)) );
 773         }
 774
 775         if (x($_POST,'page_users_approve')){
 776                 require_once("mod/regmod.php");
 777                 foreach($pending as $hash){
 778                         user_allow($hash);
 779                 }
 780         }
 781         if (x($_POST,'page_users_deny')){
 782                 require_once("mod/regmod.php");
 783                 foreach($pending as $hash){
 784                         user_deny($hash);
 785                 }
 786         }
 787         goaway($a->get_baseurl(true) . '/admin/users' );
 788         return; // NOTREACHED
 789 }
 790
 791 /**
 792  * @param App $a
 793  * @return string
 794  */
 795 function admin_page_users(&$a){
 796         if ($a->argc>2) {
 797                 $uid = $a->argv[3];
 798                 $user = q("SELECT username, blocked FROM `user` WHERE `uid`=%d", intval($uid));
 799                 if (count($user)==0){
 800                         notice( 'User not found' . EOL);
 801                         goaway($a->get_baseurl(true) . '/admin/users' );
 802                         return ''; // NOTREACHED
 803                 }
 804                 switch($a->argv[2]){
 805                         case "delete":{
 806                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
 807                                 // delete user
 808                                 require_once("include/Contact.php");
 809                                 user_remove($uid);
 810
 811                                 notice( sprintf(t("User '%s' deleted"), $user[0]['username']) . EOL);
 812                         }; break;
 813                         case "block":{
 814                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
 815                                 q("UPDATE `user` SET `blocked`=%d WHERE `uid`=%s",
 816                                         intval( 1-$user[0]['blocked'] ),
 817                                         intval( $uid )
 818                                 );
 819                                 notice( sprintf( ($user[0]['blocked']?t("User '%s' unblocked"):t("User '%s' blocked")) , $user[0]['username']) . EOL);
 820                         }; break;
 821                 }
 822                 goaway($a->get_baseurl(true) . '/admin/users' );
 823                 return ''; // NOTREACHED
 824
 825         }
 826
 827         /* get pending */
 828         $pending = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
 829                                  FROM `register`
 830                                  LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
 831                                  LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
 832
 833
 834         /* get users */
 835
 836         $total = q("SELECT count(*) as total FROM `user` where 1");
 837         if(count($total)) {
 838                 $a->set_pager_total($total[0]['total']);
 839                 $a->set_pager_itemspage(100);
 840         }
 841
 842
 843         $users = q("SELECT `user` . * , `contact`.`name` , `contact`.`url` , `contact`.`micro`, `lastitem`.`lastitem_date`, `user`.`account_expired`
 844                                 FROM
 845                                         (SELECT MAX(`item`.`changed`) as `lastitem_date`, `item`.`uid`
 846                                         FROM `item`
 847                                         WHERE `item`.`type` = 'wall'
 848                                         GROUP BY `item`.`uid`) AS `lastitem`
 849                                                  RIGHT OUTER JOIN `user` ON `user`.`uid` = `lastitem`.`uid`,
 850                                            `contact`
 851                                 WHERE
 852                                            `user`.`uid` = `contact`.`uid`
 853                                                 AND `user`.`verified` =1
 854                                         AND `contact`.`self` =1
 855                                 ORDER BY `contact`.`name` LIMIT %d, %d
 856                                 ",
 857                                 intval($a->pager['start']),
 858                                 intval($a->pager['itemspage'])
 859                                 );
 860
 861         function _setup_users($e){
 862                 $a = get_app();
 863
 864                 $adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
 865
 866                 $accounts = Array(
 867                         t('Normal Account'),
 868                         t('Soapbox Account'),
 869                         t('Community/Celebrity Account'),
 870                         t('Automatic Friend Account')
 871                 );
 872                 $e['page-flags'] = $accounts[$e['page-flags']];
 873                 $e['register_date'] = relative_date($e['register_date']);
 874                 $e['login_date'] = relative_date($e['login_date']);
 875                 $e['lastitem_date'] = relative_date($e['lastitem_date']);
 876                 //$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
 877                 $e['is_admin'] = in_array($e['email'], $adminlist);
 878                 $e['deleted'] = ($e['account_removed']?relative_date($e['account_expires_on']):False);
 879                 return $e;
 880         }
 881         $users = array_map("_setup_users", $users);
 882
 883
 884         // Get rid of dashes in key names, Smarty3 can't handle them
 885         // and extracting deleted users
 886
 887         $tmp_users = Array();
 888         $deleted = Array();
 889
 890         while(count($users)) {
 891                 $new_user = Array();
 892                 foreach( array_pop($users) as $k => $v) {
 893                         $k = str_replace('-','_',$k);
 894                         $new_user[$k] = $v;
 895                 }
 896                 if($new_user['deleted']) {
 897                         array_push($deleted, $new_user);
 898                 }
 899                 else {
 900                         array_push($tmp_users, $new_user);
 901                 }
 902         }
 903         //Reversing the two array, and moving $tmp_users to $users
 904         array_reverse($deleted);
 905         while(count($tmp_users)) {
 906                 array_push($users, array_pop($tmp_users));
 907         }
 908
 909         $t = get_markup_template("admin_users.tpl");
 910         $o = replace_macros($t, array(
 911                 // strings //
 912                 '$title' => t('Administration'),
 913                 '$page' => t('Users'),
 914                 '$submit' => t('Add User'),
 915                 '$select_all' => t('select all'),
 916                 '$h_pending' => t('User registrations waiting for confirm'),
 917                 '$h_deleted' => t('User waiting for permanent deletion'),
 918                 '$th_pending' => array( t('Request date'), t('Name'), t('Email') ),
 919                 '$no_pending' =>  t('No registrations.'),
 920                 '$approve' => t('Approve'),
 921                 '$deny' => t('Deny'),
 922                 '$delete' => t('Delete'),
 923                 '$block' => t('Block'),
 924                 '$unblock' => t('Unblock'),
 925                 '$siteadmin' => t('Site admin'),
 926                 '$accountexpired' => t('Account expired'),
 927
 928                 '$h_users' => t('Users'),
 929                 '$h_newuser' => t('New User'),
 930                 '$th_deleted' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since') ),
 931                 '$th_users' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'),  t('Account') ),
 932
 933                 '$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?'),
 934                 '$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?'),
 935
 936                 '$form_security_token' => get_form_security_token("admin_users"),
 937
 938                 // values //
 939                 '$baseurl' => $a->get_baseurl(true),
 940
 941                 '$pending' => $pending,
 942                 'deleted' => $deleted,
 943                 '$users' => $users,
 944                 '$newusername'  => array('new_user_name', t("Name"), '', t("Name of the new user.")),
 945                 '$newusernickname'  => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
 946                 '$newuseremail'  => array('new_user_email', t("Email"), '', t("Email address of the new user.")),
 947         ));
 948         $o .= paginate($a);
 949         return $o;
 950 }
 951
 952
 953 /**
 954  * Plugins admin page
 955  *
 956  * @param App $a
 957  * @return string
 958  */
 959 function admin_page_plugins(&$a){
 960
 961         /**
 962          * Single plugin
 963          */
 964         if ($a->argc == 3){
 965                 $plugin = $a->argv[2];
 966                 if (!is_file("addon/$plugin/$plugin.php")){
 967                         notice( t("Item not found.") );
 968                         return '';
 969                 }
 970
 971                 if (x($_GET,"a") && $_GET['a']=="t"){
 972                         check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');
 973
 974                         // Toggle plugin status
 975                         $idx = array_search($plugin, $a->plugins);
 976                         if ($idx !== false){
 977                                 unset($a->plugins[$idx]);
 978                                 uninstall_plugin($plugin);
 979                                 info( sprintf( t("Plugin %s disabled."), $plugin ) );
 980                         } else {
 981                                 $a->plugins[] = $plugin;
 982                                 install_plugin($plugin);
 983                                 info( sprintf( t("Plugin %s enabled."), $plugin ) );
 984                         }
 985                         set_config("system","addon", implode(", ",$a->plugins));
 986                         goaway($a->get_baseurl(true) . '/admin/plugins' );
 987                         return ''; // NOTREACHED
 988                 }
 989                 // display plugin details
 990                 require_once('library/markdown.php');
 991
 992                 if (in_array($plugin, $a->plugins)){
 993                         $status="on"; $action= t("Disable");
 994                 } else {
 995                         $status="off"; $action= t("Enable");
 996                 }
 997
 998                 $readme=Null;
 999                 if (is_file("addon/$plugin/README.md")){
1000                         $readme = file_get_contents("addon/$plugin/README.md");
1001                         $readme = Markdown($readme);
1002                 } else if (is_file("addon/$plugin/README")){
1003                         $readme = "<pre>". file_get_contents("addon/$plugin/README") ."</pre>";
1004                 }
1005
1006                 $admin_form="";
1007                 if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)){
1008                         @require_once("addon/$plugin/$plugin.php");
1009                         $func = $plugin.'_plugin_admin';
1010                         $func($a, $admin_form);
1011                 }
1012
1013                 $t = get_markup_template("admin_plugins_details.tpl");
1014
1015                 return replace_macros($t, array(
1016                         '$title' => t('Administration'),
1017                         '$page' => t('Plugins'),
1018                         '$toggle' => t('Toggle'),
1019                         '$settings' => t('Settings'),
1020                         '$baseurl' => $a->get_baseurl(true),
1021
1022                         '$plugin' => $plugin,
1023                         '$status' => $status,
1024                         '$action' => $action,
1025                         '$info' => get_plugin_info($plugin),
1026                         '$str_author' => t('Author: '),
1027                         '$str_maintainer' => t('Maintainer: '),
1028
1029                         '$admin_form' => $admin_form,
1030                         '$function' => 'plugins',
1031                         '$screenshot' => '',
1032                         '$readme' => $readme,
1033
1034                         '$form_security_token' => get_form_security_token("admin_themes"),
1035                 ));
1036         }
1037
1038
1039
1040         /**
1041          * List plugins
1042          */
1043
1044         $plugins = array();
1045         $files = glob("addon/*/"); /* */
1046         if($files) {
1047                 foreach($files as $file) {
1048                         if (is_dir($file)){
1049                                 list($tmp, $id)=array_map("trim", explode("/",$file));
1050                                 $info = get_plugin_info($id);
1051                                 $show_plugin = true;
1052
1053                                 // If the addon is unsupported, then only show it, when it is enabled
1054                                 if ((strtolower($info["status"]) == "unsupported") AND !in_array($id,  $a->plugins))
1055                                         $show_plugin = false;
1056
1057                                 // Override the above szenario, when the admin really wants to see outdated stuff
1058                                 if (get_config("system", "show_unsupported_addons"))
1059                                         $show_plugin = true;
1060
1061                                 if ($show_plugin)
1062                                         $plugins[] = array($id, (in_array($id,  $a->plugins)?"on":"off") , $info);
1063                         }
1064                 }
1065         }
1066
1067         $t = get_markup_template("admin_plugins.tpl");
1068         return replace_macros($t, array(
1069                 '$title' => t('Administration'),
1070                 '$page' => t('Plugins'),
1071                 '$submit' => t('Save Settings'),
1072                 '$baseurl' => $a->get_baseurl(true),
1073                 '$function' => 'plugins',
1074                 '$plugins' => $plugins,
1075         '$form_security_token' => get_form_security_token("admin_themes"),
1076         ));
1077 }
1078
1079 /**
1080  * @param array $themes
1081  * @param string $th
1082  * @param int $result
1083  */
1084 function toggle_theme(&$themes,$th,&$result) {
1085         for($x = 0; $x < count($themes); $x ++) {
1086                 if($themes[$x]['name'] === $th) {
1087                         if($themes[$x]['allowed']) {
1088                                 $themes[$x]['allowed'] = 0;
1089                                 $result = 0;
1090                         }
1091                         else {
1092                                 $themes[$x]['allowed'] = 1;
1093                                 $result = 1;
1094                         }
1095                 }
1096         }
1097 }
1098
1099 /**
1100  * @param array $themes
1101  * @param string $th
1102  * @return int
1103  */
1104 function theme_status($themes,$th) {
1105         for($x = 0; $x < count($themes); $x ++) {
1106                 if($themes[$x]['name'] === $th) {
1107                         if($themes[$x]['allowed']) {
1108                                 return 1;
1109                         }
1110                         else {
1111                                 return 0;
1112                         }
1113                 }
1114         }
1115         return 0;
1116 }
1117
1118
1119 /**
1120  * @param array $themes
1121  * @return string
1122  */
1123 function rebuild_theme_table($themes) {
1124         $o = '';
1125         if(count($themes)) {
1126                 foreach($themes as $th) {
1127                         if($th['allowed']) {
1128                                 if(strlen($o))
1129                                         $o .= ',';
1130                                 $o .= $th['name'];
1131                         }
1132                 }
1133         }
1134         return $o;
1135 }
1136
1137
1138 /**
1139  * Themes admin page
1140  *
1141  * @param App $a
1142  * @return string
1143  */
1144 function admin_page_themes(&$a){
1145
1146         $allowed_themes_str = get_config('system','allowed_themes');
1147         $allowed_themes_raw = explode(',',$allowed_themes_str);
1148         $allowed_themes = array();
1149         if(count($allowed_themes_raw))
1150                 foreach($allowed_themes_raw as $x)
1151                         if(strlen(trim($x)))
1152                                 $allowed_themes[] = trim($x);
1153
1154         $themes = array();
1155         $files = glob('view/theme/*'); /* */
1156         if($files) {
1157                 foreach($files as $file) {
1158                         $f = basename($file);
1159                         $is_experimental = intval(file_exists($file . '/experimental'));
1160                         $is_supported = 1-(intval(file_exists($file . '/unsupported'))); // Is not used yet
1161                         $is_allowed = intval(in_array($f,$allowed_themes));
1162                         $themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
1163                 }
1164         }
1165
1166         if(! count($themes)) {
1167                 notice( t('No themes found.'));
1168                 return '';
1169         }
1170
1171         /**
1172          * Single theme
1173          */
1174
1175         if ($a->argc == 3){
1176                 $theme = $a->argv[2];
1177                 if(! is_dir("view/theme/$theme")){
1178                         notice( t("Item not found.") );
1179                         return '';
1180                 }
1181
1182                 if (x($_GET,"a") && $_GET['a']=="t"){
1183                         check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');
1184
1185                         // Toggle theme status
1186
1187                         toggle_theme($themes,$theme,$result);
1188                         $s = rebuild_theme_table($themes);
1189                         if($result) {
1190                                 install_theme($theme);
1191                                 info( sprintf('Theme %s enabled.',$theme));
1192                         }
1193                         else {
1194                                 uninstall_theme($theme);
1195                                 info( sprintf('Theme %s disabled.',$theme));
1196                         }
1197
1198                         set_config('system','allowed_themes',$s);
1199                         goaway($a->get_baseurl(true) . '/admin/themes' );
1200                         return ''; // NOTREACHED
1201                 }
1202
1203                 // display theme details
1204                 require_once('library/markdown.php');
1205
1206                 if (theme_status($themes,$theme)) {
1207                         $status="on"; $action= t("Disable");
1208                 } else {
1209                         $status="off"; $action= t("Enable");
1210                 }
1211
1212                 $readme=Null;
1213                 if (is_file("view/theme/$theme/README.md")){
1214                         $readme = file_get_contents("view/theme/$theme/README.md");
1215                         $readme = Markdown($readme);
1216                 } else if (is_file("view/theme/$theme/README")){
1217                         $readme = "<pre>". file_get_contents("view/theme/$theme/README") ."</pre>";
1218                 }
1219
1220                 $admin_form="";
1221                 if (is_file("view/theme/$theme/config.php")){
1222                         require_once("view/theme/$theme/config.php");
1223                         if(function_exists("theme_admin")){
1224                                 $admin_form = theme_admin($a);
1225                         }
1226
1227                 }
1228
1229                 $screenshot = array( get_theme_screenshot($theme), t('Screenshot'));
1230                 if(! stristr($screenshot[0],$theme))
1231                         $screenshot = null;
1232
1233                 $t = get_markup_template("admin_plugins_details.tpl");
1234                 return replace_macros($t, array(
1235                         '$title' => t('Administration'),
1236                         '$page' => t('Themes'),
1237                         '$toggle' => t('Toggle'),
1238                         '$settings' => t('Settings'),
1239                         '$baseurl' => $a->get_baseurl(true),
1240
1241                         '$plugin' => $theme,
1242                         '$status' => $status,
1243                         '$action' => $action,
1244                         '$info' => get_theme_info($theme),
1245                         '$function' => 'themes',
1246                         '$admin_form' => $admin_form,
1247                         '$str_author' => t('Author: '),
1248                         '$str_maintainer' => t('Maintainer: '),
1249                         '$screenshot' => $screenshot,
1250                         '$readme' => $readme,
1251
1252                         '$form_security_token' => get_form_security_token("admin_themes"),
1253                 ));
1254         }
1255
1256         /**
1257          * List themes
1258          */
1259
1260         $xthemes = array();
1261         if($themes) {
1262                 foreach($themes as $th) {
1263                         $xthemes[] = array($th['name'],(($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
1264                 }
1265         }
1266
1267         $t = get_markup_template("admin_plugins.tpl");
1268         return replace_macros($t, array(
1269                 '$title' => t('Administration'),
1270                 '$page' => t('Themes'),
1271                 '$submit' => t('Save Settings'),
1272                 '$baseurl' => $a->get_baseurl(true),
1273                 '$function' => 'themes',
1274                 '$plugins' => $xthemes,
1275                 '$experimental' => t('[Experimental]'),
1276                 '$unsupported' => t('[Unsupported]'),
1277         '$form_security_token' => get_form_security_token("admin_themes"),
1278         ));
1279 }
1280
1281
1282 /**
1283  * Logs admin page
1284  *
1285  * @param App $a
1286  */
1287
1288 function admin_page_logs_post(&$a) {
1289         if (x($_POST,"page_logs")) {
1290         check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');
1291
1292                 $logfile                =       ((x($_POST,'logfile'))          ? notags(trim($_POST['logfile']))       : '');
1293                 $debugging              =       ((x($_POST,'debugging'))        ? true                                                          : false);
1294                 $loglevel               =       ((x($_POST,'loglevel'))         ? intval(trim($_POST['loglevel']))      : 0);
1295
1296                 set_config('system','logfile', $logfile);
1297                 set_config('system','debugging',  $debugging);
1298                 set_config('system','loglevel', $loglevel);
1299
1300
1301         }
1302
1303         info( t("Log settings updated.") );
1304         goaway($a->get_baseurl(true) . '/admin/logs' );
1305         return; // NOTREACHED
1306 }
1307
1308 /**
1309  * @param App $a
1310  * @return string
1311  */
1312 function admin_page_logs(&$a){
1313
1314         $log_choices = Array(
1315                 LOGGER_NORMAL => 'Normal',
1316                 LOGGER_TRACE => 'Trace',
1317                 LOGGER_DEBUG => 'Debug',
1318                 LOGGER_DATA => 'Data',
1319                 LOGGER_ALL => 'All'
1320         );
1321
1322         $t = get_markup_template("admin_logs.tpl");
1323
1324         $f = get_config('system','logfile');
1325
1326         $data = '';
1327
1328         if(!file_exists($f)) {
1329                 $data = t("Error trying to open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f exist and is
1330 readable.");
1331         }
1332         else {
1333                 $fp = fopen($f, 'r');
1334                 if(!$fp) {
1335                         $data = t("Couldn't open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f is readable.");
1336                 }
1337                 else {
1338                         $fstat = fstat($fp);
1339                         $size = $fstat['size'];
1340                         if($size != 0)
1341                         {
1342                                 if($size > 5000000 || $size < 0)
1343                                         $size = 5000000;
1344                                 $seek = fseek($fp,0-$size,SEEK_END);
1345                                 if($seek === 0) {
1346                                         $data = escape_tags(fread($fp,$size));
1347                                         while(! feof($fp))
1348                                                 $data .= escape_tags(fread($fp,4096));
1349                                 }
1350                         }
1351                         fclose($fp);
1352                 }
1353         }
1354
1355         return replace_macros($t, array(
1356                 '$title' => t('Administration'),
1357                 '$page' => t('Logs'),
1358                 '$submit' => t('Save Settings'),
1359                 '$clear' => t('Clear'),
1360                 '$data' => $data,
1361                 '$baseurl' => $a->get_baseurl(true),
1362                 '$logname' =>  get_config('system','logfile'),
1363
1364                                                                         // name, label, value, help string, extra data...
1365                 '$debugging'            => array('debugging', t("Enable Debugging"),get_config('system','debugging'), ""),
1366                 '$logfile'                      => array('logfile', t("Log file"), get_config('system','logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
1367                 '$loglevel'             => array('loglevel', t("Log level"), get_config('system','loglevel'), "", $log_choices),
1368
1369         '$form_security_token' => get_form_security_token("admin_logs"),
1370         ));
1371 }
1372
1373 /**
1374  * @param App $a
1375  */
1376 function admin_page_remoteupdate_post(&$a) {
1377         // this function should be called via ajax post
1378         if(!is_site_admin()) {
1379                 return;
1380         }
1381
1382
1383         if (x($_POST,'remotefile') && $_POST['remotefile']!=""){
1384                 $remotefile = $_POST['remotefile'];
1385                 $ftpdata = (x($_POST['ftphost'])?$_POST:false);
1386                 doUpdate($remotefile, $ftpdata);
1387         } else {
1388                 echo "No remote file to download. Abort!";
1389         }
1390
1391         killme();
1392 }
1393
1394 /**
1395  * @param App $a
1396  * @return string
1397  */
1398 function admin_page_remoteupdate(&$a) {
1399         if(!is_site_admin()) {
1400                 return login(false);
1401         }
1402
1403         $canwrite = canWeWrite();
1404         $canftp = function_exists('ftp_connect');
1405
1406         $needupdate = true;
1407         $u = checkUpdate();
1408         if (!is_array($u)){
1409                 $needupdate = false;
1410                 $u = array('','','');
1411         }
1412
1413         $tpl = get_markup_template("admin_remoteupdate.tpl");
1414         return replace_macros($tpl, array(
1415                 '$baseurl' => $a->get_baseurl(true),
1416                 '$submit' => t("Update now"),
1417                 '$close' => t("Close"),
1418                 '$localversion' => FRIENDICA_VERSION,
1419                 '$remoteversion' => $u[1],
1420                 '$needupdate' => $needupdate,
1421                 '$canwrite' => $canwrite,
1422                 '$canftp'       => $canftp,
1423                 '$ftphost'      => array('ftphost', t("FTP Host"), '',''),
1424                 '$ftppath'      => array('ftppath', t("FTP Path"), '/',''),
1425                 '$ftpuser'      => array('ftpuser', t("FTP User"), '',''),
1426                 '$ftppwd'       => array('ftppwd', t("FTP Password"), '',''),
1427                 '$remotefile'=>array('remotefile','', $u['2'],''),
1428         ));
1429
1430 }