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