Hello all. I'm trying to create a minimal Telnet client using a simple Gtk2 window to display text received and commands sent.

Alas! After the first packet of data is received, it stops working. I wonder if anyone can see why?

#!/usr/bin/perl
# Minimal telnet client

use strict;
use diagnostics;
use warnings;

use Glib qw(TRUE FALSE);
use Gtk2 '-init';
use Net::Telnet;

# Which host to connect to? (For convenience, I'm using a popular MUD)
my $host = 'bat.org';
my $port = 23;
# (The Net::Telnet object we'll create)
my $telnetObj;          

# Open a Gtk2 window, with a Gtk2::TextView to display incoming text, 
+and a Gtk2::Entry for sending
#   commands    
my $window = Gtk2::Window->new('toplevel');
$window->set_title('Minimal telnet client');
$window->set_position('center');
$window->set_default_size(600, 400);
$window->signal_connect('delete-event' => sub {

    Gtk2->main_quit();
    exit;
});
            
my $vPaned = Gtk2::VPaned->new();
$window->add($vPaned);
$vPaned->set_position(350);

my $scrollWin = Gtk2::ScrolledWindow->new(undef, undef);
$vPaned->add1($scrollWin);
$scrollWin->set_policy('automatic', 'automatic');     
$scrollWin->set_border_width(0);

my $textView = Gtk2::TextView->new;
$scrollWin->add_with_viewport($textView);
$textView->can_focus(FALSE);
$textView->set_wrap_mode('word-char');
$textView->set_justification('left');
my $buffer = $textView->get_buffer();

my $entry = Gtk2::Entry->new();
$vPaned->add2($entry);
$entry->signal_connect(activate => sub {

    # When the user enters a command, empty the entry box and (if the 
+connection is open), send the 
    #   command to the host, and display the command in the textview
    my $cmd = $entry->get_text();
    $entry->set_text('');
            
    if ($telnetObj) {
        
        $telnetObj->put($cmd);

        Gtk2->main_iteration() while Gtk2->events_pending();
        my $iter = $buffer->get_end_iter();
        $textView->get_buffer->insert_with_tags_by_name($iter, $cmd . 
+"\n");
    }
});  
    
$window->show_all();   

# Set up a main loop
my $id = Glib::Timeout->add(100, sub{ &mainLoop($telnetObj, $textView,
+ $buffer) });
if (! $id) {

    exit;
}
           
# Open a telnet connection to the host
$telnetObj = Net::Telnet->new(
    Timeout => 15,
);

$telnetObj->open(
    Host        => $host,
    Port        => $port,
    Errmode     => sub { &disconnected(); },
);

# Start Gtk2's main loop
Gtk2->main();
    
# ####################################################################
+##############################

sub mainLoop {
    
    my ($telnetObj, $textView, $buffer) = @_;
            
    my $text = $telnetObj->get(
        Errmode => sub { },
        Timeout => 0,
    );
    
    if ($text) {
        
        # We've received some text from the host. Display it in the te
+xtview
        my $iter = $buffer->get_end_iter();
        $buffer->insert_with_tags_by_name($iter, $text);
    }

    return 1;
}

sub disconnected {
    print "Disconnected\.\n";
    exit;
}

sub connectError {
    print "Connection error\.\n";
    exit;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.