File Coverage

blib/lib/yesssSMS.pm

Criterion	Covered	Total	%
statement	17	206	8.2
branch	0	92	0.0
condition	0	30	0.0
subroutine	6	23	26.0
pod	9	16	56.2
total	32	367	8.7

package yesssSMS;

use 5.014002;
use strict;
use warnings;
use HTML::Parser;
use LWP::UserAgent;
use HTTP::Cookies;


require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use yesssSMS ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '2.20';

sub new
{
	my $self = {};
	$self->{LOGINSTATE} = 0;
	$self->{URL}="https://www.yesss.at/kontomanager.at/";

	bless ($self);
	return $self;
}

sub login
{
	my $self = shift;
	my $phoneParser;

	($self->{TELNR},
		$self->{PASS})=@_;

	# don't login if logged in...
	if ($self->{LOGINSTATE} == 1)
	{
		$self->{LASTERROR}='Cannot login when already logged in';
		$self->{RETURNCODE}=1;
		return 1;
	}

	# Cookies are needed
	$self->{UA} = LWP::UserAgent->new;
	$self->{UA}->cookie_jar(HTTP::Cookies->new);

	# go to start page
	$self->{CONTENT}=$self->{UA}->get($self->{URL});

	# if there was an error on the start page, stop
	if (!($self->{CONTENT}->is_success))
	{
		$self->{LASTERROR}='Error loading startpage of YESSS!';
		$self->{RETURNCODE}=2;
		return 2;
	}

	# do the login post
	$self->{CONTENT}=$self->{UA}->post($self->{URL}."index.php",{'login_rufnummer' => $self->{TELNR},'login_passwort' => $self->{PASS}});

	# successful login results in redirect
	if (!($self->{CONTENT}->is_redirect))
	{
		$self->{LASTERROR}='Error sending credentials!';
		$self->{RETURNCODE}=3;
		return 3;
	}

	# usually, a redirect is replied
	while ($self->{CONTENT}->is_redirect)
	{
		# follow redirect
		$self->{CONTENT}=$self->{UA}->post($self->{CONTENT}->header("Location"),{'login_rufnummer' => $self->{TELNR},'login_passwort' => $self->{PASS}});

		# if there was an error during redirect, stop
		if (!($self->{CONTENT}->is_success))
		{
			$self->{LASTERROR}='Error during post-login redirect';
			$self->{RETURNCODE}=4;
			print $self->{CONTENT}->status_line;
			return 4;
		}
	}

	# parse interesting values
	$phoneParser=HTML::Parser->new(api_version=>3,
		start_h => [\&loginStartTagParse, "self,tagname,attr"],
		text_h => [\&loginTextParse, "self, text"],
		end_h => [\&loginEndTagParse, "self, tagname"]
	);
	# bring my "self" into the handlers without global vars
	# delete possible existing subscriptions
	# initialize some variables needed for the parser
	undef($self->{SUBSCRIPTIONS});
	$phoneParser->{'yesssSMSself'}=$self;
	$phoneParser->{'inSubscriber'}=0;
	$phoneParser->{'inProgresslist'}=0;
	$phoneParser->{'inProgressheading'}=0;
	$phoneParser->{'amountSubscriptions'}=0;
	$phoneParser->{'amountItems'}=0;
	$phoneParser->parse($self->{CONTENT}->decoded_content);

	# print found phone numbers and their values

	$self->{LOGINSTATE}=1;
	$self->{LASTERROR}='Login successful';
	$self->{RETURNCODE}=0;
	return 0;
}

sub selectPhonenumber
{
	my $self = shift;
	my ($telnr)=@_;
	my $phoneParser;

	# switching is only possible after login
	if ($self->{LOGINSTATE} == 0)
	{
		$self->{LASTERROR}='Not logged in while trying to select phonenumber';
		$self->{RETURNCODE}=1;
		return 1;
	}

	# check, if the requested phonenumber is valid
	if (! defined($self->{SUBSCRIBERS}->{$telnr}))
	{
		$self->{LASTERROR}='Requested phonenumber not available in account';
		$self->{RETURNCODE}=6;
		return 6;
	}

	$self->{CONTENT}=$self->{UA}->post($self->{URL}."kundendaten.php",
		{
			'subscriber' => $self->{SUBSCRIBERS}->{$telnr},
			'groupaction' => 'change_subscriber'
		}
		);

	# stop on error
	if (!($self->{CONTENT}->is_success))
	{
		$self->{LASTERROR}='Error while selecting phonenumber';
		$self->{RETURNCODE}=7;
		return 7;
	}

	# parse interesting values
	$phoneParser=HTML::Parser->new(api_version=>3,
		start_h => [\&loginStartTagParse, "self,tagname,attr"],
		text_h => [\&loginTextParse, "self, text"],
		end_h => [\&loginEndTagParse, "self, tagname"]
	);
	# bring my "self" into the handlers without global vars
	undef($self->{SUBSCRIPTIONS});
	$phoneParser->{'yesssSMSself'}=$self;
	$phoneParser->{'inSubscriber'}=0;
	$phoneParser->{'inProgresslist'}=0;
	$phoneParser->{'inProgressheading'}=0;
	$phoneParser->{'amountSubscriptions'}=0;
	$phoneParser->{'amountItems'}=0;
	$phoneParser->parse($self->{CONTENT}->decoded_content);

}

