File Coverage

lib/Rex/Commands/JobControl.pm

Criterion	Covered	Total	%
statement	17	36	47.2
branch	0	8	0.0
condition			n/a
subroutine	6	10	60.0
pod	0	2	0.0
total	23	56	41.0

#
# (c) Jan Gehring
#

package Rex::Commands::JobControl;

use v5.12.5;
use warnings;

our $VERSION = '1.14.2.3'; # TRIAL VERSION

use Rex::Commands;
use YAML;

require Exporter;
use base qw(Exporter);
use vars qw(@EXPORT);

@EXPORT = qw(jobcontrol_add_server jobcontrol_next_server);

sub jobcontrol_add_server {
  my (%option) = @_;
  if ( !exists( $ENV{JOBCONTROL_PROJECT_PATH} ) ) {
    Rex::Logger::debug(
      "Can only run on the same host where Rex::JobControl is running.");
    return;
  }

  LOCAL {
    my $ref =
      YAML::LoadFile( $ENV{JOBCONTROL_PROJECT_PATH} . "/project.conf.yml" );
    if ( !exists $ref->{nodes} ) {
      $ref->{nodes} = [];
    }

    push @{ $ref->{nodes} }, {%option};

    YAML::DumpFile( $ENV{JOBCONTROL_PROJECT_PATH} . "/project.conf.yml", $ref );
  };
}

sub jobcontrol_next_server {
  my ($server) = @_;

  if ( !exists( $ENV{JOBCONTROL_PROJECT_PATH} ) ) {
    Rex::Logger::debug(
      "Can only run on the same host where Rex::JobControl is running.");
    return;
  }

  LOCAL {
    open( my $fh, ">", $ENV{JOBCONTROL_PROJECT_PATH} . "/next_server.txt" )
      or die("Can't write nextserver: $!");
    print $fh $server;
    close($fh);
  };
}

1;