This was an interesting problem, so I put together a program that is both a telnet chat server and an HTTP server. The HTTP server returns a log of recent chatter on the telnet server.

#!/usr/bin/perl

use warnings;
use strict;

use CGI qw(:standard);               # For HTML building functions.
use POE;
use POE::Component::Server::HTTP;    # For the web interface.

use POE::Component::Server::TCP;     # For the telnet interface.

sub MAX_LOG_LENGTH () { 50 }
my @chat_log;

### Start the web server.

POE::Component::Server::HTTP->new
  ( Port => 32080,
    ContentHandler => { "/"    => \&web_handler },
    Headers        => { Server => 'See http://poe.perl.org/?POE_Cookbo
+ok' },
  );

### Start the chat server.

POE::Component::Server::TCP->new
  ( Alias => "chat_server",
    Port               => 32081,
    InlineStates       => { send => \&handle_send },
    ClientConnected    => \&client_connected,
    ClientError        => \&client_error,
    ClientDisconnected => \&client_disconnected,
    ClientInput        => \&client_input,
  );

### Run the servers together, and exit when they are done.

$poe_kernel->run();
exit 0;

### Handlers for the web server.  These functions are commented at
### http://poe.perl.org/?POE_Cookbook/Web_Server_With_Components

sub web_handler {
    my ( $request, $response ) = @_;

    # Build the response.
    $response->code(RC_OK);
    $response->push_header( "Content-Type", "text/html" );

    my $count   = @chat_log;
    my $content =
      start_html("Last $count messages.") . h1("Last $count messages."
+);

    if ($count) {
        $content .= ul( li( \@chat_log ) );
    }
    else {
        $content .= p("Nothing has been said yet.");
    }

    $content .= end_html();
    $response->content($content);

    # Signal that the request was handled okay.
    return RC_OK;
}

### Handlers for the chat server.  These functions are commented at
### http://poe.perl.org/?POE_Cookbook/Chat_Server

my %users;

sub broadcast {
    my ( $sender, $message ) = @_;

    # Log it for the web.  This is the only part that's different from
    # the basic chat server.
    push @chat_log, "$sender $message";
    shift @chat_log if @chat_log > MAX_LOG_LENGTH;

    # Send it to everyone.
    foreach my $user ( keys %users ) {
        if ( $user == $sender ) {
            $poe_kernel->post( $user => send => "You $message" );
        }
        else {
            $poe_kernel->post( $user => send => "$sender $message" );
        }
    }
}

sub handle_send {
    my ( $heap, $message ) = @_[ HEAP, ARG0 ];
    $heap->{client}->put($message);
}

sub client_connected {
    my $session_id = $_[SESSION]->ID;
    $users{$session_id} = 1;
    broadcast( $session_id, "connected." );
}

sub client_disconnected {
    my $session_id = $_[SESSION]->ID;
    delete $users{$session_id};
    broadcast( $session_id, "disconnected." );
}

sub client_error {
    my $session_id = $_[SESSION]->ID;
    delete $users{$session_id};
    broadcast( $session_id, "disconnected." );
    $_[KERNEL]->yield("shutdown");
}

sub client_input {
    my ( $session, $input ) = @_[ KERNEL, SESSION, ARG0 ];
    broadcast( $session->ID, "said: $input" );
}
[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.