File Coverage

blib/lib/SMS/Send/CZ/Neogate.pm

Criterion	Covered	Total	%
statement	68	76	89.4
branch	3	8	37.5
condition	2	4	50.0
subroutine	15	15	100.0
pod	3	4	75.0
total	91	107	85.0

#!/usr/bin/perl

package SMS::Send::CZ::Neogate;

# ABSTRACT: SMS::Send driver for Neogate - Czech Republic

use warnings;
use strict;
use Carp;

our $VERSION = "1.000";
$VERSION = eval $VERSION;

use LWP::UserAgent;
use URI::Escape;
use DateTime qw();
use base 'SMS::Send::Driver';
use Digest::MD5 qw(md5 md5_hex);
use Log::LogLite;
use Data::Dumper;
use XML::Simple;

sub new {
	my $class  = shift;
	my %params = @_;

	my $LOG_FILE = "/var/log/neogate.log";
	my $ERROR_LOG_LEVEL = 6;

	open HANDLE, ">>$LOG_FILE";
	close HANDLE;

	# Create our LWP::UserAgent object
	my $ua = LWP::UserAgent->new;

	# Create the object, saving any private params for later
	my $dt = DateTime->now(time_zone  => 'Europe/Prague');
	my $self = bless {
		ua       => $ua,
		login    => $params{_login},
		password => $params{_password},
		private  => \%params,
		stamp    => $dt->strftime('%Y%m%dT%H%M%S'),
		log      => (-w $LOG_FILE) ? new Log::LogLite($LOG_FILE, $ERROR_LOG_LEVEL) : 0
	}, $class;

	$self->log("Driver Neogate created", 4);

	$self;
}

sub log {
	my ($self, $msg, $level) = @_;

	if ($self->{'log'}) {
		$self->{'log'}->write($msg, $level);
	}
}

sub get_salt {
	my $chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789:-';
	my $len = length($chars);
	my $salt = '';
	for (my $i = 1; $i < (30 + int(rand(20))); $i++) {	# 30-49 characters
		$salt .= substr($chars, int(rand($len)), 1);
	}

	return $salt;
}

sub send_sms {
	my ($self, %args) = @_;
    my $url = 'https://api.smsbrana.cz/smsconnect/http.php';
 	my $salt = get_salt();

	my $rawtext = $self->{'password'} . $self->{'stamp'} . $salt;
	#for debugging only
	#$self->log("TEXT: " . $rawtext . ", MD5: " . md5_hex($rawtext));

	my %params = (
	    'number'   => $args{'to'} || '',
	    'message'  => $args{'text'}  || '',
	    'login'    => $self->{'login'},
		'sul'	   => $salt,
		'time'	   => $self->{'stamp'},
		'hash'	   => md5_hex($rawtext),
	    'action'   => 'send_sms'
	);

	# cleanup
	$params{'number'} =~ s{\D}{}g; # remove non-digits

	# send away
    my $uri = join( '&', map { $_ . '=' . uri_escape_utf8( $params{ $_ } ) } keys %params );

	my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
    $ua->protocols_allowed( ['https'] );

    my $x = $url . "?" . $uri;
    my $res = $ua->get($url . "?" . $uri);

    if( $res->is_success ) {
		$self->log("HTTP SUCCESS: " . $x, 4);
		my $parser = new XML::Simple;
		my $data = $parser->XMLin($res->decoded_content);
		if ($data->{'err'} == 0) {
			$self->log("SMS #" . $data->{'sms_id'} . " sent, remaining credit: " . $data->{'credit'}, 4);

			return 1;
		}
		else {
			$self->log("SMS processing error: " . $data->{'err'}, 4);
			return 0;
		}
	}
	else {
		$self->log("HTTP error #" . $res->code() . ": " . $res->message(), 4);
		return 0;
	}
}

__END__