NAME

Net::SMS::MyTMN - Send SMS trough MyTMN!

VERSION

Version 0.07

SYNOPSIS

Quick and dirty way to send SMS trough portuguese mobile operator. Note: you need to have an account on www.mytmn.pt

#!/usr/bin/perl
use strict;
use warnings;

use Net::SMS::MyTMN;

print Net::SMS::MyTMN::sms_mytmn({
		'username' => '960000000',
		'password' => 'password',
		'targets' => [960000000,910000000],
		'message' => 'message goes here!',
	});

print Net::SMS::MyTMN::check_mytmn({
		'username' => '960000000',
		'password' => 'password',
	});

EXPORT

sms_mytmn() to send messages and check_sms() to check how many free sms are left for the current month.

FUNCTIONS

sms_mytmn()

The following 4 parameters are *REQUIRED*:

username : probably your phone number
password : the password you use to log onto www.mytmn.pt
targets  : up to five phone numbers
message  : a string with the message you're about to send

Return a string: "Message sent"

check_mytmn()

The following 2 parameters are *REQUIRED*:

username : probably your phone number
password : the password you use to log onto www.mytmn.pt

Returns the number of messages left.

AUTHOR

Miguel Santinho, <msantinho at simplicidade.com>

BUGS

Please report any bugs or feature requests to bug-net-sms-mytmn at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-SMS-MyTMN. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

Note that this module requires www::mechanize to automate the proccess of logging in and sending SMSs trough the www.mytmn.pt. If the operator makes any changes to the forms they use, this module will stop working. If that happens, please, report that to the author's e-mail.

COPYRIGHT & LICENSE

Copyright 2007 Miguel Santinho, all rights reserved.

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