AW: sending commands to a remote server using telnet.pm

[Sage, Christian]

Cybear,

haven't done a lot of work with Net::Telnet, but in my experience your version #1 
should run fine. It did for me, I just looked it up in a couple of old scripts. If you 
want to process the screen printout of the command, though, you will need to capture 
it. For example one of the things I did was (translating into English on the fly, 
therefore it might not compile):

        @result = $telnetSession->cmd("showrev -p");

Then I could iterate through the result, as in

        foreach $line (@result) {
        chomp($line);
        ($buffer, $name, $description) = $zeile =~ /(\S+)\s+(\S+)\s+(.*)/;
        if (defined($name) and ($name =~ /-/)) {
          ($name, $version) = split("-", $name);
          $liste{$name}->{type} = "patch";
          $liste{$name}->{version} = $version;
          $liste{$name}->{description} = $description;
        }
      } 

I was collecting os patch lists from our Solaris boxes there (we have a dozen boxes 
that are supposed to be identical at the patch level), and that has always worked. By 
the way, are you sure you're not having permission problems with the command you're 
trying to issue? No offense intended, I've been known to make such a mistake 
occasionally ...

Cheers,
Christian

-----Ursprüngliche Nachricht-----
Von: Fields, Aubrey [mailto:[EMAIL PROTECTED]]
Gesendet am: Donnerstag, 9. August 2001 10:55
An: 'CGI Beginners'
Betreff: sending commands to a remote server using telnet.pm

List, 

        I have a cgi on my site that collects a users name and password from a form 
then uses telnet.pm to login to a remote server and run a command. I need to pass a 
parameter to this command but cannot figure out how.

This is what I have working... 
#!/usr/bin/perl -w
use CGI qw(:standard);
use Telnet ();

$username=param ("userid");
$passwd=param ("password");

$t= new Net::Telnet (Timeout => 20, Prompt => '/huey:*/' );
# use the prompt that will be seen if the telnet works #

$t->open("huey");
$t->login($username, $passwd);

this is a list of some of the different ways that I have tried to run this command.

#1) $t->cmd("/home/redars/monster 7 dontburn");

#2) $t->print("/data3/ops/scripts/monster", "7", "dontburn");

#3) $t->print("/data3/ops/scripts/monster");
      $t->print("7");
      $t->print("dontburn");

Does anyone have any ideas?

Cybear



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]