mod/admin.php

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