sub sendmessage
{
	my $self = shift;
	my ($telnr,$message)=@_;
	my $tokenParser;

	# only send message when login was successful
	if ($self->{LOGINSTATE} == 0)
	{
		$self->{LASTERROR}='Not logged in while trying to send a message';
		$self->{RETURNCODE}=1;
		return 1;
	}

	if (!($telnr=~/^00/) || (length($telnr)<14))
	{
		$self->{LASTERROR}='Invalid destination (not starting with 00 or too short)';
		$self->{RETURNCODE}=3;
		return 3;
	}

	# go to correct menu item
	$self->{CONTENT}=$self->{UA}->post($self->{URL}."websms.php");

	# stop on error
	if (!($self->{CONTENT}->is_success))
	{
		$self->{LASTERROR}='Error while selecting SMS menu';
		$self->{RETURNCODE}=4;
		return 4;
	}

	# get token for websms.php
	$tokenParser=HTML::Parser->new(api_version=>3,
		start_h => [\&websmsGetTokenStartTagParse, "self,tagname,attr"],
		end_h => [\&websmsGetTokenEndTagParse, "self, tagname"]
	);
	$self->{'websmsToken'}='';
	$tokenParser->{'inWebsmsSendForm'}=0;
	$tokenParser->{'yesssSMSself'}=$self;
	$tokenParser->parse($self->{CONTENT}->decoded_content);

	# try to send message
	$self->{CONTENT}=$self->{UA}->post($self->{URL}."websms_send.php",
		{ 'to_netz' => 'a',
			'to_nummer' => $telnr,
			'nachricht' => $message,
			'token' => $self->{'websmsToken'}
		});

	# stop on error
	if (!($self->{CONTENT}->is_success))
	{
		$self->{LASTERROR}='Error while sending message ('.
			$self->{CONTENT}->status_line.')';
		$self->{RETURNCODE}=5;
		return 5;
	}

	$self->{LASTERROR}='Message sent successfully';
	$self->{RETURNCODE}=0;
	return 0;
}

sub getLoginstate
{
	my $self = shift;

	return $self->{LOGINSTATE};
}

sub logout
{
	my $self = shift;

	# don't logout if not logged in...
	if ($self->{LOGINSTATE} == 0)
	{
		$self->{LASTERROR}='Cannot logout when not logged in.';
		$self->{RETURNCODE}=1;
		return 1;
	}

	# post the logout url
	$self->{CONTENT}=$self->{UA}->post($self->{URL}."index.php?dologout=1");

	# if there was an error during logout, stop
	if (!($self->{CONTENT}->is_success))
	{
		$self->{LASTERROR}='Error during logout.';
		$self->{RETURNCODE}=2;
		return 2;
	}

	# reset LOGINSTATE
	$self->{LOGINSTATE}=0;
	$self->{LASTERROR}='Logout successful';
	$self->{RETURNCODE}=0;
	return 0;
}

sub getLastResult
{
	my $self = shift;

	return $self->{RETURNCODE};
}

sub getLastError
{
	my $self = shift;

	return $self->{LASTERROR};
}

sub getContent
{
	my $self = shift;

	return $self->{CONTENT};
}

sub getSubscriptions
{
	my $self = shift;

	return $self->{SUBSCRIPTIONS};
}

sub DESTROY
{
	my $self = shift;
	if ($self->{LOGINSTATE}==1)
	{
		$self->logout();
	}
}


####### methods for parser
# login/switch phone number

sub loginStartTagParse
{
	my ($self, $tagname, $attr) = @_;

	if (($self->{'inSubscriber'} != 1) &&
		($self->{'inProgresslist'} < 1))
	{
		if (($tagname eq 'select') &&
			($attr->{'id'} eq 'subscriber'))
		{
			$self->{'inSubscriber'}=1;
		}
		elsif (($tagname eq 'div') &&
			(defined ($attr->{'class'})) &&
			($attr->{'class'} eq 'progress-list'))
		{
			$self->{'inProgresslist'}++;
		}
	}
	elsif ($self->{'inSubscriber'} == 1)
	{
		if ($tagname eq 'option')
		{
			$self->{'lastValue'}=$attr->{'value'};
		}
	}
	elsif ($self->{'inProgresslist'} >= 1)
	{
		if ($tagname eq 'div')
		{
			if ($attr->{'class'} eq 'info-list-item')
			{
				$self->{'inProgresslist'}=0;
				$self->{'amountItems'}=0;
			}
			elsif ($attr->{'class'} eq 'progress-item')
			{
				$self->{'amountItems'}++;
				$self->{'inProgresslist'}++;
			}
			else
			{
				$self->{'inProgresslist'}++;
			}
		}
		if ($tagname eq 'h3')
		{
			if ((defined($attr->{'id'})) &&
				($attr->{'id'} eq 'kostenkontrolle'))
			{
				# we ignore 'Kostenkontrolle'
				$self->{'inProgresslist'}=0;
				$self->{'amountItems'}=0;
			}
			else
			{
				$self->{'inProgressheading'}=1;
			}
		}
	}
}

