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.
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.
. There are some Community driven blogs too like - 
), 
Off lately i devoted my procrastinated time for some script writing for a skit that was supposed to be the part of the on going new year celebration at my office. i have no idea what made take up the task and what the organizers were thinking when they gave it to me. They wanted a Court scene, not the ‘barrister kind’ of court but with king and queen and having some technical dialogs added to it to make it funny. Did they say ‘funny’. Right they have no idea that they just did.
