Recently in General Category

#!/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

<?xml version="1.0"?>
<signature name="default" uid="XXX@XXX" auto="false" format="text/html">
<filename script="true">sig.work</filename>
</signature>

He said: "London is not a battlefield. Those innocents who were murdered on July 7 2005 were not victims of war. And the men who killed them were not, as in their vanity they claimed on their ludicrous videos, 'soldiers'. They were deluded, narcissistic inadequates. They were criminals. They were fantasists. We need to be very clear about this. On the streets of London, there is no such thing as a 'war on terror', just as there can be no such thing as a 'war on drugs'.

"The fight against terrorism on the streets of Britain is not a war. It is the prevention of crime, the enforcement of our laws and the winning of justice for those damaged by their infringement."

Sir Ken, head of the Crown Prosecution Service, told members of the Criminal Bar Association it should be an article of faith that crimes of terrorism are dealt with by criminal justice and that a "culture of legislative restraint in the area of terrorist crime is central to the existence of an efficient and human rights compatible process".

He said: "We wouldn't get far in promoting a civilising culture of respect for rights amongst and between citizens if we set about undermining fair trials in the simple pursuit of greater numbers of inevitably less safe convictions. On the contrary, it is obvious that the process of winning convictions ought to be in keeping with a consensual rule of law and not detached from it. Otherwise we sacrifice fundamental values critical to the maintenance of the rule of law - upon which everything else depends."

• 4oz. Margarine
• 4oz. Sugar
• 2 Tablesp. Water
• 6oz. self-raising flour
• 2 eggs
• 1/4 Teasp. salt
• Flavouring

Method:

cream fat and sugar, beat in the whisked eggs, stir in the flour and salt with added water, Steam or bake.

For Marmalade Pudding:

Add one large tablesp. of marmalade to the foundation mixture. Steam and serve with Marmalade sauce.

To Steam:

1. • use a steamer over a pan of boiling water.
   • Have a well fitting lid.
   • Keep water boiling and steaming all the time
2. • Place the pudding basin in a saucepan with boiling water.
   • Water should come half way up the sides of the basin
   • Keep the water boiling, and as it boils away, fill up with boiling water, but do not wet the top of the pudding
3. Steam in a pressure cooker, according to instructions.

Time for steaming is about 1.5 hours for a pudding made from 6-8oz. flour.

Turning out: A light pudding breaks easily, so loosen it gently from the sides of the basin with a flexible round-ended blade, which should be pressed against the side of the basin, not the pudding.
When loose, cover the basin with a hot dish and invert quickly.
A good pudding may be marred by careless serving and enhanced by dainty dishing.

To Bake:

Use a pie dish, cake tin, soufflé tin, fireproof dish, ring mould, small moulds or deep bun tins.

Grease well.

Time required: 30-40 minutes for large and 15-20 for small moulds.