Anya Shanahan's Shack

Send Vodafone ireland text messages from the command line. Uses the keychain info from safari on the mac. There’s an annoying sleep as it looks to detect pump-and-dump html requests (i.e. scripts like this).

#!/usr/bin/perl -w



use strict;

use HTML::Form;

use HTTP::Request;

use LWP;

use Data::Dumper;

my $username;

my $password;

my $message;

my @recipients = ();

if ($^O eq “darwin”) {

# Log in once to webtext under safari and this will work

	# you need to allow the security program to access the keychain

	open(IN, “security find-internet-password -g -s www.vodafone.ie -r htps 2>&1 |”) || die “$!”;

while(<IN>) {

if (m/”acct”<blob>=”(.*)”/) { $username = $1; }

if (m/password: “(.*)”/) { $password = $1; }

}

close(IN);

} else {

# use something else, or program the passwords here

	$username=”0876666666″;

$password=”password”;

}

my $webtext_url=”https://www.vodafone.ie/myv/messaging/webtext/index.jsp”;

sub usage {

print “$0 <addressee1> […<addressee5>] \”Message\”\n”;

exit 0

}

usage() if ((scalar(@ARGV) < 2) || (scalar(@ARGV) > 6));

while (scalar(@ARGV) > 1) {

push(@recipients, shift @ARGV);

}

$message = pop(@ARGV);

if (length($message) > 160) {

die “Message too long.\n Shorten to: \”” . substr($message, 0, 160) . “\””;

}

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

push @{ $ua->requests_redirectable }, ‘POST’;

$ua->cookie_jar({ });

$ua->agent(‘Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en) AppleWebKit/523.10.3 (KHTML, like Gecko) Version/3.0.4 Safari/523.10’);

my $response = $ua->get($webtext_url);

#print Dumper($response);

my @forms = HTML::Form->parse($response->content, $response->base);

my $form = undef;

foreach (@forms) {

if (defined($_->{‘attr’}) &&

lc($_->{‘attr’}{‘name’}) eq “login”) {

$form=$_;

}

}

die “Could not get Login Form” unless $form;

$form->value(‘username’, $username);

$form->value(‘password’, $password);

$response = $ua->request($form->click);

die “Login Failed” if (!$response->is_success || $response->base =~ /Login.shtml/);

$response->as_string() =~ /emaining messages this month:.*>(\d+)</s

or die “Unexpected response: ” . $response->as_string() . ”  Couldn’t determine number of remaining texts”;

my $remaining = $1;

@forms = HTML::Form->parse($response->content, $response->base);

$form = undef;

foreach (@forms) {

if (defined($_->{‘attr’}) &&

lc($_->{‘attr’}{‘name’}) eq “webtext”) {

$form=$_;

}

}

die “Could not get Webtext Form” unless $form;

# walk the label for=… -> form id=… matches

my %chk_labels;

my %address_book;

%chk_labels = $response->content =~ m/label for=”chk_box_(\d*)”>([^<]*)</g;

#print Dumper($form);

foreach (keys(%chk_labels)) {

my $iv = $form->find_input(“chk_box_$_”);

$address_book{$chk_labels{$_}} = $iv->{menu}[1]{‘value’};

}

$form->value(‘message’, $message);

my $i = 0;

print “Sending: $message to “;

foreach (@recipients) {

my $phone = $_;

if (!($phone =~ /^[0-9]/)) {

$phone = $address_book{$phone};

}

$form->value(“recipients[$i]”, $phone);

print $phone . ” “;

$i++;

}

print “\n”;

sleep(5);

$response = $ua->request($form->click);

die “Message was not sent correctly” . Dumper($response) if (!($response->as_string() =~ /Your message was sent to:/));

$response = $ua->get($webtext_url);

$response->as_string() =~ /emaining messages this month:.*>(\d+)</s

or die “Unexpected response: ” . $response->as_string() . ”  Couldn’t determine number of remaining texts”;

if ($remaining == $1) {

die “Even though the message was sent, the number of available messages didn’t reduce”;

}

print “Remaining Messages: $1\n”;

exit 0