#!/usr/bin/perl

=encoding UTF-8
=cut

=head1 DESCRIPTION

Это скрипт, который выдает exit status 0, если все хорошо с базой данных
с точки зрения системы мониторинга curry.

Скрипт выдает exit status не равный 0, в том случае если с точки зрения
системы мониторинга curry есть проблема с базой.

Скрипт написан для тикета https://st.yandex-team.ru/INFRASTRUCTUREPI-469

=cut

# common modules
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);

use JSON::PP;

# global vars

# subs

# main
sub main {

    my $result = `curl --silent -H 'X-Requested-With: XMLHttpRequest' -H 'Authorization: TOKEN key="xvDK0r1GpsKx"' 'https://curry.partner.yandex-team.ru/api/1/get_object?path=db.dev_partner2'`;

    my $data = decode_json($result);

    if ($data->{result}->{status} eq 'ok') {
        exit 0;
    } else {
        exit 1;
    }

}
main();
__END__
