Hi,

I have a limitation on one of my project to run 1 job each time.
When another job is in waiting state i want to send mail to the person who started the job.

There is no waiting notify like pass\fail notify.

Does someone know what can i do?

Thanks,
shiran

Hi,

I have a limitation on one of my project to run 1 job each time.
When another job is in waiting state i want to send mail to the person who started the job.

There is no waiting notify like pass\fail notify.

Does someone know what can i do?

Thanks,
shiran

use strict;



use MIME::Lite;



use BuildForge::Services;



my $host = 'localhost';

my $user = 'root';

my $password = 'root';

my $projectName = 'MyProject';



my $conn = new BuildForge::Services::Connection($host);

my $token = $conn->authUser($user, $password);



my $project = BuildForge::Services::DBO::Project->findByName($conn, $projectName);

die('Could not find project ' . $projectName) unless defined($project);



my $build = BuildForge::Services::DBO::Build->create($conn, $project->getUuid());

die("Could not create build for project: " . $project->getName()) unless defined($build);



$build = $build->fireBuild();

die("Build not defined after fireBuild executed.") unless defined($build);



my $sleepTime = 60;

my $state = $build->getState();

for (my $i = 0; (($i < $sleepTime) && ($state eq 'WAITING')); $i++) {

    sleep 1;

    $build = BuildForge::Services::DBO::Build->findByUuid($conn, $build->getUuid());

    die("Cound not find build") unless defined($build);

    $state = $build->getState();

}



if (($state eq 'WAITING') && ($project->getRunLimit() == 1)) {

    my $builds = BuildForge::Services::DBO::Build->findByProjectUuid($conn, $project->getUuid());

    my $runningBldCount = 0;

    foreach my $bld (@$builds) {

        if ($bld->getState() eq 'RUNNING') {

            $runningBldCount++;

        }

    }

    if ($runningBldCount > 0) {

        my $to = "admin\@my.company.com";

        my $from = "buildforge\@my.company.com";

        my $subject = "Build Forge: Build in WAITING State";

        my $message = "There are " . $runningBldCount . " running builds.";

        my $msg = MIME::Lite->new(From => $from, To => $to, Subject => $subject, Data => $message);

        MIME::Lite->send('smtp', 'localhost', Timeout => 60);

        $msg->send();

    } else {

        print "The build is in WAITING state, but not due to another build currently running.\n";   

    }

}



$conn->logout();

$conn->close();

use strict;



use MIME::Lite;



use BuildForge::Services;



my $host = 'localhost';

my $user = 'root';

my $password = 'root';

my $projectName = 'MyProject';



my $conn = new BuildForge::Services::Connection($host);

my $token = $conn->authUser($user, $password);



my $project = BuildForge::Services::DBO::Project->findByName($conn, $projectName);

die('Could not find project ' . $projectName) unless defined($project);



my $build = BuildForge::Services::DBO::Build->create($conn, $project->getUuid());

die("Could not create build for project: " . $project->getName()) unless defined($build);



$build = $build->fireBuild();

die("Build not defined after fireBuild executed.") unless defined($build);



my $sleepTime = 60;

my $state = $build->getState();

for (my $i = 0; (($i <sleepTime>findByUuid($conn, $build->getUuid());

    die("Cound not find build") unless defined($build);

    $state = $build->getState();

}



if (($state eq 'WAITING') && ($project->getRunLimit() == 1)) {

    my $builds = BuildForge::Services::DBO::Build->findByProjectUuid($conn, $project->getUuid());

    my $runningBldCount = 0;

    foreach my $bld (@$builds) {

        if ($bld->getState() eq 'RUNNING') {

            $runningBldCount++;

        }

    }

    if ($runningBldCount > 0) {

        my $to = "admin\@my.company.com";

        my $from = "buildforge\@my.company.com";

        my $subject = "Build Forge: Build in WAITING State";

        my $message = "There are " . $runningBldCount . " running builds.";

        my $msg = MIME::Lite->new(From => $from, To => $to, Subject => $subject, Data => $message);

        MIME::Lite->send('smtp', 'localhost', Timeout => 60);

        $msg->send();

    } else {

        print "The build is in WAITING state, but not due to another build currently running.\n";   

    }

}



$conn->logout();

$conn->close();

bju

Hi,

I'm not sure how far along you are, but the first step you'll need is to get the services layer client API code. You can do this by downloading it from your management console host (http://host:port/clients) . There is a link to download both the Java and Perl client code.

Once you've got the client and saved the script (yes, .pl is probably the best extension for it), you'll need to include the services layer client in the path when invoking (perl -I/tmp/bf/sl/client my_script.pl or add the path to the env variable PERL5LIB) .

The one thing about running the script from another Build Forge step is that you more than likely want to set up a separate user to handle the script because if you use the same user as someone logged into the UI - that UI user will get logged out.

The script can be improved as I was just trying to display an example. It would be better as you mention by adding command line parameters, etc.

bju