scava_create_task.pl

#! /usr/bin/env perl

######################################################################
# Copyright (c) 2017 Castalia Solutions
#
# This program and the accompanying materials are made
# available under the terms of the Eclipse Public License 2.0
# which is available at https://www.eclipse.org/legal/epl-2.0/
#
# SPDX-License-Identifier: EPL-2.0
######################################################################

use strict;
use warnings;

use Mojo::UserAgent;
use Mojo::JSON qw(decode_json encode_json);
use Data::Dumper;

my $base_url;
if ( exists( $ENV{'SCAVA_HOST'} ) ) {
    $base_url = $ENV{'SCAVA_HOST'};
} else {
    $base_url = 'http://ci4.castalia.camp';
    #$base_url = 'http://scava-dev.ow2.org';
}

if ( scalar(@ARGV) != 4 ) {
    print "Usage: $0 project start_date stop_date type\n";
    print "Example: \n";
    print "    $0 modeling.sirius 01/01/2018 31/12/2019 CONTINUOUS_MONITORING\n";
    exit;
}

my $project = shift;
my $a_start = shift;
my $a_stop = shift;
my $a_type = shift;

my @metric_providers = (
#    "trans.rascal.api.changedMethods",
    "trans.rascal.api.numberOfChanges",
    "trans.rascal.api.numberOfBreakingChanges", 
    "trans.rascal.api.numberOfBreakingChanges.historic",

    "rascal.generic.churn.commitsToday.historic",
    "rascal.generic.churn.churnToday.historic",

    "org.eclipse.scava.metricprovider.trans.newversion.osgi.NewVersionOsgiTransMetricProvider",
    "trans.rascal.dependency.osgi.unusedOSGiImportedPackages",
    "trans.rascal.dependency.osgi.allOSGiBundleDependencies",
    "trans.rascal.dependency.osgi.allOSGiDynamicImportedPackages",
    "trans.rascal.dependency.osgi.allOSGiPackageDependencies",
    "trans.rascal.dependency.osgi.numberOSGiBundleDependencies",
    "trans.rascal.dependency.osgi.numberOSGiBundleDependencies.historic",
    "trans.rascal.dependency.osgi.numberOSGiPackageDependencies",

    "org.eclipse.scava.metricprovider.trans.newversion.maven.NewVersionMavenTransMetricProvider",
    "trans.rascal.dependency.maven.numberMavenDependencies",
    "trans.rascal.dependency.maven.numberMavenDependencies.historic",
    "trans.rascal.dependency.maven.numberUniqueMavenDependencies",
    "trans.rascal.dependency.maven.allMavenDependencies",
    "trans.rascal.dependency.maven.allOptionalMavenDependencies",
    "trans.rascal.dependency.maven.ratioOptionalMavenDependencies",

    "trans.rascal.OO.java.MHF-Java.historic",
    "trans.rascal.OO.java.AIF-Java-Quartiles.historic",
    "trans.rascal.OO.java.DIT-Java-Quartiles.historic",
    "trans.rascal.OO.java.LCC-Java-Quartiles.historic",
    "trans.rascal.OO.java.PF-Java.historic", 
  
    "org.eclipse.scava.metricprovider.historic.commitsovertime.CommitsOverTimeHistoricMetricProvider",

    "org.eclipse.scava.metricprovider.historic.configuration.docker.smells",
    "org.eclipse.scava.metricprovider.historic.configuration.docker.dependencies",
    "org.eclipse.scava.metricprovider.historic.configuration.puppet.dependencies",
    "org.eclipse.scava.metricprovider.historic.configuration.puppet.implementationsmells",
    
    "org.eclipse.scava.metricprovider.historic.bugs.bugs.BugsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.comments.CommentsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.emotions",
    "org.eclipse.scava.metricprovider.historic.bugs.emotions.EmotionsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.newbugs.NewBugsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.patches.PatchesHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.sentiment.SentimentHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.severity.SeverityHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.severitybugstatus.SeverityBugStatusHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.severityresponsetime.SeverityResponseTimeHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.severitysentiment.SeveritySentimentHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.status.StatusHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.topics.TopicsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.users.UsersHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.bugs.newusers.NewUsersHistoricMetricProvider",

#    "org.eclipse.scava.metricprovider.historic.documentation.sentiment.DocumentationSentimentHistoricMetricProvider",
    
    "org.eclipse.scava.metricprovider.historic.newsgroups.emotions.EmotionsHistoricMetricProvider",
    "org.eclipse.scava.metricprovider.historic.newsgroups.severitysentiment.SeveritySentimentHistoricMetricProvider",

    "org.eclipse.scava.factoid.bugs.channelusage",
    "org.eclipse.scava.factoid.bugs.responsetime",
    "org.eclipse.scava.factoid.bugs.sentiment",
    "org.eclipse.scava.factoid.bugs.emotion",
    "org.eclipse.scava.factoid.bugs.severity",

    );

my $url_auth = $base_url . ":8086/api/authentication";
my $url_create_task = $base_url . ":8182/analysis/task/create";
my $url_start_task = $base_url . ":8182/analysis/task/start";;
    
# Prepare for http requests
my $ua  = Mojo::UserAgent->new;
my $auth;

# Authenticate against API
print "\n# Authenticating against ${base_url}.\n\n";
my $tx = $ua->post( 
    $url_auth => { 'Content-Type' => 'application/json'} => json => 
    {
	"username" => "admin",
	"password" => "admin",
    } 
    );

if (not $tx->result->is_success) {
    print "Error: Could not authenticate against API.\n";
    print Dumper($tx->result->error) . "\n";
    exit 8;
}

$auth = $tx->result->headers->authorization;
print "  Authorisation is $auth.\n";

print "# Creating task.\n\n";

my $json_create = {
    "analysisTaskId" => "${project}_task",
    "label" => "${project}_task",
    "projectId" => $project,
    "type" => "$a_type", # Could be CONTINUOUS_MONITORING or SINGLE_EXECUTION
    "startDate" => "$a_start",
    "endDate" => "$a_stop",
    "metricProviders" => \@metric_providers,
};

print "# Fetching ${url_create_task}.\n\n";
$tx = $ua->post(
    $url_create_task => {
	"Authorization" => $auth, 
	'Content-Type' => 'application/json'
    } => json => $json_create,
    );

if (not $tx->result->is_success) {
    print "Error: Could not get resource $url_create_task.\n";
    print Dumper($tx->result->error) . "\n";
    exit 8;
}

my $data = decode_json($tx->result->body);
my $task_id = $data->{'analysisTaskId'};
print "Created task $task_id.\n\n";

print "Starting task $task_id...\n";

my $json_start = {
    'analysisTaskId' => "$task_id",
};

print "# Fetching ${url_start_task}.\n\n";
$tx = $ua->post(
    $url_start_task => {
	"Authorization" => $auth, 
	'Content-Type' => 'application/json'
    } => json => $json_start,
    );


if (not $tx->result->is_success) {
    print "Error: Could not get resource $url_start_task.\n";
    print Dumper($tx->result->error) . "\n";
    exit 8;
}