File Coverage

blib/lib/WWW/SMS/Everyday.pm

Criterion	Covered	Total	%
statement	12	52	23.0
branch	0	22	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	0	1	0.0
total	16	84	19.0

#!/usr/bin/perl -w
# option -w == warnings ON

# CVS related code
# $Id: Everyday.pm,v 1.8 2003/03/20 00:10:24 eim Exp $

#############################################################################
#                                                                           #
#   IMPORTANT NOTE                                                          #
#                                                                           #
#   !!! THE AUTHOR IS ==NOT== RESPONSIBLE FOR ANY USE OF THIS PROGRAM !!!   #
#                                                                           #
#   GPL LICENSE                                                             #
#                                                                           #
#   This program is free software; you can redistribute it and/or modify    #
#   it under the terms of the GNU General Public License as published by    #
#   the Free Software Foundation; either version 2 of the License, or       #
#   (at your option) any later version.                                     #
#                                                                           #
#   This program is distributed in the hope that it will be useful,         #
#   but WITHOUT ANY WARRANTY; without even the implied warranty of          #
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the           #
#   GNU General Public License for more details.                            #
#                                                                           #
#   You should have received a copy of the GNU General Public License       #
#   along with this program; if not, write to the Free Software             #
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston,                   #
#   MA  02111-1307 USA                                                      #
#                                                                           #
#############################################################################


#////////////////////////////////////////#
#   A B O U T  T H I S  P A C K A G E    #
#////////////////////////////////////////#

# This is a module for www.everyday.com you must have a valid user account
# at www.everyday.com which will provide you with login and password.

# Furthermore www.everyday.com allows you to send 10 SMS messages per day,
# and to stress much more his users there are so called "pepites" which you
# need to send SMS message, no idea how to get them, read on their site.

# I've done some test and it seems that www.everyday.com doesn't
# support proxies so don't use a proxy here, SMS delivering will fail.

# Note that $debug=1 will print out all the HTML source code of the portal
# the best thing you can do is to redirect the debugging output to a file.

# Doc note: The Perl LWP (libwww-perl) documentation is avaiable in your
# local perldoc repository, see: % perldoc lwpcook it's always usefull.

# This packages was written by: Ivo Mario
# and was last modified: $Date: 2003/03/20 00:10:24 $


#////////////////////////////////////////#
#     L I B S  A N D  C O N F I G S      #
#////////////////////////////////////////#

# name of this package
package WWW::SMS::Everyday;

# other modules we need
use Telephone::Number;
require Exporter;

# definitions
$VERSION = '1.00';
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(@PREFIXES _send MAXLENGTH);
@PREFIXES = (Telephone::Number->new('39', [
		qw(320 328 329 330 333 334 335 336 337 338 339 360 368 340 347 348 349 380 388 389)
		], undef)
);


#////////////////////////////////////////#
#         S U B R O U T I N E S          #
#////////////////////////////////////////#

# subroutine to define max message length
sub MAXLENGTH () {127}


# subroutine to handle errors
sub hnd_error {
	$_ = shift;
	$WWW::SMS::Error = "Failed at step $_ of module Everyday.pm\n";
	return 0;
}


# subroutine to send SMS
sub _send {

	# external libraries
	use HTTP::Request::Common qw(GET POST);
	use LWP::UserAgent;				# the LWP user agent
	use HTTP::Cookies;				# cookie support in LWP

	# private vars
	my $self = shift;				# no idea actually
	my $debug = 0;					# enable debug

	# check if message is too long
	if (length($self->{smstext})>MAXLENGTH) {

		# cut the message
		$self->{smstext} = substr($self->{smstext}, 0, MAXLENGTH - 1);
	}

	# create user agent object
	my $ua = LWP::UserAgent->new;

		# user agent properties
		$ua->agent('Mozilla/5.0');
		$ua->proxy('http', $self->{proxy}) if ($self->{proxy});

		# user agent cookie settings
		$ua->cookie_jar(HTTP::Cookies->new(

				file => $self->{cookie_jar},	# saves to lwpcookies.txt
				autosave => 1			# save automaticly
			)
		);


	# ============================================================
	# STEP 1
	# We just connect to bypass the browser check and get a cookie
	# ============================================================

	my $step = 1;	# define the step

	# First of all we need to set this cookie in order
	# to pass everday's javascript browser detection, it does his job.
	$ua->cookie_jar->set_cookie('0', 'BrowserDetect', 'passed', "/", ".everyday.com");

	# define the LWP request
	my $req = GET 'http://www.everyday.com/login.phtml';

	# execute the LWP request
        my $file = $ua->request($req)->as_string;

	# if we are in debugging mode
	if ($debug) {

		print "\n\n#####################\n";	# print debug title
		print "# DEBUG FOR STEP: $step #\n";	# print debug title
		print "#####################\n\n";	# print debug title
		print $file;				# print debug infos
	}

	# check if we arrived on the everyday startpage
	# if not so, well... report an error and exit !
	return &hnd_error($debug ? "$step ($file)" : $step)
		unless $file =~ m{}i;


	# =====================================================
	# STEP 2
	# Ok folks, once fetched the cookie it's time to log in
	# =====================================================

	$step++;	# increment to next step

	# define the LWP request
	$req = POST 'http://www.everyday.com/login.phtml',
		[
			login_username => $self->{username},
			login_password => $self->{passwd}
		];

	# execute the LWP request
        $file = $ua->request($req)->as_string;

	# if we are in debugging mode
	if ($debug) {

		print "\n\n#####################\n";	# print debug title
		print "# DEBUG FOR STEP: $step #\n";	# print debug title
		print "#####################\n\n";	# print debug title
		print $file;				# print debug infos
	}

	# check if we successfully logged in,
	# if not so, report an error and exiti !
	return &hnd_error($debug ? "$step ($file)" : $step)
		unless $file =~ m{path=/; domain=.everyday.com}i;


	# ==============================================
	# STEP 3
	# Let's finaly send the SMS message, jope dooo !
	# ==============================================

	$step++;	# increment to next step

	# define the LWP request
	$req = POST 'http://sms.everyday.com/index.phtml',
		[
			gsmnumber => $self->{intpref} . $self->{prefix} . $self->{telnum},
			message => $self->{smstext},
			send_sms => 1,
		];

	# execute the LWP request
	$file = $ua->simple_request($req)->as_string;

	# if we are in debugging mode
	if ($debug) {

		print "\n\n#####################\n";	# print debug title
		print "# DEBUG FOR STEP: $step #\n";	# print debug title
		print "#####################\n\n";	# print debug title
		print $file;				# print debug infos
	}

	return &hnd_error($debug ? "$step ($file)" : $step)

		# This is not the best check we can do but
		# it should work for international everyday sites
		# unless $file =~ m{Everyday.com - SMS}i;

		unless (
			$file =~ /SMS inviato!/
			|| $file =~ /a smistarlo/
		);

	1;
}

1;