From e2687c447597f3aa9e34eff023a704885cd49ade Mon Sep 17 00:00:00 2001
From: Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
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