classicvalues / teamcity-executor

NAME

Teamcity::Executor - Executor of TeamCity build configurations

SYNOPSIS 1 - asynchronous usage

use Teamcity::Executor;
use IO::Async::Loop;
use Log::Any::Adapter;

Log::Any::Adapter->set(
    'Dispatch',
    outputs => [
        [
            'Screen',
            min_level => 'debug',
            stderr    => 1,
            newline   => 1
        ]
    ]
);

my $loop = IO::Async::Loop->new;
my $tc = Teamcity::Executor->new(
    credentials => {
        url  => 'https://teamcity.example.com',
        user => 'user',
        pass => 'password',
    },
    build_id_mapping => {
        hello_world => 'playground_HelloWorld',
        hello_name  => 'playground_HelloName',
    }
    poll_interval => 10,
    loop => $loop,
);

$tc->register_polling_timer();

my $future = $tc->run('hello_name', { name => 'TeamCity' })->then(
    sub {
        my ($build) = @_;
        print "Build succeeded\n";
        my $greeting = $tc->get_artifact_content($build, 'greeting.txt');
        print "Content of greeting.txt artifact: $greeting\n";
    },
    sub {
        print "Build failed\n";
        exit 1
    }
);

my $touch_future = $tc->touch('hello_name', { name => 'TeamCity' })->then(
    sub {
        my ($build) = @_;
        print "Touch build started\n";
        $loop->stop();
    },
    sub {
        print "Touch build failed to start\n";
        exit 1
    }
);

$loop->run();

SYNOPSIS 2 - synchronous usage

use Teamcity::Executor;
use Log::Any::Adapter;

Log::Any::Adapter->set(
    'Dispatch',
    outputs => [
        [
            'Screen',
            min_level => 'debug',
            stderr    => 1,
            newline   => 1
        ]
    ]
);

my $tc = Teamcity::Executor->new(
    credentials => {
        url  => 'https://teamcity.example.com',
        user => 'user',
        pass => 'password',
    },
    build_id_mapping => {
        hello_world => 'playground_HelloWorld',
        hello_name  => 'playground_HelloName',
    }
);

my $resp = $tc->touch_without_future('hello_name', {});

print "id: $resp->{id}\n";
print "webUrl: $resp->{webUrl}\n";

DESCRIPTION

Teamcity::Executor is a module for executing Teamcity build configurations. When you execute one, you'll receive a future of the build. Teamcity::Executor polls TeamCity and when it finds the build has ended, it resolves the future.

LICENSE

Copyright (C) Avast Software

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Miroslav Tynovsky [email protected]