clean up output a bit

jasonmay · May 15, 2011 · e51cf40 · e51cf40
1 parent 8c0fe10
commit e51cf40
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git a/lib/App/Termcast/Server/Telnet/Acceptor.pm b/lib/App/Termcast/Server/Telnet/Acceptor.pm
@@ -31,7 +31,6 @@ has telnet_dispatcher => (
 
 sub on_accept {
     my ($self, $args) = @_;
-    print "Incoming telnet connection\n";
 
     my $iac = join(
         '',

diff --git a/lib/App/Termcast/Server/Telnet/Dispatcher/Connection.pm b/lib/App/Termcast/Server/Telnet/Dispatcher/Connection.pm
@@ -52,12 +52,12 @@ sub dispatch_menu_inputs {
     my $session = $self->get_stream_from_key($buf);
 
     if ($session) {
-        $self->viewing($session);
+        $stream->viewing($session);
         $stream->handle->syswrite(CLEAR);
 
         #my $file = $self->session_pool->get_unix_stream($session)->handle_path;
 
-        print "connecting to $session\n";
+        print "viewing $session\n";
     }
     else {
         $self->send_connection_list($stream->handle);

diff --git a/lib/App/Termcast/Server/Telnet/Stream/Service.pm b/lib/App/Termcast/Server/Telnet/Stream/Service.pm
@@ -27,8 +27,6 @@ has_many session_collection => (
 sub on_data {
     my ($self, $args) = @_;
 
-    warn "data: $args->{data}\n";
-
     my $data = JSON::decode_json($args->{data});
 
     if ($data->{sessions}) {
@@ -38,15 +36,14 @@ sub on_data {
         }
 
         foreach my $session (@{ $data->{sessions} }) {
-            warn $session->{socket};
             my $handle = IO::Socket::UNIX->new(
                 Peer => $session->{socket},
             ) or do {
                 warn $!;
                 next;
             };
 
-            warn "Connecting to $session->{socket}";
+            print "Connecting to $session->{socket}\n";
 
             my %params = (
                 username        => $session->{user},