From e2687c447597f3aa9e34eff023a704885cd49ade Mon Sep 17 00:00:00 2001 From: Mike Gabriel Date: Fri, 23 Jun 2017 00:01:06 +0200 Subject: update telekinesis-server, development state dating 20170619 (Arctica Browser) --- bin/telekinesis-server | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'bin/telekinesis-server') diff --git a/bin/telekinesis-server b/bin/telekinesis-server index 63a2a84..8693334 100755 --- a/bin/telekinesis-server +++ b/bin/telekinesis-server @@ -63,14 +63,14 @@ use Data::Dumper; use Arctica::Core::eventInit qw(genARandom BugOUT); use Arctica::Core::JABus::Socket; use Arctica::Telekinesis::Server; -#use POSIX;daemonize(); +use POSIX;daemonize(); my $ACO = Arctica::Core::eventInit->new({ app_name=>'telekinesis-server', app_class =>'telekinesis-core', app_version=>'0.0.1.1'}); -my $TeKiServer = Arctica::Telekinesis::Core::Server->new($ACO); +my $TeKiServer = Arctica::Telekinesis::Server->new($ACO); $TeKiServer->{'socks'}{'local'} = Arctica::Core::JABus::Socket->new($ACO,{ @@ -81,8 +81,8 @@ $TeKiServer->{'socks'}{'local'} = Arctica::Core::JABus::Socket->new($ACO,{ appreg => sub {$TeKiServer->_app_reg(@_)}, appinit => sub {$TeKiServer->_app_init(@_)}, appctrl => \&teki_server2c_appctrl, -# srvcrq => \&some_sub, -# qvdcmd => \&some_sub, + srvcrq => \&my_Own_Sub2, + qvdcmd => \&my_Own_Sub2, }, }); @@ -91,7 +91,7 @@ $TeKiServer->{'socks'}{'local'} = Arctica::Core::JABus::Socket->new($ACO,{ $TeKiServer->{'socks'}{'remote'} = Arctica::Core::JABus::Socket->new($ACO,{ type => "unix", - destination => "local",# FIXME! (change to remote!!!) + destination => "local",# FIX ME! (change to remote!!!) is_server => 1, handle_in_dispatch => { srvcneg => sub {$TeKiServer->c2s_service_neg(@_)}, @@ -110,14 +110,20 @@ $ACO->{'Glib'}{'MainLoop'}->run; sub teki_server2c_appctrl { my $declared_id = $_[2]->server_get_client_info($_[1],'declared_id'); -# print "APPCTRL:\t$declared_id->{'self_aID'}\n\n",Dumper($declared_id); + print "APPCTRL:\t$declared_id->{'self_aID'}\n\n",Dumper($declared_id); $TeKiServer->tekicli_send('appctrl',{ appid => $declared_id->{'self_aID'}, ctrldata => $_[0], }); } +sub my_Own_Sub1 { +} + +sub my_Own_Sub2 { + +} sub daemonize { fork and exit; -- cgit v1.2.3