krimdomu

We couldn’t find that file to show.

krimdomu

#######################
# Rexfile
#######################

task "test", sub {

   my @arr = ("one", "two", "three");

   my %hash = (
      name => "foo",

krimdomu

# Rexfile

group "webservers" => "srv1", "srv2";
group "database" => "db1", "db2";

require Webservers;
require Databases;

###
# File: lib/Webservers.pm

krimdomu

my @group1 = qw/host1 host2 host3/;
my @group2 = qw/srv1 srv2 srv3/;

group one => @group1;
group two => @group2;
group all => @group1, @group2;

task "prepare", group => "all", sub {
};

krimdomu

use Rex::Hardware;
use Data::Dumper;

user "root";
password "f00b4r";
pass_auth;

group myservers => "server1", "server2", "server3";

task "get-info", group => "myservers", sub {

krimdomu

#
# Save this file under /tmp/test-ssh.pl, edit the variables and run it with 
#     perl /tmp/test-ssh.pl
#

use strict;
use warnings;

# ------- PLEASE SET THE VARS -----------
my $HOST        = '';

krimdomu

use Rex -base;

user "foouser";

task "uptime", "your-server", sub {
   say run "uptime";
};

before uptime => sub {
   my ($server, $server_ref) = @_;

krimdomu

use Term::ReadKey;

user "root";

# get the CLI parameters
my %args = Rex::Args->getopts;

# only ask for a password if the user don't want to list tasks.
if(! exists $args{T}) {
   password read_password();

krimdomu

use strict;
use warnings;

use Data::Dumper;
use Rex::Commands::Cloud;
use Rex::Commands::SimpleCheck;
use Rex::Commands::SCM;
use Rex::Commands::Iptables;

my $access_key        = "your-access-key";

krimdomu

group mygroup => "srv01", "web[01..10]";
  
task "test", sub {
  my @servers = get_servers("mygroup");
  for my $srv (@servers) {
    run_task "foo", on => $srv, params => { param1 => "value1", param2 => "value2" };
  }
};

sub get_servers {