The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SMS::Send::CZ::Konzulta - SMS::Send driver for Konzulta - Czech Republic

VERSION

version 1.001

SYNOPSIS

use SMS::Send;

  my $sender = SMS::Send->new('CZ::Konzulta',
    _login    => 'who',
    _password => 'secret',
    );

  my $sent = $sender->send_sms(
    text => 'Test SMS',
    to   => '604111111',
    );

  # Did it send?
  if ( $sent ) {
    print "Sent test message\n";
  } else {
    print "Test message failed\n";
  }

METHODS

log

Logs message to /var/log/konzulta.log if this file is accessible and writable

send_sms

Sends the message using provider's API at https://www.sms-operator.cz/webservices/webservice.aspx and takes additional arguments: 'text' containgin the message itself and 'to' with recipient's number.

Processing information is automatically logged to /var/log/konzulta.log to allow tracking of possible problems.

Returns true if the msssage was successfully sent

Returns false if an error occured

AUTHOR

Radek Šiman <rbit@rbit.cz>

COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by R-Bit Technology, s.r.o.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.