Hello Perl Guru's!
Does anyone know of a way to get the remote clients hostname with
IO::Socket?
I am new to this socket programming and I am writing a simple socket
server that uses telnet as a client.
I want to have the remote clients hostname appear on the server console
when they connect.
Any ideas or pointers would be appreciated!
-Louie
Here is my code:
use strict;
use IO::Socket;
use Sys::Hostname;
my $host = hostname;
my $port = $ARGV[0] || 4242;
my $pass = $ARGV[1] || "pass";
my $count;
my $sock = new IO::Socket::INET(
LocalHost => $host,
LocalPort => $port,
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);
$sock or die "no socket :$!";
STDOUT->autoflush(1);
my($new_sock, $buf);
while ($new_sock = $sock->accept()) {
pl ("Connected to Console Server on $host TCP Port $port\n");
$buf = <$new_sock>; my @split = split(/\s/, $buf);
if ($split[0] ne $pass) { close $new_sock; }
while (defined($buf = <$new_sock>)) {
my @split = split(/\s/, $buf);
my $cmd = shift @split;
if ($cmd eq 'exit') { close $new_sock; }
if ($cmd eq 'quit') { exit; }
if ($cmd eq 'beep') { beep($split[0]); }
print $new_sock ">"; # print prompt
}
close $new_sock;
}
sub pl {
print "$_[0]\r";
print $new_sock "$_[0]\r";
}
sub beep {
if ($_[0] eq '') { pl ("usage: beep x - where x is the number of
times to beep\n"); return; }
pl ("beeping $_[0] times\n");
for ($count=0; $count<$_[0]; $count++) {
pl ("\007");
}
}
-----------------------------------------
THIS E-MAIL TRANSMISSION, ALL ATTACHMENTS AND THE CONTENTS THEREOF IS
CONFIDENTIAL AND MAY CONTAIN PROTECTED HEALTH INFORMATION. THIS E-MAIL IS
INTENDED ONLY FOR USE BY THE NAMED RECIPIENT. IF YOU ARE NOT THE NAMED
RECIPIENT, PLEASE IMMEDIATELY "REPLY" BY E-MAIL TO THE SENDER, STATING THAT
THIS TRANSMISSION WAS MISDIRECTED, AND DESTROY ALL ELECTRONIC (AND PAPER,
IF ANY) COPIES OF THIS TRANSMISSION AND ANY ATTACHMENTS. ANY UNAUTHORIZED
DISCLOSURE, DISTRIBUTION OR DISSEMINATION OF ANY INFORMATION CONTAINED IN
THIS E-MAIL IS STRICTLY PROHIBITED AND MAY VIOLATE FEDERAL OR STATE LAW.
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
