2015-10-31 22:10:57 +00:00
< ? php
/**
* Name : XMPP ( Jabber )
* Description : Embedded XMPP ( Jabber ) client
* Version : 0.1
* Author : Michael Vogel < https :// pirati . ca / profile / heluecht >
*/
2017-11-06 23:55:24 +00:00
use Friendica\Core\Config ;
use Friendica\Core\PConfig ;
2015-10-31 22:10:57 +00:00
function xmpp_install () {
2015-11-11 21:27:11 +00:00
register_hook ( 'plugin_settings' , 'addon/xmpp/xmpp.php' , 'xmpp_plugin_settings' );
register_hook ( 'plugin_settings_post' , 'addon/xmpp/xmpp.php' , 'xmpp_plugin_settings_post' );
2015-10-31 22:10:57 +00:00
register_hook ( 'page_end' , 'addon/xmpp/xmpp.php' , 'xmpp_script' );
register_hook ( 'logged_in' , 'addon/xmpp/xmpp.php' , 'xmpp_login' );
}
function xmpp_uninstall () {
2015-11-11 21:27:11 +00:00
unregister_hook ( 'plugin_settings' , 'addon/xmpp/xmpp.php' , 'xmpp_plugin_settings' );
unregister_hook ( 'plugin_settings_post' , 'addon/xmpp/xmpp.php' , 'xmpp_plugin_settings_post' );
2015-10-31 22:10:57 +00:00
unregister_hook ( 'page_end' , 'addon/xmpp/xmpp.php' , 'xmpp_script' );
unregister_hook ( 'logged_in' , 'addon/xmpp/xmpp.php' , 'xmpp_login' );
}
2015-11-11 21:27:11 +00:00
function xmpp_plugin_settings_post ( $a , $post ) {
if ( ! local_user () || ( ! x ( $_POST , 'xmpp-settings-submit' )))
return ;
2017-11-06 23:55:24 +00:00
PConfig :: set ( local_user (), 'xmpp' , 'enabled' , intval ( $_POST [ 'xmpp_enabled' ]));
PConfig :: set ( local_user (), 'xmpp' , 'individual' , intval ( $_POST [ 'xmpp_individual' ]));
PConfig :: set ( local_user (), 'xmpp' , 'bosh_proxy' , $_POST [ 'xmpp_bosh_proxy' ]);
2015-11-11 21:27:11 +00:00
info ( t ( 'XMPP settings updated.' ) . EOL );
}
function xmpp_plugin_settings ( & $a , & $s ) {
if ( ! local_user ())
return ;
/* Add our stylesheet to the xmpp so we can make our settings look nice */
$a -> page [ 'htmlhead' ] .= '<link rel="stylesheet" type="text/css" href="' . $a -> get_baseurl () . '/addon/xmpp/xmpp.css' . '" media="all" />' . " \r \n " ;
/* Get the current state of our config variable */
2017-11-06 23:55:24 +00:00
$enabled = intval ( PConfig :: get ( local_user (), 'xmpp' , 'enabled' ));
2015-11-11 21:27:11 +00:00
$enabled_checked = (( $enabled ) ? ' checked="checked" ' : '' );
2017-11-06 23:55:24 +00:00
$individual = intval ( PConfig :: get ( local_user (), 'xmpp' , 'individual' ));
2015-11-11 21:27:11 +00:00
$individual_checked = (( $individual ) ? ' checked="checked" ' : '' );
2017-11-06 23:55:24 +00:00
$bosh_proxy = PConfig :: get ( local_user (), " xmpp " , " bosh_proxy " );
2015-11-11 21:27:11 +00:00
/* Add some HTML to the existing form */
$s .= '<span id="settings_xmpp_inflated" class="settings-block fakelink" style="display: block;" onclick="openClose(\'settings_xmpp_expanded\'); openClose(\'settings_xmpp_inflated\');">' ;
$s .= '<h3>' . t ( 'XMPP-Chat (Jabber)' ) . '</h3>' ;
$s .= '</span>' ;
$s .= '<div id="settings_xmpp_expanded" class="settings-block" style="display: none;">' ;
$s .= '<span class="fakelink" onclick="openClose(\'settings_xmpp_expanded\'); openClose(\'settings_xmpp_inflated\');">' ;
$s .= '<h3>' . t ( 'XMPP-Chat (Jabber)' ) . '</h3>' ;
$s .= '</span>' ;
$s .= '<div id="xmpp-settings-wrapper">' ;
$s .= '<label id="xmpp-enabled-label" for="xmpp-enabled">' . t ( 'Enable Webchat' ) . '</label>' ;
$s .= '<input id="xmpp-enabled" type="checkbox" name="xmpp_enabled" value="1" ' . $enabled_checked . '/>' ;
$s .= '<div class="clear"></div>' ;
2017-11-06 23:55:24 +00:00
if ( Config :: get ( " xmpp " , " central_userbase " )) {
2015-11-11 21:27:11 +00:00
$s .= '<label id="xmpp-individual-label" for="xmpp-individual">' . t ( 'Individual Credentials' ) . '</label>' ;
$s .= '<input id="xmpp-individual" type="checkbox" name="xmpp_individual" value="1" ' . $individual_checked . '/>' ;
$s .= '<div class="clear"></div>' ;
}
2017-11-06 23:55:24 +00:00
if ( ! Config :: get ( " xmpp " , " central_userbase " ) || PConfig :: get ( local_user (), " xmpp " , " individual " )) {
2015-11-11 21:27:11 +00:00
$s .= '<label id="xmpp-bosh-proxy-label" for="xmpp-bosh-proxy">' . t ( 'Jabber BOSH host' ) . '</label>' ;
$s .= ' <input id="xmpp-bosh-proxy" type="text" name="xmpp_bosh_proxy" value="' . $bosh_proxy . '" />' ;
$s .= '<div class="clear"></div>' ;
}
$s .= '</div>' ;
/* provide a submit button */
$s .= '<div class="settings-submit-wrapper" ><input type="submit" name="xmpp-settings-submit" class="settings-submit" value="' . t ( 'Save Settings' ) . '" /></div></div>' ;
}
2015-10-31 22:10:57 +00:00
function xmpp_login ( $a , $b ) {
if ( ! $_SESSION [ " allow_api " ]) {
$password = substr ( random_string (), 0 , 16 );
2017-11-06 23:55:24 +00:00
PConfig :: set ( local_user (), " xmpp " , " password " , $password );
2015-10-31 22:10:57 +00:00
}
}
function xmpp_plugin_admin ( & $a , & $o ){
2015-11-11 21:27:11 +00:00
$t = get_markup_template ( " admin.tpl " , " addon/xmpp/ " );
2015-10-31 22:10:57 +00:00
2015-11-11 21:27:11 +00:00
$o = replace_macros ( $t , array (
'$submit' => t ( 'Save Settings' ),
2017-11-06 23:55:24 +00:00
'$bosh_proxy' => array ( 'bosh_proxy' , t ( 'Jabber BOSH host' ), Config :: get ( 'xmpp' , 'bosh_proxy' ), '' ),
'$central_userbase' => array ( 'central_userbase' , t ( 'Use central userbase' ), Config :: get ( 'xmpp' , 'central_userbase' ), t ( 'If enabled, users will automatically login to an ejabberd server that has to be installed on this machine with synchronized credentials via the "auth_ejabberd.php" script.' )),
2015-11-11 21:27:11 +00:00
));
2015-10-31 22:10:57 +00:00
}
function xmpp_plugin_admin_post ( & $a ){
2015-11-11 21:27:11 +00:00
$bosh_proxy = (( x ( $_POST , 'bosh_proxy' )) ? trim ( $_POST [ 'bosh_proxy' ]) : '' );
$central_userbase = (( x ( $_POST , 'central_userbase' )) ? intval ( $_POST [ 'central_userbase' ]) : false );
2017-11-06 23:55:24 +00:00
Config :: set ( 'xmpp' , 'bosh_proxy' , $bosh_proxy );
Config :: set ( 'xmpp' , 'central_userbase' , $central_userbase );
2015-11-11 21:27:11 +00:00
info ( t ( 'Settings updated.' ) . EOL );
2015-10-31 22:10:57 +00:00
}
function xmpp_script ( & $a , & $s ) {
xmpp_converse ( $a , $s );
}
function xmpp_converse ( & $a , & $s ) {
if ( ! local_user ())
return ;
if ( $_GET [ " mode " ] == " minimal " )
return ;
2015-11-02 06:05:29 +00:00
if ( $a -> is_mobile || $a -> is_tablet )
return ;
2017-11-06 23:55:24 +00:00
if ( ! PConfig :: get ( local_user (), " xmpp " , " enabled " ))
2015-11-11 21:27:11 +00:00
return ;
2016-01-17 13:54:31 +00:00
if ( in_array ( $a -> query_string , array ( " admin/federation/ " )))
return ;
2015-10-31 22:10:57 +00:00
$a -> page [ 'htmlhead' ] .= '<link type="text/css" rel="stylesheet" media="screen" href="addon/xmpp/converse/css/converse.css" />' . " \n " ;
$a -> page [ 'htmlhead' ] .= '<script src="addon/xmpp/converse/builds/converse.min.js"></script>' . " \n " ;
2017-11-06 23:55:24 +00:00
if ( Config :: get ( " xmpp " , " central_userbase " ) && ! PConfig :: get ( local_user (), " xmpp " , " individual " )) {
$bosh_proxy = Config :: get ( " xmpp " , " bosh_proxy " );
2015-10-31 22:10:57 +00:00
2017-11-06 23:55:24 +00:00
$password = PConfig :: get ( local_user (), " xmpp " , " password " );
2015-10-31 22:10:57 +00:00
if ( $password == " " ) {
$password = substr ( random_string (), 0 , 16 );
2017-11-06 23:55:24 +00:00
PConfig :: set ( local_user (), " xmpp " , " password " , $password );
2015-10-31 22:10:57 +00:00
}
$jid = $a -> user [ " nickname " ] . " @ " . $a -> get_hostname () . " /converse- " . substr ( random_string (), 0 , 5 );;
$auto_login = " auto_login: true,
authentication : 'login' ,
jid : '$jid' ,
password : '$password' ,
2015-11-11 21:27:11 +00:00
allow_logout : false , " ;
} else {
2017-11-06 23:55:24 +00:00
$bosh_proxy = PConfig :: get ( local_user (), " xmpp " , " bosh_proxy " );
2015-11-11 21:27:11 +00:00
2015-10-31 22:10:57 +00:00
$auto_login = " " ;
2015-11-11 21:27:11 +00:00
}
if ( $bosh_proxy == " " )
return ;
2015-10-31 22:10:57 +00:00
if ( in_array ( $a -> argv [ 0 ], array ( " manage " , " logout " )))
$additional_commands = " converse.user.logout(); \n " ;
else
$additional_commands = " " ;
$on_ready = " " ;
$initialize = " converse.initialize( {
bosh_service_url : '$bosh_proxy' ,
keepalive : true ,
message_carbons : false ,
forward_messages : false ,
play_sounds : true ,
sounds_path : 'addon/xmpp/converse/sounds/' ,
roster_groups : false ,
show_controlbox_by_default : false ,
show_toolbar : true ,
allow_contact_removal : false ,
allow_registration : false ,
hide_offline_users : true ,
allow_chat_pending_contacts : false ,
allow_dragresize : true ,
auto_away : 0 ,
auto_xa : 0 ,
csi_waiting_time : 300 ,
auto_reconnect : true ,
$auto_login
xhr_user_search : false
}); \n " ;
$a -> page [ 'htmlhead' ] .= " <script>
require ([ 'converse' ], function ( converse ) {
$initialize
converse . listen . on ( 'ready' , function ( event ) {
$on_ready
});
$additional_commands
});
</ script > " ;
}
?>