anybody know how to use Net::Telnet ??

I'm looking to connect to port 4501 (eXtremail)
but, I don't know the Prompt & what, if anything can be input, or output..


Thanks in Advance.

Are you asking how to use the Net::Telnet module itself or how to use it to interact with telnet services?

This is what I found, worked some years ago (perhaps Net::Telnet changed since then).
But I'm not sure if your app is really controllable via telnet.

#!/usr/bin/perl -w

use strict;
use Net::Telnet ();

my $t = new Net::Telnet (Timeout => 10);
$t->open("pc");
$t->login("user", "pwd");
my @lines = $t->cmd("/usr/bin/who");
print @lines;

This one is a little bit more complex, I used it to control winamp via a telnet-like plugin:

use Net::Telnet ();

$host = "rs6387";
$cmd1 = "setvol 255 ";
$cmd2 = "setvol 100";
$delay1 = 1;
$delay2 = 15;

$tries = 0;
undef $t;

while( !$t )
{
$t = new Net::Telnet( Host => $host, Timeout => 5, Port => 3200, Errmode => 'return' );

if( ! $t )
{
print "ischgriegdisch (" . $tries++ . ")\r";
sleep( 5 );
}

}

print "\n\n";

system( "net send ...." );
system( "net send ...." );

$t->prompt( '/done./' );

$t->cmd( "isplaying" );
$lastcmd = $t->lastline();

print "$lastcmd\n";

if( $lastcmd =~ /Playing/ )
{
print "Läuft bereits\n";
}
if( $lastcmd =~ /Paused/ )
{
print "sende pause-Kommando\n";
$t->cmd( "pause" );
}
if( $lastcmd =~ /not playing/ )
{
print "sende play-Kommando\n";
$t->cmd( "play" );
}
# letzte Chance ...
if( !( $lastcmd =~ /Playing/ ) )
{
$t->cmd( "play" );
}



while( 1 )
{
@lines = $t->cmd( $cmd1 );
print @lines;
sleep( $delay1 );
@lines = $t->cmd( $cmd2 );
print @lines;
sleep( $delay2 );
}

Hope this helps

Thanks for the info to bwMarkus,

to jinksys, I'm looking to learn how to interact with telnet, truly spicifically eXtremail, but almost any telnet port will be a step in the right direction...

What exactly is extreme mail, is it a POP3 mail server?
Im going to need to know exactly what it is to tell you how
you should go about communicating with it. If you want to learn
how to interact with telnet servers themselves, you will need to understand how telnet works. Id go and read up the RFC on telnet.

-hope that helps

eXtremail is a POP/SMTP server, I know a good amout about telnet in general, but eXtremail & oping ports & communicating is new to me with perl. Plus I've recently found a script written in PHP that I'm currently taring apart that does the same thing

Thanks