Shell Programming and Scripting

#!/usr/bin/expect
set hostlist [open ./host_list]
set ipaddrs [read $hostlist]

foreach line [split $ipaddrs \n] {

        spawn scp id_dsa.pub root@$line:~/.ssh
        set pass "abc123"
        expect {
        "yes/no" {send "yes\r"}
        password: {send "$pass\r"; exp_continue}
                  }
}

#!/usr/bin/perl -w

use strict;
use Net::Ping;
use Net::SSH::Expect;
use IO::Prompt;
use Term::ReadKey;
$|=1; #flushes IO Writehandle

my $passwd = prompt("Please enter password:", -e => '*');
my $passwd1 = prompt("Please enter second password:", -e => '*');

open (HOSTS, "host_list") or die "can't find it! $!\n";
my  @lines =<HOSTS>;
        foreach my  $line(@lines){
                chomp($line);
                my $p = Net::Ping->new("icmp");
                unless($p->ping($line)){
                       print "$line <-- is unreachable please investigate \n";
                }else {
                        &log_in($line,$passwd,$passwd1);
                }
         $p->close();
        }

close (HOSTS);
sub log_in{
my $timeout = 1;

my $cmd = 'cat  ~/.ssh/id_dsa.pub >>  ~/.ssh/authorized_keys2';
my ($line,$passwd,$passwd1) = @_;

        #Create expect object and spawn;
        my $exp = new Expect() or die "Cannot spawn ssh command\n";

        $exp->raw_pty(0);
        $exp->log_file ("output.log");

        $exp->spawn("ssh -l root $line") or die "Invalid data passed to server... $!\n";


        $exp->expect($timeout, ["[Tt]he" => sub {$_[0]->send("yes\n");}]);


        $exp->expect($timeout, ["[Pp]assword" => sub { $_[0]->send("$passwd\n"); }]);


        $exp->expect($timeout, ["[Pp]ermission" => sub {$_[0]->send("$passwd1\n");}]);


        $exp->expect($timeout, [ "[Rr]oot" => sub { $_[0]->send("$cmd\n"); } ]);

        #sleep 2;

        $exp->expect($timeout, [ "prompt-string" => sub { $_[0]->send("exit\n"); } ]);

       }

#!/bin/bash
for (( i = 1; i <= 10; i++ )); do
./expect-scp.exp id_dsa.pub root hpc2-bl$i mypassword
done

#!/usr/bin/expect -f
set filename [lindex $argv 0]
set user [lindex $argv 1]
set server [lindex $argv 2]
set pass [lindex $argv 3]
set timeout -1
spawn scp $filename $user@$server:~/.ssh
expect {
        password: {send "$pass\r" ; exp_continue}
        eof exit
}

#!/bin/bash
for (( i = 1; i <= 10; i++ )); do
./expect-login.exp hpc2-bl$i root mypassword
done

#!/usr/bin/expect -f
set timeout 30

#example of getting arguments passed from command line..
#not necessarily the best practice for passwords though...
set server [lindex $argv 0]
set user [lindex $argv 1]
set pass [lindex $argv 2]

# connect to server via ssh, login, and su to root
send_user "connecting to $server\n"
spawn ssh $user@$server

#login handles cases:
#   login with keys (no user/pass)
#   user/pass
#   login with keys (first time verification)
expect {
  "> " { }
  "$ " { }
  "# " { }
  "assword: " {
        send "$pass\n"
        expect {
          "> " { }
          "$ " { }
          "# " { }
        }
  }
  "(yes/no)? " {
        send "yes\n"
        expect {
          "> " { }
          "$ " { }
          "# " { }
        }
  }
  default {
        send_user "Login failed\n"
        exit
  }
}

#example command
#send "ls\n"
send  "cat ~/.ssh/id_dsa.pub >> ~/.ssh/authorized_keys2\n"

expect {
    "> " {}
    "# " {}
    default {}
}

#login out
send "exit\n"

expect {
    "> " {}
    "# " {}
    default {}
}

send_user "finished\n"

#!/bin/bash
for (( i = 1; i <= 10; i++ )); do
ssh root@hpc2-bl$i 'bash -s' < install_iostat_hpc2.sh
done

#!/bin/bash
rpm -i sysstat-9.0.6.1-4.fc14.x86_64.rpm
chmod +x /usr/local/nagios/libexec/check_cpu.sh
/usr/lib64/nagios/plugins/check_cpu.sh
echo "command[check_cpu]=/usr/local/nagios/libexec/check_cpu.sh" >> /etc/nagios/nrpe.cfg

#!/bin/bash
for (( i = 1; i <= 10; i++ )); do
scp check_cpu.sh hpc2-bl$i.datadomain.com:/usr/local/nagios/libexec
scp sysstat-10.0.0.tar.gz hpc2-bl$i.datadomain.com:~/
done