WWW::SMS::IE::vodasms - A module to send SMS messages using the website of

o2sms documentation Contained in the o2sms distribution.

Index

Code Index:

NAME

Top

WWW::SMS::IE::vodasms - A module to send SMS messages using the website of Vodafone Ireland

SYNOPSIS

Top

  require WWW::SMS::IE::iesms;
  require WWW::SMS::IE::vodasms;

  my $carrier = new WWW::SMS::IE::vodasms;

  if ($carrier->login('0871234567', 'password'))
  {
    my $retval = $carrier->send('+353865551234', 'Hello World!');

    if (!$retval)
    {
      print $carrier->error() . "\n";
    }
  }

DESCRIPTION

Top

WWW::SMS::IE::vodasms is a class to send SMS messages via the command line using the website of Vodafone Ireland -- http://www.vodafone.ie/

For more information see WWW::SMS::IE::iesms

DISCLAIMER

Top

The author accepts no responsibility nor liability for your use of this software. Please read the terms and conditions of the website of your mobile provider before using the program.

SEE ALSO

Top

WWW::SMS::IE::iesms, WWW::SMS::IE::vodasms, WWW::SMS::IE::meteorsms

http://www.mackers.com/projects/o2sms/

AUTHOR

Top

David McNamara (me.at.mackers.dot.com)

COPYRIGHT

Top

Copyright 2000-2006 David McNamara

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

o2sms documentation Contained in the o2sms distribution. 
#
# $Id: vodasms.pm 352 2008-11-27 16:16:41Z mackers $

package WWW::SMS::IE::vodasms;


use strict;
use warnings;
use vars qw( $VERSION );
$VERSION = sprintf("0.%02d", q$Revision: 352 $ =~ /(\d+)/);

@WWW::SMS::IE::vodasms::ISA = qw{WWW::SMS::IE::iesms};

use constant LOGIN_START_STEP => 0;
use constant LOGIN_END_STEP => 5;
use constant SEND_START_STEP => 6;
use constant SEND_END_STEP => undef;
use constant REMAINING_MESSAGES_MATCH => 1;
use constant ACTION_FILE => "vodasms.action";
use constant SIMULATED_DELAY_MIN => 10;
use constant SIMULATED_DELAY_MAX => 35;
use constant SIMULATED_DELAY_PERCHAR => 0.25;
use constant MINIMUM_MESSAGE_LENGTH => 3;

sub _init
{
	my $self = shift;

	$self->_log_debug("creating new instance of vodasms carrier");

	$self->_login_start_step(LOGIN_START_STEP);
	$self->_login_end_step(LOGIN_END_STEP);
	$self->_send_start_step(SEND_START_STEP);
	$self->_send_end_step(SEND_END_STEP);
	$self->_remaining_messages_match(REMAINING_MESSAGES_MATCH);
	$self->_action_file(ACTION_FILE);
	$self->_simulated_delay_max(SIMULATED_DELAY_MAX);
	$self->_simulated_delay_min(SIMULATED_DELAY_MIN);
	$self->_simulated_delay_perchar(SIMULATED_DELAY_PERCHAR);
	
	$self->full_name("Vodafone Ireland");
	$self->domain_name("vodafone.ie");

	if ($self->is_win32())
	{
		$self->config_dir($ENV{TMP});
		$self->config_file($self->_get_home_dir() . "vodasms.ini");
		$self->message_file("vodasms_lastmsg.txt");
		$self->history_file("vodasms_history.txt");
		$self->cookie_file("vodasms.cookie");
		$self->action_state_file("vodasms.state");
	}
	else
	{
		$self->config_dir($self->_get_home_dir() . "/.vodasms/");
		$self->config_file("config");
		$self->message_file("lastmsg");
		$self->history_file("history");
		$self->cookie_file(".cookie");
		$self->action_state_file(".state");
	}
}

sub _format_number
{
	my ($self, $number) = @_;

	$number =~ s/^\+353/0/;

	return $number;
}

sub min_length
{
        return MINIMUM_MESSAGE_LENGTH;
}

sub is_vodafone
{
	return 1;
}


1;