topic Re: How to make Telnet Perl Script in Operating System - HP-UX

How to make Telnet Perl Script

jon_90 — Fri, 25 Apr 2003 01:15:39 GMT

Hi,

I need a perl script that will telnet to a router/switch specified by hpov alert. Then it will issue `show proc cpu` and save the result in a text file.

Help will be greatly aprreciated.

Thanks,
jonathan

Re: How to make Telnet Perl Script

Rodel D. Bautista — Fri, 25 Apr 2003 02:10:52 GMT

hi jon,

you can use the Net::Telnet::Cisco package for this purpose. access this site http://nettelnetcisco.sourceforge.net/docs.html to find any reference for Cisco router. attached below is a sample perl script. You can modify this to your needs.

thanks,
Rodel

Re: How to make Telnet Perl Script

Balaji N — Fri, 25 Apr 2003 02:32:14 GMT

hi
not sure of perl script. but an easy solution is to use expect.

expect is used to automate interactive commands.

check out the below link for more details.

http://hpux.connect.org.uk/hppd/hpux/Tcl/expect-5.38/

cheers
-balaji

Re: How to make Telnet Perl Script

Jonathan_63 — Tue, 29 Apr 2003 05:41:07 GMT

Hi Rodel,

Thanks for the script. I have it running already.

Now i want to attach the result file to a sendmail. How would i do it? i have a script using sendmail working, just need the code for attaching a file.

thanks.
jonathan

Re: How to make Telnet Perl Script

Yogeeraj_1 — Tue, 29 Apr 2003 05:58:06 GMT

hi,

One simple way, will be to include the file into the body itself.
========================================================
dt=`date +%y%m%d-%H%M`
errorlogfile="$LOGPATH/mylog$dt.log"
emailadd1="yd@myworld.mu"
subject="My logfile"

/usr/bin/mailx -s "$subject" $emailadd1 < $errorlogfile
========================================================

If you want it as an attachement, try:
/usr/bin/uuencode $errorlogfile "TheLogfile.log"|mailx -m -s "This is the file you need [subject] on `date`" $emailadd1

Hope this helps!
Yogeeraj

Re: How to make Telnet Perl Script

Ralph Grothe — Tue, 29 Apr 2003 06:21:06 GMT

Jonathan,

the easiest way to make a mail attachment is to use the MIME::Lite module from CPAN.

Have a look here for a short sample, or better consult your already installed POD on your system

http://www.perldoc.com/perl5.8.0/pod/perlfaq9.html#How-do-I-use-MIME-to-make-an-attachment-to-a-mail-message-

Re: How to make Telnet Perl Script

Jonathan_63 — Tue, 29 Apr 2003 07:23:52 GMT

Hi Ralph,

Will the Mime::Lite replace this code for sending mail?

# Send Mail
$sendmail = "/usr/lib/sendmail -t";
$to = "To: abc@123.com\n";
$from = "From: 123@abc.com\n";
#$reply_to = "Reply-To: 123@abc.com\n";
$subject = "Subject: Mail\n";
$content = "\n";

open(SENDMAIL, "|$sendmail") or die "Cannot opem $sendmail: $!";
print SENDMAIL $to;
print SENDMAIL $from;
#print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);

Re: How to make Telnet Perl Script

John Meissner — Tue, 29 Apr 2003 10:42:46 GMT

I don't know that much perl but I would use expect.

i'm attaching an example script

Re: How to make Telnet Perl Script

Ralph Grothe — Tue, 29 Apr 2003 11:18:20 GMT

Not necessarily completely since you may combine your more "low level" invocation of your MTA with the module methods.

But (as always with Perl) you have several options since a module like MIME::Lite or the MIME::Tools put an extra abstraction layer over the mail transfer, where you may specify your MTA or let the module take what it detcts as default (this makes your Perl code a bit OS and MTA independent, provided you've got the right set of modules installed).

I'd suggest to get the MIME::Tools from CPAN

http://www.perl.com/CPAN/authors/Eryq/

In it's README you will find that they depend on a couple of other modules because they inherit from them which you also may have to install.

As an attachment I uploaded the output from the POD of MIME::Tools that comes with exactly one example in its synopsis that suits your piping to sendmail way.

Re: How to make Telnet Perl Script

Rodel D. Bautista — Wed, 30 Apr 2003 05:47:48 GMT

hi jon,

how about assigning us some points? I believe I have answered your main query for making a Telnet PERL script.

regards.

Rodel

Re: How to make Telnet Perl Script

Jonathan_63 — Wed, 30 Apr 2003 06:42:58 GMT

Of course! Can you show me how? Sorry.

Re: How to make Telnet Perl Script

Rodel D. Bautista — Sun, 04 May 2003 23:16:03 GMT

hi jon,

just click on the "how to earn points" link and you will find there the procedure to assign points.

thanks.

Re: How to make Telnet Perl Script

Rodney Hills — Mon, 05 May 2003 13:38:11 GMT

To assign points, be sure you connect on with your original sign on of "jon". Your replies to this thread are from a different user.

-- Rod Hills