2016-03-28 16:29:05 +02:00
< ? php
/*
* Name : frio
2016-06-13 10:57:42 +02:00
* Description : Bootstrap V3 theme . The theme is currently under construction , so it is far from finished . For further information have a look at the < a href = " https://github.com/friendica/friendica/tree/develop/view/theme/frio/README.md " > ReadMe </ a >.
2017-05-19 13:11:30 +02:00
* Version : V . 0.8
2016-03-28 16:29:05 +02:00
* Author : Rabuzarus < https :// friendica . kommune4 . de / profile / rabuzarus >
2017-01-09 13:06:08 +01:00
*
2016-03-28 16:29:05 +02:00
*/
2018-02-05 01:23:49 +01:00
2017-04-30 06:07:00 +02:00
use Friendica\App ;
2018-02-05 01:23:49 +01:00
use Friendica\Content\Text\Plaintext ;
2018-01-15 15:50:06 +01:00
use Friendica\Content\Widget ;
2018-01-17 19:42:40 +01:00
use Friendica\Core\Addon ;
2017-11-07 03:22:52 +01:00
use Friendica\Core\Config ;
2018-01-22 13:29:50 +01:00
use Friendica\Core\L10n ;
2017-11-07 03:22:52 +01:00
use Friendica\Core\PConfig ;
2017-08-26 08:04:21 +02:00
use Friendica\Core\System ;
2017-11-08 04:57:46 +01:00
use Friendica\Database\DBM ;
2018-01-15 03:22:39 +01:00
use Friendica\Model\Profile ;
2017-04-30 06:07:00 +02:00
2016-03-28 16:29:05 +02:00
$frio = " view/theme/frio " ;
global $frio ;
2018-01-01 21:05:09 +01:00
function frio_init ( App $a )
{
2016-06-20 13:44:11 +02:00
// disable the events module link in the profile tab
$a -> theme_events_in_profile = false ;
2018-01-09 05:52:54 +01:00
$a -> videowidth = 622 ;
2016-06-20 13:44:11 +02:00
2017-11-11 10:26:23 +01:00
$a -> set_template_engine ( 'smarty3' );
2016-03-28 16:29:05 +02:00
2017-08-26 09:32:10 +02:00
$baseurl = System :: baseUrl ();
2016-03-28 16:29:05 +02:00
2017-11-07 03:22:52 +01:00
$style = PConfig :: get ( local_user (), 'frio' , 'style' );
2016-03-28 16:29:05 +02:00
$frio = " view/theme/frio " ;
global $frio ;
2016-05-28 13:07:24 +02:00
// if the device is a mobile device set js is_mobile
// variable so the js scripts can use this information
2018-01-01 21:05:09 +01:00
if ( $a -> is_mobile || $a -> is_tablet ) {
2016-05-28 13:07:24 +02:00
$a -> page [ " htmlhead " ] .= <<< EOT
2017-10-20 15:21:42 +02:00
< script type = " text/javascript " >
2016-05-28 13:07:24 +02:00
var is_mobile = 1 ;
</ script >
EOT ;
2018-01-01 21:05:09 +01:00
}
2016-03-28 16:29:05 +02:00
2018-01-01 21:05:09 +01:00
if ( $style == " " ) {
2017-11-07 03:22:52 +01:00
$style = Config :: get ( 'frio' , 'style' );
2018-01-01 21:05:09 +01:00
}
2016-03-28 16:29:05 +02:00
}
2018-01-01 21:05:09 +01:00
function frio_install ()
{
2018-01-17 19:42:40 +01:00
Addon :: registerHook ( 'prepare_body_final' , 'view/theme/frio/theme.php' , 'frio_item_photo_links' );
Addon :: registerHook ( 'item_photo_menu' , 'view/theme/frio/theme.php' , 'frio_item_photo_menu' );
Addon :: registerHook ( 'contact_photo_menu' , 'view/theme/frio/theme.php' , 'frio_contact_photo_menu' );
Addon :: registerHook ( 'nav_info' , 'view/theme/frio/theme.php' , 'frio_remote_nav' );
Addon :: registerHook ( 'acl_lookup_end' , 'view/theme/frio/theme.php' , 'frio_acl_lookup' );
Addon :: registerHook ( 'display_item' , 'view/theme/frio/theme.php' , 'frio_display_item' );
2016-03-28 16:29:05 +02:00
logger ( " installed theme frio " );
}
2018-01-01 21:05:09 +01:00
function frio_uninstall ()
{
2018-01-17 19:42:40 +01:00
Addon :: unregisterHook ( 'prepare_body_final' , 'view/theme/frio/theme.php' , 'frio_item_photo_links' );
Addon :: unregisterHook ( 'item_photo_menu' , 'view/theme/frio/theme.php' , 'frio_item_photo_menu' );
Addon :: unregisterHook ( 'contact_photo_menu' , 'view/theme/frio/theme.php' , 'frio_contact_photo_menu' );
Addon :: unregisterHook ( 'nav_info' , 'view/theme/frio/theme.php' , 'frio_remote_nav' );
Addon :: unregisterHook ( 'acl_lookup_end' , 'view/theme/frio/theme.php' , 'frio_acl_lookup' );
Addon :: unregisterHook ( 'display_item' , 'view/theme/frio/theme.php' , 'frio_display_item' );
2016-03-28 16:29:05 +02:00
logger ( " uninstalled theme frio " );
}
2018-01-01 21:05:09 +01:00
2016-04-14 14:07:20 +02:00
/**
2017-01-09 13:06:08 +01:00
* @ brief Replace friendica photo links hook
*
2016-04-14 14:07:20 +02:00
* This function does replace the links to photos
* of other friendica users . Original the photos are
* linked to the photo page . Now they will linked directly
* to the photo file . This function is nessesary to use colorbox
* in the network stream
2017-01-09 13:06:08 +01:00
*
* @ param App $a Unused but required by hook definition
2016-04-14 14:07:20 +02:00
* @ param array $body_info The item and its html output
*/
2017-11-29 13:52:27 +01:00
function frio_item_photo_links ( App $a , & $body_info )
{
2018-02-05 01:23:49 +01:00
$occurence = 0 ;
$p = Plaintext :: getBoundariesPosition ( $body_info [ 'html' ], " <a " , " > " );
2018-01-01 21:05:09 +01:00
while ( $p !== false && ( $occurence ++ < 500 )) {
2016-04-14 14:07:20 +02:00
$link = substr ( $body_info [ 'html' ], $p [ 'start' ], $p [ 'end' ] - $p [ 'start' ]);
2018-01-15 14:05:12 +01:00
$matches = [];
2016-04-14 14:07:20 +02:00
preg_match ( " / \ /photos \ /[ \ w]+ \ /image \ /([ \ w]+)/ " , $link , $matches );
2018-01-01 21:05:09 +01:00
if ( $matches ) {
2016-04-14 14:07:20 +02:00
// Replace the link for the photo's page with a direct link to the photo itself
$newlink = str_replace ( $matches [ 0 ], " /photo/ { $matches [ 1 ] } " , $link );
// Add a "quiet" parameter to any redir links to prevent the "XX welcomes YY" info boxes
$newlink = preg_replace ( " /href= \" ([^ \" ]+) \ /redir \ /([^ \" ]+)&url=([^ \" ]+) \" / " , 'href="$1/redir/$2&quiet=1&url=$3"' , $newlink );
2018-01-01 21:05:09 +01:00
// Having any arguments to the link for Colorbox causes it to fetch base64 code instead of the image
2016-04-14 14:07:20 +02:00
$newlink = preg_replace ( " / \ /[?&]zrl=([^& \" ]+)/ " , '' , $newlink );
$body_info [ 'html' ] = str_replace ( $link , $newlink , $body_info [ 'html' ]);
}
2018-02-05 01:23:49 +01:00
$p = Plaintext :: getBoundariesPosition ( $body_info [ 'html' ], " <a " , " > " , $occurence );
2016-04-14 14:07:20 +02:00
}
}
2016-04-17 00:55:43 +02:00
/**
2017-01-09 13:06:08 +01:00
* @ brief Replace links of the item_photo_menu hook
*
2016-04-17 00:55:43 +02:00
* This function replaces the original poke and the message links
* to call the addToModal javascript function so this pages can
* be loaded in a bootstrap modal
2017-01-09 13:06:08 +01:00
*
* @ param App $a Unused but required by the hook definition
2016-04-17 00:55:43 +02:00
* @ param array $arr Contains item data and the original photo_menu
*/
2018-01-01 21:05:09 +01:00
function frio_item_photo_menu ( App $a , & $arr )
{
foreach ( $arr [ " menu " ] as $k => $v ) {
if ( strpos ( $v , 'poke/?f=&c=' ) === 0 || strpos ( $v , 'message/new/' ) === 0 ) {
2016-04-17 00:55:43 +02:00
$v = " javascript:addToModal(' " . $v . " '); return false; " ;
$arr [ " menu " ][ $k ] = $v ;
}
}
}
2016-04-19 02:06:02 +02:00
2016-04-20 19:32:19 +02:00
/**
* @ brief Replace links of the contact_photo_menu
2017-01-09 13:06:08 +01:00
*
2016-04-20 19:32:19 +02:00
* This function replaces the original poke and the message links
* to call the addToModal javascript function so this pages can
* be loaded in a bootstrap modal
2016-04-20 19:59:44 +02:00
* Additionally the profile , status and photo page links will be changed
* to don ' t open in a new tab if the contact is a friendica contact .
2017-01-09 13:06:08 +01:00
*
2017-04-30 06:17:49 +02:00
* @ param App $a The app data
2016-04-20 19:32:19 +02:00
* @ param array $args Contains contact data and the original photo_menu
*/
2018-01-01 21:05:09 +01:00
function frio_contact_photo_menu ( App $a , & $args )
{
2016-04-20 19:32:19 +02:00
$cid = $args [ " contact " ][ " id " ];
$pokelink = $args [ " menu " ][ " poke " ][ 1 ];
$pmlink = $args [ " menu " ][ " pm " ][ 1 ];
2016-04-20 19:59:44 +02:00
// Set the the indicator for opening the status, profile and photo pages
// in a new tab to false if the contact a dfrn (friendica) contact
// We do this because we can go back on foreign friendica pages throuhg
// friendicas "magic-link" which indicates a friendica user on froreign
// friendica servers as remote user or visitor
//
2017-01-09 13:06:08 +01:00
// The value for opening in a new tab is e.g. when
2016-04-20 19:59:44 +02:00
// $args["menu"]["status"][2] is true. If the value of the [2] key is true
// and if it's a friendica contact we set it to false
2018-01-01 21:05:09 +01:00
foreach ( $args [ " menu " ] as $k => $v ) {
if ( $k === " status " || $k === " profile " || $k === " photos " ) {
2016-04-20 19:59:44 +02:00
$v [ 2 ] = (( $args [ " contact " ][ " network " ] === " dfrn " ) ? false : true );
$args [ " menu " ][ $k ][ 2 ] = $v [ 2 ];
}
}
2016-04-20 19:32:19 +02:00
// Add to pm and poke links a new key with the value 'modal'.
// Later we can make conditions in the corresponing templates (e.g.
// contact_template.tpl)
2018-01-01 21:05:09 +01:00
if ( strpos ( $pokelink , 'poke/?f=&c=' . $cid ) !== false ) {
2016-04-20 19:32:19 +02:00
$args [ " menu " ][ " poke " ][ 3 ] = " modal " ;
2018-01-01 21:05:09 +01:00
}
2016-04-20 19:32:19 +02:00
2018-01-01 21:05:09 +01:00
if ( strpos ( $pmlink , 'message/new/' . $cid ) !== false ) {
2016-04-20 19:32:19 +02:00
$args [ " menu " ][ " pm " ][ 3 ] = " modal " ;
2018-01-01 21:05:09 +01:00
}
2016-04-20 19:32:19 +02:00
}
2016-04-19 02:06:02 +02:00
/**
* @ brief Construct remote nav menu
2017-01-09 13:06:08 +01:00
*
2016-04-19 02:06:02 +02:00
* It creates a remote baseurl form $_SESSION for remote users and friendica
2017-01-09 13:06:08 +01:00
* visitors . This url will be added to some of the nav links . With this behaviour
2016-04-19 02:06:02 +02:00
* the user will come back to her / his own pages on his / her friendica server .
* Not all possible links are available ( notifications , administrator , manage ,
* notes aren ' t available because we have no way the check remote permissions ) ..
* Some links will point to the local pages because the user would expect
* local page ( these pages are : search , community , help , apps , directory ) .
2017-01-09 13:06:08 +01:00
*
2017-04-30 06:17:49 +02:00
* @ param App $a The App class
2016-04-19 02:06:02 +02:00
* @ param array $nav The original nav menu
*/
2018-01-01 21:05:09 +01:00
function frio_remote_nav ( $a , & $nav )
{
2016-04-19 02:06:02 +02:00
// get the homelink from $_XSESSION
2018-01-15 03:22:39 +01:00
$homelink = Profile :: getMyURL ();
2018-01-01 21:05:09 +01:00
if ( ! $homelink ) {
$homelink = defaults ( $_SESSION , 'visitor_home' , '' );
}
2016-04-19 02:06:02 +02:00
// split up the url in it's parts (protocol,domain/directory, /profile/, nickname
// I'm not familiar with regex, so someone might find a better solutionen
2017-01-09 13:06:08 +01:00
//
2016-04-19 02:06:02 +02:00
// E.g $homelink = 'https://friendica.domain.com/profile/mickey' should result in an array
// with 0 => 'https://friendica.domain.com/profile/mickey' 1 => 'https://',
// 2 => 'friendica.domain.com' 3 => '/profile/' 4 => 'mickey'
2017-01-09 13:06:08 +01:00
//
2016-04-19 02:06:02 +02:00
//$server_url = preg_match('/^(https?:\/\/.*?)\/profile\//2', $homelink);
preg_match ( '/^(https?:\/\/)?(.*?)(\/profile\/)(.*)/' , $homelink , $url_parts );
// Construct the server url of the visitor. So we could link back to his/her own menu.
// And construct a webbie (e.g. mickey@friendica.domain.com for the search in gcontact
// We use the webbie for search in gcontact because we don't know if gcontact table stores
// the right value if its http or https protocol
2018-02-14 06:07:26 +01:00
$webbie = '' ;
2018-01-01 21:05:09 +01:00
if ( count ( $url_parts )) {
2016-04-19 02:06:02 +02:00
$server_url = $url_parts [ 1 ] . $url_parts [ 2 ];
$webbie = $url_parts [ 4 ] . '@' . $url_parts [ 2 ];
}
// since $userinfo isn't available for the hook we write it to the nav array
// this isn't optimal because the contact query will be done now twice
2017-08-03 07:50:44 +02:00
if ( local_user ()) {
2016-04-19 02:06:02 +02:00
// empty the server url for local user because we won't need it
$server_url = '' ;
// user info
2017-01-09 10:37:37 +01:00
$r = q ( " SELECT `micro` FROM `contact` WHERE `uid` = %d AND `self` " , intval ( $a -> user [ 'uid' ]));
2017-01-09 13:06:08 +01:00
2017-11-08 04:57:46 +01:00
$r [ 0 ][ 'photo' ] = ( DBM :: is_result ( $r ) ? $a -> remove_baseurl ( $r [ 0 ][ 'micro' ]) : " images/person-48.jpg " );
2016-04-19 02:06:02 +02:00
$r [ 0 ][ 'name' ] = $a -> user [ 'username' ];
2017-08-03 07:50:44 +02:00
} elseif ( ! local_user () && remote_user ()) {
2016-04-19 02:06:02 +02:00
$r = q ( " SELECT `name`, `nick`, `micro` AS `photo` FROM `contact` WHERE `id` = %d " , intval ( remote_user ()));
2018-01-22 13:29:50 +01:00
$nav [ 'remote' ] = L10n :: t ( " Guest " );
2018-01-15 03:22:39 +01:00
} elseif ( Profile :: getMyURL ()) {
2016-04-19 02:06:02 +02:00
$r = q ( " SELECT `name`, `nick`, `photo` FROM `gcontact`
WHERE `addr` = '%s' AND `network` = 'dfrn' " ,
dbesc ( $webbie ));
2018-01-22 13:29:50 +01:00
$nav [ 'remote' ] = L10n :: t ( " Visitor " );
2017-08-03 07:50:44 +02:00
} else {
$r = false ;
2016-04-19 02:06:02 +02:00
}
2017-11-08 04:57:46 +01:00
if ( DBM :: is_result ( $r )) {
2018-01-15 14:05:12 +01:00
$nav [ 'userinfo' ] = [
2018-01-01 21:05:09 +01:00
'icon' => ( DBM :: is_result ( $r ) ? $r [ 0 ][ 'photo' ] : " images/person-48.jpg " ),
'name' => $r [ 0 ][ 'name' ],
2018-01-15 14:05:12 +01:00
];
2018-01-01 21:05:09 +01:00
}
2016-04-19 02:06:02 +02:00
2017-08-03 07:50:44 +02:00
if ( ! local_user () && ! empty ( $server_url )) {
2018-01-22 13:29:50 +01:00
$nav [ 'logout' ] = [ $server_url . '/logout' , L10n :: t ( 'Logout' ), " " , L10n :: t ( 'End this session' )];
2016-04-19 02:06:02 +02:00
// user menu
2018-01-22 13:29:50 +01:00
$nav [ 'usermenu' ][] = [ $server_url . '/profile/' . $a -> user [ 'nickname' ], L10n :: t ( 'Status' ), " " , L10n :: t ( 'Your posts and conversations' )];
$nav [ 'usermenu' ][] = [ $server_url . '/profile/' . $a -> user [ 'nickname' ] . '?tab=profile' , L10n :: t ( 'Profile' ), " " , L10n :: t ( 'Your profile page' )];
$nav [ 'usermenu' ][] = [ $server_url . '/photos/' . $a -> user [ 'nickname' ], L10n :: t ( 'Photos' ), " " , L10n :: t ( 'Your photos' )];
$nav [ 'usermenu' ][] = [ $server_url . '/videos/' . $a -> user [ 'nickname' ], L10n :: t ( 'Videos' ), " " , L10n :: t ( 'Your videos' )];
$nav [ 'usermenu' ][] = [ $server_url . '/events/' , L10n :: t ( 'Events' ), " " , L10n :: t ( 'Your events' )];
2016-04-19 02:06:02 +02:00
// navbar links
2018-01-22 13:29:50 +01:00
$nav [ 'network' ] = [ $server_url . '/network' , L10n :: t ( 'Network' ), " " , L10n :: t ( 'Conversations from your friends' )];
$nav [ 'events' ] = [ $server_url . '/events' , L10n :: t ( 'Events' ), " " , L10n :: t ( 'Events and Calendar' )];
$nav [ 'messages' ] = [ $server_url . '/message' , L10n :: t ( 'Messages' ), " " , L10n :: t ( 'Private mail' )];
$nav [ 'settings' ] = [ $server_url . '/settings' , L10n :: t ( 'Settings' ), " " , L10n :: t ( 'Account settings' )];
$nav [ 'contacts' ] = [ $server_url . '/contacts' , L10n :: t ( 'Contacts' ), " " , L10n :: t ( 'Manage/edit friends and contacts' )];
2016-04-20 18:03:22 +02:00
$nav [ 'sitename' ] = $a -> config [ 'sitename' ];
2016-04-19 02:06:02 +02:00
}
}
2018-01-01 21:05:09 +01:00
2016-04-28 21:35:33 +02:00
/**
* @ brief : Search for contacts
2017-01-09 13:06:08 +01:00
*
2016-04-28 21:35:33 +02:00
* This function search for a users contacts . The code is copied from contact search
* in / mod / contacts . php . With this function the contacts will permitted to acl_lookup ()
2017-01-09 13:06:08 +01:00
* and can grabbed as json . For this we use the type = " r " . This is usful to to let js
2016-04-28 21:35:33 +02:00
* grab the contact data .
* We use this to give the data to textcomplete and have a filter function at the
* contact page .
2017-01-09 13:06:08 +01:00
*
2016-12-20 21:16:01 +01:00
* @ param App $a The app data @ TODO Unused
2016-04-28 21:35:33 +02:00
* @ param array $results The array with the originals from acl_lookup ()
*/
2018-01-01 21:05:09 +01:00
function frio_acl_lookup ( App $a , & $results )
{
require_once 'mod/contacts.php' ;
2016-04-28 21:35:33 +02:00
2018-01-01 21:05:09 +01:00
$nets = x ( $_GET , " nets " ) ? notags ( trim ( $_GET [ " nets " ])) : " " ;
2016-04-28 21:35:33 +02:00
// we introduce a new search type, r should do the same query like it's
// done in /mod/contacts for connections
2018-01-21 18:39:47 +01:00
if ( $results [ " type " ] !== " r " ) {
return ;
}
2016-04-28 21:35:33 +02:00
2018-02-14 06:07:26 +01:00
$sql_extra = '' ;
2018-01-21 18:39:47 +01:00
if ( $results [ " search " ]) {
$search_txt = dbesc ( protect_sprintf ( preg_quote ( $results [ " search " ])));
2018-04-25 23:30:56 +02:00
$sql_extra .= " AND (`attag` LIKE '%% " . dbesc ( $search_txt ) . " %%' OR `name` LIKE '%% " . dbesc ( $search_txt ) . " %%' OR `nick` LIKE '%% " . dbesc ( $search_txt ) . " %%' OR `addr` LIKE '%% " . dbesc ( $search_txt ) . " %%') " ;
2018-01-21 18:39:47 +01:00
}
2016-04-28 21:35:33 +02:00
2018-01-21 18:39:47 +01:00
if ( $nets ) {
$sql_extra .= sprintf ( " AND network = '%s' " , dbesc ( $nets ));
}
2016-04-28 21:35:33 +02:00
2018-02-14 06:07:26 +01:00
$total = 0 ;
2018-01-21 18:39:47 +01:00
$r = q ( " SELECT COUNT(*) AS `total` FROM `contact`
WHERE `uid` = % d AND NOT `self` AND NOT `pending` $sql_extra " , intval( $_SESSION['uid'] ));
if ( DBM :: is_result ( $r )) {
$total = $r [ 0 ][ " total " ];
}
2016-04-28 21:35:33 +02:00
2018-01-21 18:39:47 +01:00
$sql_extra3 = Widget :: unavailableNetworks ();
2016-04-28 21:35:33 +02:00
2018-01-21 18:39:47 +01:00
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND NOT `self` AND NOT `pending` $sql_extra $sql_extra3 ORDER BY `name` ASC LIMIT %d, %d " ,
intval ( $_SESSION [ 'uid' ]), intval ( $results [ 'start' ]), intval ( $results [ 'count' ])
);
2016-04-28 21:35:33 +02:00
2018-01-21 18:39:47 +01:00
$contacts = [];
2016-04-28 21:35:33 +02:00
2018-01-21 18:39:47 +01:00
if ( DBM :: is_result ( $r )) {
foreach ( $r as $rr ) {
$contacts [] = _contact_detail_for_template ( $rr );
}
2016-04-28 21:35:33 +02:00
}
2018-01-21 18:39:47 +01:00
$results [ " items " ] = $contacts ;
$results [ " tot " ] = $total ;
2016-06-25 12:21:13 +02:00
}
2017-08-02 15:52:11 +02:00
/**
* @ brief Manipulate the data of the item
2018-01-01 21:05:09 +01:00
*
2017-08-02 15:52:11 +02:00
* At the moment we use this function to add some own stuff to the item menu
2018-01-01 21:05:09 +01:00
*
2017-08-02 15:52:11 +02:00
* @ param App $a App $a The app data
* @ param array $arr Array with the item and the item actions < br >
* 'item' => Array with item data < br >
* 'output' => Array with item actions < br >
*/
2018-01-01 21:05:09 +01:00
function frio_display_item ( App $a , & $arr )
{
2017-08-02 15:52:11 +02:00
// Add subthread to the item menu
2018-01-15 14:05:12 +01:00
$subthread = [];
2018-01-01 21:05:09 +01:00
if ( local_user () == $arr [ 'item' ][ 'uid' ] && $arr [ 'item' ][ 'parent' ] == $arr [ 'item' ][ 'id' ] && ! $arr [ 'item' ][ 'self' ]) {
2018-01-15 14:05:12 +01:00
$subthread = [
2017-08-02 15:52:11 +02:00
'menu' => 'follow_thread' ,
2018-01-22 13:29:50 +01:00
'title' => L10n :: t ( 'Follow Thread' ),
2017-08-02 15:52:11 +02:00
'action' => 'dosubthread(' . $arr [ 'item' ][ 'id' ] . '); return false;' ,
'href' => '#'
2018-01-15 14:05:12 +01:00
];
2017-08-02 15:52:11 +02:00
}
$arr [ 'output' ][ 'subthread' ] = $subthread ;
}