Advertisement
Guest User

Untitled

a guest
May 29th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.55 KB | None | 0 0
  1. #!/usr/bin/perl
  2. #
  3. use strict;
  4. #use warnings;
  5. #
  6. #
  7. use Net::SSH::Perl
  8. my $user="bluethundr";
  9. my $pass="secret";
  10. my $dir="$ENV{HOME}/data";
  11. open LBVSERVERS, "< $dir/lb-vserver", or die "Couldn't open file: $!";
  12. open CSVSERVERS, "< $dir/cs-vserver", or die "Couldn't open file: $!";
  13.  
  14.  
  15. my $ssh = Net::SSH::Perl->new("10.50.0.1");
  16. $ssh->login("$user", "$pass");
  17.  
  18. print "\n\n\n\n\n**********LB VSERVERS**********\n\n\n\n\n";
  19. while (my $line = <LBVSERVERS>) {
  20. chomp $line;
  21. my ($number, $lbvserver) = split(/\s+/, $line);
  22. print "show lb vserver $lbvserver\n";
  23. $ssh->cmd("show lb vserver $lbvserver");
  24. chomp(my $ans = <STDIN>);
  25. print "Ready for next lb vserver? (y/n): ";
  26. if ($ans=~/y|Y/) {
  27. next;
  28. } else {
  29. chomp(my $done = <STDIN>);
  30. print "Quit? (y/n): ";
  31. if($ans=~/y|Y/) {
  32. last;
  33. } else {
  34. next;
  35. }
  36. }
  37.  
  38.  
  39.  
  40. print "\n\n\n\n\n**********CS VSERVERS**********\n\n\n\n\n";
  41. while (my $line = <CSVSERVERS>) {
  42. chomp $line;
  43. my ($f1, $f2, $f3, $csvserver) = split(/\s+/, $line);
  44. print "show cs vserver $csvserver";
  45. $ssh->cmd("show cs vserver $csvserver");
  46. print "Ready for next lb vserver? (y/n): ";
  47. if ($ans=~/y|Y/) {
  48. next;
  49. } else {
  50. chomp(my $done = <STDIN>);
  51. print "Quit? (y/n): ";
  52. if($ans=~/y|Y/) {
  53. last;
  54. } else {
  55. next;
  56. }
  57. }
  58. }
  59. }
  60.  
  61.  
  62. close LBVSERVERS;
  63. close LBVSERVERS;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement