Telnet - How to not displayed something on web page

Posted by Lalo on November 4, 2008, 4:54 pm

Please log in for more thread options

Hi,

I am using Expect wrapper in perl telnet to machine and do ls -ltra
on remote machine

Everything work fine and I can see the following on my web page :

******************************************************************************
You have chosen : abc.

Your var is : abc:

Telnet AA.BB.CC.DD 2100:

cd /tmp ls -ltra > log2.log ^] Trying AA.BB.CC.DD 2100... Connected to
AA.BB.CC.DD 2100. Escape character is '^]'. telnet> quit Connection
closed.
*********************************************************************

The "problem" is I don't want that portion "cd /tmp ls -ltra >
log2.log ^]" is displayed on web page, I would like that that part be
skipped and not dispayed somehow.

I thought that command Print_start print_end will handle that, but
obviously not.
Below is source code.

Thanks in advance for any help/suggestions.

***************************************************************************
#!/usr/bin/perl -w
use Expect;

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use strict;

print header;

my $exp = new Expect;

my $var = param('VAR');
 print "You have chosen : $var. \n";
 print start_html;
 if ($var eq "abc") {
 print "\n Your var is : $var: \n";
 print "\n Telnet AA.BB.CC.DD 2100: \n";
 my $exp = new Expect;
 my $command = 'telnet AA.BB.CC.DD 2100';
 $exp->spawn($command) or die "Cannot spawn $command: $!\n";
 print " ";
 print end_html;

 print " \n";

 $exp->send("cd /tmp\n");
 $exp->send("ls -ltra > log2.log\n");

 print start_html;
 $exp->send("\x1d\n");
 my $tel = $exp->expect(30, 'telnet>');
 $exp->send("quit\r");
 print end_html;
 $exp->interact();
}

elsif ($var eq "def") {

}

Posted by Ted Zlatanov on November 4, 2008, 6:13 pm

Please log in for more thread options

L> I am using Expect wrapper in perl telnet to machine and do ls -ltra
L> on remote machine

Have you tried Net::Telnet? It makes the task much, much easier than
the way you're doing it.

L> my $var = param('VAR');
L> print "You have chosen : $var. \n";
L> print start_html;
L> if ($var eq "abc") {
L> print "\n Your var is : $var: \n";
L> print "\n Telnet AA.BB.CC.DD 2100: \n";
L> my $exp = new Expect;
L> my $command = 'telnet AA.BB.CC.DD 2100';
L> $exp->spawn($command) or die "Cannot spawn $command: $!\n";
L> print " ";
L> print end_html;

L> print " \n";

L> $exp->send("cd /tmp\n");
L> $exp->send("ls -ltra > log2.log\n");

L> print start_html;
L> $exp->send("\x1d\n");
L> my $tel = $exp->expect(30, 'telnet>');
L> $exp->send("quit\r");
L> print end_html;
L> $exp->interact();
L> }

L> elsif ($var eq "def") {

L> }

Look at the Template module (AKA Template Toolkit), it will make the
above much easier by letting you write a simple web page template you
can fill in with your data. It supports IF-THEN and FOREACH constructs.

I'd suggest doing the work first (in an eval if possible), then
generating the HTML. Otherwise a problem in the telnet session code
will break your page.

Ted

Posted by Lalo on November 5, 2008, 2:32 pm

Please log in for more thread options

> L> I am using Expect wrapper in perl telnet to machine and do ls -ltra

> L> on remote machine

> Have you tried Net::Telnet? It makes the task much, much easier than

> the way you're doing it.

> L> my $var = param('VAR');

> L> print "You have chosen : $var. \n";

> L> print start_html;

> L> if ($var eq "abc") {

> L> print "\n Your var is : $var: \n";

> L> print "\n Telnet AA.BB.CC.DD 2100: \n";

> L> my $exp = new Expect;

> L> my $command = 'telnet AA.BB.CC.DD 2100';

> L> $exp->spawn($command) or die "Cannot spawn $command: $!\n";

> L> print " ";

> L> print end_html;

> L> print " \n";

> L> $exp->send("cd /tmp\n");

> L> $exp->send("ls -ltra > log2.log\n");

> L> print start_html;

> L> $exp->send("\x1d\n");

> L> my $tel = $exp->expect(30, 'telnet>');

> L> $exp->send("quit\r");

> L> print end_html;

> L> $exp->interact();

> L> }

> L> elsif ($var eq "def") {

> L> }

> Look at the Template module (AKA Template Toolkit), it will make the

> above much easier by letting you write a simple web page template you

> can fill in with your data. It supports IF-THEN and FOREACH constructs.

> I'd suggest doing the work first (in an eval if possible), then

> generating the HTML. Otherwise a problem in the telnet session code

> will break your page.

> Ted

Thank you Ted.

I'll take a look at.
To be honest, I haven't looked into it.

Thanks again,
Lalo

Similar Threads	Posted
Page can not be displayed...	December 17, 2004, 11:18 pm
Page can not be displayed...	December 18, 2004, 4:26 am
Page can not be displayed...	December 19, 2004, 12:13 pm
Page can not be displayed...	December 19, 2004, 1:02 pm
Page can not be displayed...	December 19, 2004, 10:12 pm
Why My XML can't be displayed	January 27, 2005, 3:55 pm
labels not displayed when using win32::MsgBox on WIN XP	December 17, 2004, 2:07 am
Labels not displayed when using Win32::MsgBox, more information provided	December 20, 2004, 12:50 am
How to set the message displayed when a Perl Script fails compilation?	March 14, 2009, 9:32 pm
LWP user agent grabs the intermediate wait page after POST intead of the actual result page	February 12, 2008, 12:50 am