diff options
| author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 00:01:06 +0200 |
|---|---|---|
| committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2017-06-23 00:01:06 +0200 |
| commit | e2687c447597f3aa9e34eff023a704885cd49ade (patch) | |
| tree | 9fb088daebec9f3e6f2ff87b6414dc800651de0e /bin/telekinesis-server | |
| parent | 7ac7916a30c5aa58dc11b6082ee26a2ae7f12675 (diff) | |
| download | perl-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-x | bin/telekinesis-server | 18 |
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; |