File Coverage

blib/lib/SMS/Send/DE/MeinBMW.pm

Criterion	Covered	Total	%
statement	34	108	31.4
branch	0	40	0.0
condition	0	9	0.0
subroutine	12	20	60.0
pod	2	2	100.0
total	48	179	26.8

package SMS::Send::DE::MeinBMW;

BEGIN {
  $VERSION = '0.06';
}

use base 'SMS::Send::Driver';
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Response;
use HTTP::Request::Common;
use HTTP::Cookies;
use HTML::Form;
use Carp;

my $RE_BADLOGIN = qr/Sie konnten nicht authentifiziert werden/;
my $root_page   = 'https://www.meinbmw.de';
my $login_page  = 'https://www.meinbmw.de/Home/tabid/36/ctl/Login/Default.aspx';
my $sms_page =
'https://www.meinbmw.de/DownloadsServices/Services/SMSService/tabid/80/Default.aspx';

sub new {
  my $class  = shift;
  my %params = @_;

  # Get the login
  my $login    = $class->_LOGIN( delete $params{_login} );
  my $password = $class->_PASSWORD( delete $params{_password} );

  my $ua = LWP::UserAgent->new;

  # follow posts
  push @{ $ua->requests_redirectable }, 'POST';

  # lie about the agent
  $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
  $ua->cookie_jar( HTTP::Cookies->new );

  # Create the object, saving any private params for later
  my $self = bless {
    ua       => $ua,
    login    => $login,
    password => $password,
    private  => \%params,

    # State variables
    logged_in => '',
  }, $class;

  $self;
}

sub _get_login {
  my $self = shift;

  my $ua = $self->{ua};

  #get session code and cookies!
  my $res = $ua->request( POST $login_page);

  $res->is_success || Carp::croak("HTTP Error: $login_page\n$res->status_line");

  my $html = $res->content;
  my $f = HTML::Form->parse( $html, $login_page );

  for ( $f->param ) {
    $f->find_input($_)->value( $self->{login} )    if /username$/i;
    $f->find_input($_)->value( $self->{password} ) if /password$/i;
  }

  $res = $ua->request( $f->click );

  if ( $res->is_success && $res->content =~ /logout/i ) {
    return 1;
  }
  else { Carp::croak( "Couldn't log in: ", $res->status_line ); }

  return 0;
}

sub _send_login {
  my $self = shift;

  # Shortcut if logged in
  return 1 if $self->{logged_in};

  # Get to the login page
  $self->_get_login;

  # Submit the login form
  my $res = $self->{ua}->request( GET $login_page );

  $res->is_success || Carp::croak("HTTP Error: $login_page");

  if ( $res->content =~ $RE_BADLOGIN ) {
    Carp::croak('Invalid login and/or password');
  }

  $self->{logged_in} = 1;
  return 1;
}

##
# send_sms

sub send_sms {
  my $self   = shift;
  my %params = @_;

  # Get the message and destination
  my $message   = $self->_MESSAGE( delete $params{text} );
  my $recipient = $self->_TO( delete $params{to} );

  # Make sure we are logged in
  $self->_send_login;

  my $free_chars = do { use bytes; 160 - length($message) };

  my $res = $self->{ua}->request( GET $sms_page);

  $res->is_success || Carp::croak("HTTP Error: $sms_page\n$res->status_line");

  my $html = $res->content;

  my $f = HTML::Form->parse( $html, $sms_page );

  for ( $f->param ) {
    $f->find_input($_)->value($recipient) if /phone$/i;
    $f->find_input($_)->value($message)   if /subject$/i;
  }

  $res = $self->{ua}->request( $f->click );

  unless ( $res->is_success ) {
    Carp::croak("HTTP request returned failure when sending SMS request");
  }

  # Check if the SMS limit isn't reached
  return 0 unless $res->{_content} =~ /Ihre SMS wurde an .+ versendet/i;

  # Fire-and-forget, we don't know for sure.
  return 1;
}

###############################################
# Internal

sub _LOGIN {
  my $class = ref $_[0] ? ref shift : shift;
  my $email = shift;
  unless ( defined $email ) {
    Carp::croak("Did not provide a login emailaddress");
  }
  unless ( $email =~ /^.+\@\w+\.\w+$/ ) {
    Carp::croak("Login does nnot look like a emailaddress");
  }
  return $email;
}

sub _PASSWORD {
  my $class = ref $_[0] ? ref shift : shift;
  my $password = shift;
  unless ( defined $password and !ref $password and length $password ) {
    Carp::croak("Did not provide a password");
  }
  return $password;
}

sub _MESSAGE {
  use bytes;
  my $class = ref $_[0] ? ref shift : shift;
  my $message = shift;
  unless ( length($message) <= 160 ) {
    Carp::croak("Message length limit is 160 characters");
  }
  return $message;
}

sub _TO {
  my $class = ref $_[0] ? ref shift : shift;
  my $to = shift;

  # International numbers need their + removed
  $to =~ y/0123456789//cd;

  return $to;
}

1;
__END__