path: root/lib/App/smsg/Command/Status.pm

package App::smsg::Command::Status;

use 5.010;
use strict;
use warnings;
use utf8;

BEGIN {
    $App::smsg::Command::Status::AUTHORITY = 'https://dr.jones.dk/me#me';
    $App::smsg::Command::Status::VERSION   = '0.001';
}

use App::smsg -command;
use namespace::clean;

use NetSDS::Kannel;

use constant abstract => q (Check status of platform(s).);
use constant usage_desc => '%c status %o <platform>...';
use constant description   => <<'DESCRIPTION';
Connect to one or more platforms (Kannel, Jabber, IRC etc.) and check
operational status.
DESCRIPTION
use constant opt_spec => (
    ['kannelserver=s', "the Kannel server to connect to",
        {default => 'localhost'}],
    ['kanneladminport=i', "the Kannel admin port to connect to",
        {default => 13000}],
    ['kanneladminpasswd=s', "the Kannel admin password to authenticate with",
        {default => ''}],
    ['kannelsendsmsport=i', "the Kannel sendsms port to connect to",
        {default => 13013}],
    ['kannelsendsmsuser=s', "the Kannel sendsms user to authenticate as",
        {default => 'tester'}],
    ['kannelsendsmspasswd=s', "the Kannel sendsms password to authenticate with",
        {default => 'foobar'}],
    ['kannelsmsc=s', "the Kannel SMSC to correspond with"],
    [],
# TODO  ['f|follow', "keep connection open and emit each change of state"],
#   [],
#   [ 'verbose|v', "print extra stuff"],
    [ 'debug', "print debug stuff"],
);

sub execute {
    my ($self, $opt, $args) = @_;

    # TODO: support overriding full URL
    # TODO: use URI module to construct URL
    my $kannel = NetSDS::Kannel->new(
        admin_url => 'http://' . $opt->kannelserver . ':' . $opt->kanneladminport . '/',
        admin_passwd => $opt->kanneladminpasswd,
        sendsms_url => 'http://' . $opt->kannelserver . ':' . $opt->kannelsendsmsport . '/cgi-bin/sendsms',
        sendsms_user => $opt->kannelsendsmsuser,
        sendsms_passwd => $opt->kannelsendsmspasswd,
        default_smsc => $opt->kannelsmsc,
    );

    my $status = $kannel->status();

    if ($opt->debug) {
        use Data::Dump;
        ddx $status;
    }

    print $$status{status}."\n";
    for my $i ( 0 .. $#{ $$status{smsc} }) {
        print $$status{smsc}[$i]{id}.': '.$$status{smsc}[$i]{status}."\n";
    }

}

1;