File Coverage

blib/lib/SMS/Send/Sergel/Simple/HTTP.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package SMS::Send::Sergel::Simple::HTTP;

# ABSTRACT: SMS::Send driver for Sergel simple http service

use HTTP::Tiny;
use URI::Escape;
use base 'SMS::Send::Driver';
use strict;
use warnings;
our $VERSION = '0.01';

sub new {
  my ($class, %args) = @_;

  unless (
    $args{'_login'}
    && $args{'_password'}
    && $args{'_source'}
    && $args{'_serviceid'}
  ) {
    die << "eof";
$class needs hash with non empty values:
_serviceid: $args{_serviceid}
_login: $args{_login}
_password: $args{_password}
_source: $args{_source}
eof
}

  my $self = bless {%args}, $class;
  $self->{base_url} = $args{_url} // 'https://ws1.sp247.net/smscsimplehttp';
  return $self;
}

sub send_sms {
  my ($self, %args) = @_;
  my $query = $self->{base_url}
              . '?ServiceId='   . $self->{_serviceid}
              . '&Username='    . $self->{_login}
              . '&Password='    . $self->{_password}
              . '&Destination=' . uri_escape($args{'to'})
              . '&Source='      . uri_escape($self->{_source})
              . '&Userdata='    . uri_escape($args{'text'});

  my $response = HTTP::Tiny->new->get($query);

  if ($self->{_debug}) {
    return $response;
  }

  if ($response->{success}) {
    my ($resultCode, $resultDescription, $messageId) = split /;/, $response->{content};
    my $OK_codes = {
      1000 => 'Sent',
      1001 => 'Delivered',
      1005 => 'Queued',
    };

    if (exists($OK_codes->{$resultCode})) {
      return 1;
    } else {
      return 0;
    }
  } else {
   return 0;
  }
}

1;

__END__