Shell Programming and Scripting

Is it possible to write a Perl script that will attempt to telnet to multiple servers and login to each one?

We have numerous servers and on occasion we are unable to connect. I'd like to be more proactive and have a script that runs every 30 minutes and attempts to login and then will send an email if it can't.

If you just want to check whether the telnet port is reachable you don't quite need to do the real telnet login, right? You may probably just try to set up a connection to the telnet port on that machine with the connect() function, then the return value will tell you whether a TCP connection can be established. This also minimizes the security risk of password eavesdropping.

If you really want to verify a real login, then perhaps

http://search.cpan.org/~jrogers/Net-.../Net/Telnet.pm

will help (I haven't used it before).

#!/bin/bash

export USERNAME=xxxxx
export PDW=xxxxxxxx

cat hosts.txt | while read H
do
( echo open $H
sleep 1
echo $USERNAME
sleep 1
echo $PDW
sleep 1
/somedir/some_script.sh 2>&1 > /dev/null
echo exit ) | telnet
done