- Home
- Programming
- Prog Languages
- Perl
- Perl:: Using Net telnet with SSH. Attaching stdin to a different co...
Advertisement
| Hall of Fame |
- 1. nemws160,280
- 2. ozo54,400
- 3. Tintin39,034
- 4. zlobcho36,298
- 5. FishMonger35,410
- 6. Adam31429,950
- 7. wilcoxon19,200
- 8. Fairlight2cx16,200
- 9. fusiondog10,900
- 10. vikaskhoria8,564
- 11. clockwatc...8,400
- 12. woolmilkp...6,000
- 12. Ray_Pas...6,000
- 14. kawas5,200
- 15. bounsy4,500
- 15. deiaccord4,500
- 17. mjcoyne4,300
- 18. tdlewis4,200
- 19. jbmraja4,075
- 20. szlamp4,000
- 20. TerryAtO...4,000
- 20. Rick_Atr...4,000
- 20. simon32704,000
- 20. Psy0534,000
- 20. svgmuc4,000
- 20. SleepinDe...4,000
- 1. ozo4,328,113
- 2. Adam3142,637,520
- 3. Tintin933,769
- 4. FishMonger663,311
- 5. kandura579,965
- 6. mjcoyne535,316
- 7. jmcg517,810
- 8. teraplane395,888
- 9. maneshr385,976
- 10. manav_m...338,348
- 11. clockwatc...271,262
- 12. ahoffmann232,962
- 13. rj2211,481
- 14. mrjoltcola182,498
- 15. nemws1168,252
- 16. davorg153,165
- 17. kawas117,361
- 18. suhasbha...113,462
- 19. Tim_Utsc...113,107
- 20. shlomoy109,110
- 21. gripe100,059
- 22. hielo93,420
- 23. lwadwell84,591
- 24. nedfine83,157
- 25. Perl_Diver82,106
|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| Question |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
Perl:: Using Net telnet with SSH. Attaching stdin to a different console(I think)
Asked by TristinColby in Perl Programming Language
Tags: ssh, perl
I'm trying to write a script to change a password on several linux boxes. I know I can do it using Net::Telnet if I can create a console then start the ssh client then attach that console to stdin. Can someone enlighten me on how to start ssh then attach that console to stdin.. Below is an example from the Net::Telnet documentation. I need to do a passwd on the remote box, then waitfor a prompt then enter the old pass then the new one twice. I can accomplish this if I can figure out how to attach it to the stdin.
## Main program.
{
my ($pty, $ssh, @lines);
my $host = "changeme";
my $user = "changeme";
my $password = "changeme";
my $prompt = '/changeme:~> $/';
## Start ssh program.
$pty = &spawn("ssh", "-l", $user, $host); # spawn() defined below
## Create a Net::Telnet object to perform I/O on ssh's tty.
use Net::Telnet;
$ssh = new Net::Telnet (-fhopen => $pty,
-prompt => $prompt,
-telnetmode => 0,
-cmd_remove_mode => 1,
-output_record_separator => "\r");
## Login to remote host.
$ssh->waitfor(-match => '/password: ?$/i',
-errmode => "return")
or die "problem connecting to host: ", $ssh->lastline;
$ssh->print($password);
$ssh->waitfor(-match => $ssh->prompt,
-errmode => "return")
or die "login failed: ", $ssh->lastline;
## Send command, get and print its output.
@lines = $ssh->cmd("who");
print @lines;
exit;
} # end main program
sub spawn {
my(@cmd) = @_;
my($pid, $pty, $tty, $tty_fd);
## Create a new pseudo terminal.
use IO::Pty ();
$pty = new IO::Pty
or die $!;
## Execute the program in another process.
unless ($pid = fork) { # child process
die "problem spawning program: $!\n" unless defined $pid;
## Disassociate process from existing controlling terminal.
use POSIX ();
POSIX::setsid
or die "setsid failed: $!";
## Associate process with a new controlling terminal.
$tty = $pty->slave;
$tty_fd = $tty->fileno;
close $pty;
## Make stdio use the new controlling terminal.
open STDIN, "<&$tty_fd" or die $!;
open STDOUT, ">&$tty_fd" or die $!;
open STDERR, ">&STDOUT" or die $!;
close $tty;
## Execute requested program.
exec @cmd
or die "problem executing $cmd[0]\n";
} # end child process
$pty;
} # end sub spawn
| [+][-]01/15/07 03:06 PM, ID: 18320144Accepted Solution |
Your question has an Asker Certified™ answer! TristinColby verified that this solution worked for them--which means it will likely work for you, too. Click to view the solution free for 30-days now.
