CUV Daily mailer from youversion.com

#!/usr/bin/perl
use WWW::Mechanize;
use MIME::Lite;
use Encode;
use Encode::HanConvert qw(simple);

$a = WWW::Mechanize ->new();
$a->get('http://m.youversion.com/sign-in?redirect=home');
$a->form_number(2);
$a->field('password', '...');
$a->field('username', '...');
$a->click('submit');
$c = ($a->get('http://m.youversion.com/home')->content());
eval { $m = MIME::Lite ->new(To => q(my@mail.com), Subject => q(OYT),
Type => q(multipart/related)); $m->attach(Type => q(text/html), Data
=> $_); $m->send()} for grep {$_ =
simple(decode(q(utf8),$a->get($_)->content())); s{豫备}{预备}g;
s{豫言}{预言}g; s{\[more\]}{}sg;
s{.*?(

.*).*}{\1

}s; $_} grep { $_ =~
s{/asv/}{/cuv/}; $_ } $c =~
m{"(http://m.youversion.com/bible/asv/.*)"}g

Posted via email from purl's posterous