rex reboot

Rexfile

use Rex -feature => [qw(1.4 exec_autodie)];

use Rex::Commands::SimpleCheck;

sayformat "[%h]>\t%s";

task 'reboot', sub {
    my $server = connection->server;
    my $port   = Rex::Config->get_port( server => $server ) || 22;

    Rex::Logger::info('uptime before');
    say run 'uptime';

    run 'reboot';

    Rex::Logger::info('Waiting for shutdown...');
    while ( is_port_open $server, $port ) {
        sleep 1;
    }

    Rex::Logger::info('Waiting for SSH to come back...');
    while ( !is_port_open $server, $port ) {
        sleep 1;
    }

    Rex::get_current_connection_object->reconnect;

    Rex::Logger::info('uptime after');
    say run 'uptime';
};