aboutsummaryrefslogtreecommitdiff
path: root/bin/telekinesis-server
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 00:01:06 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2017-06-23 00:01:06 +0200
commite2687c447597f3aa9e34eff023a704885cd49ade (patch)
tree9fb088daebec9f3e6f2ff87b6414dc800651de0e /bin/telekinesis-server
parent7ac7916a30c5aa58dc11b6082ee26a2ae7f12675 (diff)
downloadperl-Arctica-Telekinesis-Server-e2687c447597f3aa9e34eff023a704885cd49ade.tar.gz
perl-Arctica-Telekinesis-Server-e2687c447597f3aa9e34eff023a704885cd49ade.tar.bz2
perl-Arctica-Telekinesis-Server-e2687c447597f3aa9e34eff023a704885cd49ade.zip
update telekinesis-server, development state dating 20170619 (Arctica Browser)
Diffstat (limited to 'bin/telekinesis-server')
-rwxr-xr-xbin/telekinesis-server18
1 files changed, 12 insertions, 6 deletions
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;