From d25f72e0c03df2902d6ed90aacb8d08036bd38bc Mon Sep 17 00:00:00 2001
From: Mike Gabriel <mike.gabriel@das-netzwerkteam.de>
Date: Wed, 21 Jun 2017 13:28:37 +0200
Subject: Update to latest development status (Arctica Browser development)
 dating 20170621.

---
 lib/Arctica/Telekinesis/Client.pm | 32 +++++++++++++++++++++++++-------
 1 file changed, 25 insertions(+), 7 deletions(-)

diff --git a/lib/Arctica/Telekinesis/Client.pm b/lib/Arctica/Telekinesis/Client.pm
index 5d7cc04..ff6c844 100644
--- a/lib/Arctica/Telekinesis/Client.pm
+++ b/lib/Arctica/Telekinesis/Client.pm
@@ -149,10 +149,20 @@ sub target_spawn {
 	
 	print "Spawning target:\t$app_id\n$ttid\n";
 	if ($self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'service'} eq 'multimedia') {
-# obviously want to do this in a more elegant and generic fashion! (but Mother::Forker is a bit overkill here since we're going to chitchat on the j.buz)
+		if ($self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'tmplnkid'}) {#TMP GARBAGE 
+			print "\n<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<\n\n\n\nYAY IT MADE IT THIS FAR\nID:\t$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'tmplnkid'}\n\n";
+
+#			sleep 10;
+# obviously want to do this in a more elegant and generic fashion! (but Mother::Forker is a bit overkill here since we're going to chitchat on JABus)
+
 #print "<<<<<<<<<<<<<SPAWN>>>>>>>>>>>>>>>>\n";
+
 #		my $pid = open(my $fh,"|-",'./forkedmmoverlay.pl',$app_id,$ttid,$self->{'socks'}{'local'}{'_socket_id'});
-		system("forkedmmoverlay.pl $app_id $ttid $self->{'socks'}{'local'}{'_socket_id'} &");
+
+		        if ($self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'tmplnkid'} =~ /^([a-zA-Z0-9\_\-]*)$/) {
+				system("forkedmmoverlay.pl $app_id $ttid $self->{'socks'}{'local'}{'_socket_id'} $1 &");
+			}
+                }
 	} else {
 		warn("Unknown service $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'service'}");
 	}
@@ -205,7 +215,7 @@ sub target_state_change {
 		}
 
 		if ($data->{'data'}{'t'}) {
-			print "DATA/T:\n";
+			warn("DATA/T:");
 			foreach my $ttid (keys $data->{'data'}{'t'}) {
 				print "\t$ttid\n";
 				if ($data->{'data'}{'t'}{$ttid} and $self->{'running_apps'}{$app_id}{'targets'}{$ttid}) {
@@ -213,6 +223,10 @@ sub target_state_change {
 					foreach my $key (keys $data->{'data'}{'t'}{$ttid}) {
 						print "\t\t\tDEEPER 2:\t$key\n";
 						if ($data->{'data'}{'t'}{$ttid}{$key} ne $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{$key}) {
+#							if  ($data->{'data'}{'t'}{$ttid}{'alive'}) {
+
+
+#							}
 							print "\t\t\t\tD3:\t[$data->{'data'}{'t'}{$ttid}{$key}]\t[$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{$key}]\n";
 							$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{$key} = $data->{'data'}{'t'}{$ttid}{$key};
 						}
@@ -231,6 +245,7 @@ sub target_state_change {
 }
 
 sub target_send_state_changes {
+	warn("STATE CHANGE????????????????????????????");# FUCK ME
 	my $self = $_[0];
 	my $app_id = $_[1];
 	my $ttid = $_[2];
@@ -241,11 +256,14 @@ sub target_send_state_changes {
 #		my %ws = $self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'};
 #		my $ts = $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'};
 		
-		my $apx = ($self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'of_x'}
-				+ $self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'x'}
+		my $apx = (
+#				$self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'of_x'} +
+				$self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'x'}
 				+ $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{'x'});
-		my $apy = ($self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'of_y'}
-				+ $self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'y'}
+
+		my $apy = (
+				#$self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'of_y'}+
+				$self->{'running_apps'}{$app_id}{'windows'}{$self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'window'}}{'state'}{'y'}
 				+ $self->{'running_apps'}{$app_id}{'targets'}{$ttid}{'state'}{'y'});
 		
 		my $visible = 0;
-- 
cgit v1.2.3