File: simple-example.pl

package info (click to toggle)
libsms-send-aql-perl 0.04-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 88 kB
  • sloc: perl: 51; makefile: 2
file content (22 lines) | stat: -rwxr-xr-x 469 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl

# $Id: simple-example.pl 211 2008-01-19 15:30:31Z davidp $
#
# A very quick and simple usage example for SMS::Send::AQL

use strict;
use SMS::Send;


my $sender = SMS::Send->new('AQL', _username => 'user', _password => 'pass');

if (!$sender) {
    die "Failed to create instance of SMS::Send using SMS::Send::AQL driver";
}


$sender->send_sms(
    to   => '+447734123456',
    text => 'Text message content here',
) or die "Failed to send message";