sub loginTextParse
{
	my ($self, $text) = @_;
	my $phonenumber;
	my $progressname;
	my $value;

	&trim(\$text);
	if (($self->{'inSubscriber'} == 1) &&
		(length($text)>1))
	{
		($phonenumber)=$text=~/^([0-9]+)[^0-9]/;
		$self->{'yesssSMSself'}->{SUBSCRIBERS}->{$phonenumber}=$self->{'lastValue'};
	}
	elsif (($self->{'inProgressheading'} == 1) &&
		(length($text)>1))
	{
		($progressname)=$text=~/\s*(.*)\s*:$/;
		$self->{'amountSubscriptions'}++;
		$self->{'yesssSMSself'}->{SUBSCRIPTIONS}->[$self->{'amountSubscriptions'}-1]->{'name'}=$progressname;
	}
	elsif (($self->{'inProgresslist'} >= 1) &&
		(length($text)>1))
	{
		if ($text=~/^[0-9]+\s/)
		{
			($value)=$text=~/^[0-9]+\s(.+)$/;
			$self->{'yesssSMSself'}->{SUBSCRIPTIONS}->
				[$self->{'amountSubscriptions'}-1]->{'items'}->[$self->{'amountItems'}-1]->{'unit'}=$value;
		}
		elsif ($text=~/^Verbraucht:/)
		{
			($value)=$text=~/^Verbraucht: ([0-9]+)\s*$/;
			$self->{'yesssSMSself'}->{SUBSCRIPTIONS}->
				[$self->{'amountSubscriptions'}-1]->{'items'}->[$self->{'amountItems'}-1]->{'used'}=$value;
		}
		elsif ($text=~/^Verbraucht Inland:/)
		{
			($value)=$text=~/^Verbraucht Inland: ([0-9]+)\s*$/;
			$self->{'yesssSMSself'}->{SUBSCRIPTIONS}->
				[$self->{'amountSubscriptions'}-1]->{'items'}->[$self->{'amountItems'}-1]->{'used'}+=$value;
		}
		elsif ($text=~/^Verbleibend/)
		{
			($value)=$text=~/^Verbleibend: ([0-9]+)$/;
			$self->{'yesssSMSself'}->{SUBSCRIPTIONS}->
				[$self->{'amountSubscriptions'}-1]->{'items'}->[$self->{'amountItems'}-1]->{'remaining'}=$value;
		}
	}
}

sub loginEndTagParse
{
	my ($self, $tagname) = @_;

	if ($self->{'inSubscriber'} == 1)
	{
		if ($tagname eq 'select')
		{
			$self->{'inSubscriber'}=0;
		}
	}
	elsif ($self->{'inProgresslist'} >= 1)
	{
		if ($tagname eq 'div')
		{
			$self->{'inProgresslist'}--;
			if ($self->{'inProgresslist'} == 0)
			{
				$self->{'amountItems'}=0;
			}
		}
		if ($self->{'inProgressheading'} == 1)
		{
			if ($tagname eq 'h3')
			{
				$self->{'inProgressheading'}=0;
			}
		}
	}
}

## methods for parsing websms_send.php for the token
sub websmsGetTokenStartTagParse
{
	my ($self, $tagname, $attr) = @_;

	if ($self->{'inWebsmsSendForm'} != 1)
	{
		if ($tagname eq 'form')
		{
			if ($attr->{'action'} eq 'websms_send.php')
			{
				$self->{'inWebsmsSendForm'} = 1,
			}
		}
	}
	else
	{
		if ($tagname eq 'input')
		{
			if (($attr->{'type'} eq 'hidden') &&
				($attr->{'name'} eq 'token'))
			{
				$self->{'yesssSMSself'}->{'websmsToken'}=$attr->{'value'};
			}
		}
	}
}

sub websmsGetTokenEndTagParse
{
	my ($self, $tagname) = @_;

	if ($self->{'inWebsmsSendForm'} == 1)
	{
		if ($tagname eq 'form')
		{
			$self->{'inWebsmsSendForm'} = 0;
		}
	}
}


sub trim
{
	my $string=$_[0];

	$$string =~ s/^\s+//;
	$$string =~ s/\s+$//;
}

1;
__END__