There are many tutorials on the net on how to use the Net::Telnet module to write a script that will automate a telnet session. Perhaps the best place is the CPAN site itself. Though all i needed was a simple script that did the job, i had to scour through many other sites for reference. Finally i’m done with the script that will telnet to the server collect the logs and then mail it to the id that i specified.
I wrote the working version as two perl scripts. I still dont know why i did that, may be for the simplicity sake.
- log.pl => does the telnet to retrieve the logs and mail it to me
- run.pl => which runs the log.pl every hour
So here is the code -
log.pl
#!/usr/bin/perl
use Telnet;
# ---------------------------
$date = `date`;
chop $date;
$mailId = "jerry\@jerrymannel.com";
$cmd = "cat in.log | mail ".$mailId." -s \"Logs - ".$date."\" ";
# ---------------------------
$host = "192.168.1.100";
$port = "2300";
$uid = "jerry";
$pwd = "password";
open $inputLog, ">in.log";
$box = new Net::Telnet();
$box->open( Host => $host,
Port => $port,
);
$iLog = $box->input_log($inputLog);
$flag = $box->login( Name => $uid,
Password => $pwd,
);
$box->print("co");
$box->waitfor('/# $/i');
$box->print("show load;show cpu");
$box->waitfor('/# $/i');
$box->print("show log");
$box->waitfor('/# $/i');
$box->close;
# MAIL section
system $cmd;
exit
run.pl
#!/usr/bin/perl
while (1)
{
$date = `date +%M%S`;
chop $date;
#print $date." - ";
if ( $date eq "0000" )
{
print "Sending the mail @ - ".(`date`);
system("./logs.pl");
}
sleep(1);
}
The script was run on a Linux machine. So i neednt worry about the ‘date’ command and getting the date printed out in a fashion that i needed.
Drop in a line of you have more queries on the script. Always happy to help.
No. Hey, but look at it this way. Its some relief for us on windows platform for scripting.
, humor was not the order of the day.
course about my friend 
I had my concerns. Microsoft has been stealing the show with its sleeky looks and publicity. If there is somebody at the market that can sell a rickety old-bus just by repainting it, its Microsoft.
The discussions drifted from some serious discussions on What to be done on profanity?, What formed the basis of Moderating a Comment?, The Do’s and Dont’s of Blogging..etc to some fun stuffs that i shared with them. Interestingly people didnt know what RSS feeds are. So got someone to explain the whole RSS funda to them.
