#!/usr/bin/perl

use strict;
use warnings;

use SOAP::Lite ();

use lib qw(./libs);
use API::Config;

use lib ($API::Config::Config->{'Website_libs'});
use ECS::Config;

my $configURI = URI->new($ECS::Config::c{'applicatorDaemonURL'});

my $soap = SOAP::Lite->new(
    'proxy' => $ECS::Config::c{'applicatorDaemonURL'},
)
    ->default_ns("API/Applicator");

my $data = int(rand(10));

my $som = $soap->call("status");
if($som->fault) {
    print "Not responding\n";
    exit 1;
}
else {
    print $som->result . "\n";
    exit 0;
}
