diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Arctica/Telekinesis/Server.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Arctica/Telekinesis/Server.pm b/lib/Arctica/Telekinesis/Server.pm index cf7f958..657e777 100644 --- a/lib/Arctica/Telekinesis/Server.pm +++ b/lib/Arctica/Telekinesis/Server.pm @@ -105,7 +105,7 @@ sub c2s_service_neg { my $jdata = $_[1]; my $sclient_id = $_[2]; my $bself = $_[3]; - print "SRVCNEG:\t",Dumper($jdata),"\n"; +# print "SRVCNEG:\t",Dumper($jdata),"\n"; if ($jdata->{'step'} eq 1) { # Client told us which services it can provide, # We check if we're able to play ball... if server side is version match we're all good. @@ -125,7 +125,7 @@ sub c2s_service_neg { $self->{'status'}{'active'} = 1; if ($self->{'running_apps'}) { foreach my $rapp_id (sort (keys %{$self->{'running_apps'}})) { - print "\t\t$rapp_id\n"; +# print "\t\t$rapp_id\n"; $self->tekicli_send('csappreg',$rapp_id); } } @@ -137,7 +137,7 @@ sub c2s_service_neg { sub tekicli_send { my $self = $_[0]; if ($self->{'TeKiCli'}{'sclient_id'} and $self->{'TeKiCli'}{'_send2sock'}) { - print "\t\t1:\t$_[1]\n\t\t2:$_[2]\n"; +# print "\t\t1:\t$_[1]\n\t\t2:$_[2]\n"; $self->{'TeKiCli'}{'_send2sock'}->server_send($self->{'TeKiCli'}{'sclient_id'},$_[1],$_[2]); } } @@ -147,9 +147,9 @@ sub tekicli_socauth_ok { my $self = $_[0]; my $sclient_id = $_[1]; my $bself = $_[2]; - print "CLI AUTH\t$sclient_id\n"; +# print "CLI AUTH\t$sclient_id\n"; my $declared_id = $bself->server_get_client_info($sclient_id,'declared_id'); - if (($declared_id->{'app_name'} eq "telekinesis-client") and ($declared_id->{'app_class'} eq "noclass")) {# FIXME! CHANGE noclass TO telekinesis-core after finding and fixing the root cause which is probably where we inititally set this stuff.... + if (($declared_id->{'app_name'} =~ /telekinesis-client/) and ($declared_id->{'app_class'} eq "noclass")) {# FIXME! CHANGE noclass TO telekinesis-core after finding and fixing the root cause which is probably where we inititally set this stuff.... BugOUT(8,"TeKi Server tekicli_socauth_ok->TeKi-Cli Staring Conn Init stuff...."); if ($self->{'TeKiCli'}{'sclient_id'}) { $self->_tekicli_clean_oldcliconn($self->{'TeKiCli'}{'sclient_id'}, $bself); @@ -192,7 +192,7 @@ sub tekicli_lostconn { my $self = $_[0]; my $sclient_id = $_[1]; my $bself = $_[2]; - print "YAY WE LOST CLIENT:\t$sclient_id\n"; +# print "YAY WE LOST CLIENT:\t$sclient_id\n"; if ($sclient_id eq $bself->{'TeKiCli'}{'sclient_id'}) { BugOUT(9,"TeKi Server tekicli_lostconn->LOST ACTIVE CLIENT?"); $self->_tekicli_clean_oldcliconn($sclient_id, $bself); @@ -205,7 +205,7 @@ sub tekicli_lostconn { sub app_init {# FIXME! Are we still using this one? my $self = $_[0]; my $app_id = $_[1]; - print "GOT APP INIT:\t$app_id\n\t[",$self->{'running_apps'}{$app_id}{'scli_id'},"]\n"; +# print "GOT APP INIT:\t$app_id\n\t[",$self->{'running_apps'}{$app_id}{'scli_id'},"]\n"; if ($self->{'running_apps'}{$app_id}{'scli_id'}) { warn("ASK APP TO INIT!"); $self->{'socks'}{'local'}->server_send("$self->{'running_apps'}{$app_id}{'scli_id'}",'appinit',"HELLO") @@ -219,7 +219,7 @@ sub _app_reg { my $bself = $_[3]; my $declared_id = $bself->server_get_client_info($sclient_id,'declared_id'); if ($declared_id->{'app_class'} eq "noclass") {# FIXME! CHANGE noclass TO tekiapp after finding and fixing the root cause which is probably where we inititally set this stuff.... - print "APPREG:\t",Dumper($declared_id),"\n"; +# print "APPREG:\t",Dumper($declared_id),"\n"; if ($self->{'running_apps'}{$declared_id->{'self_aID'}}) { BugOUT(8,"TeKi Server _app_reg-> Previously registered"); # If previously registered.... remove server and client side instances. @@ -246,10 +246,10 @@ sub _app_reg { } if ($self->{'status'}{'active'} eq 1) { - print "241\tACTIVE!?\n"; +# print "241\tACTIVE!?\n"; $self->tekicli_send('csappreg',$declared_id->{'self_aID'}); } else { - print "243\tNOT!!! ACTIVE!?\n"; +# print "243\tNOT!!! ACTIVE!?\n"; } } else { |