「狂賀《簡報原力》登上銷售冠軍」活動機器人

jedi-daemon

#!/usr/bin/env perl
use 5.10.0;
use utf8;
use LWP::Simple;
use Encode 'encode';
use Encode::MIME::Header;
use File::Slurp 'slurp';
use Email::MIME;
use Email::Sender::Simple qw(sendmail);

my $url = "http://www.books.com.tw/exep/prod/books2008/top/best_top_26.php?prev_sub=03";
my $body = get($url);
$body =~ m{<h4>.*?<a href="[^"]*">\s*([^<]+?)\s*</a>} or die;

return if -d "/tmp/jedi-has-won";

unless (lc($1) eq 'jedi') {
    binmode STDOUT, ':utf8';
    say "==> Top-selling book author is $1, not Jedi; going to poll in another 15 minutes...";
    sleep 900;
    exec($0);
    exit;
}

system(wkhtmltoimage => $url => 'screenshot.jpg');
my @parts = (
    Email::MIME->create(
        attributes => {
            filename     => "screenshot.jpg",
            content_type => "image/jpeg",
            encoding     => "base64",
            name         => "screenshot.jpg",
        },
        body => scalar slurp('screenshot.jpg'),
    ),
    Email::MIME->create(
        attributes => {
            content_type => "text/plain",
            disposition  => "inline",
            charset      => "US-ASCII",
        },
        body => "Congratulations Jedi! " . localtime(),
    ),
);

my $email = Email::MIME->create(
    header => [
        From => 'audreyt@audreyt.org',
        To => 'JediLin@gmail.com',
        Cc => 'audreyt.org@gmail.com',
        Subject => encode('MIME-B' => "狂賀《簡報原力》登上銷售冠軍"),
    ],
    parts => [ @parts ],
);

sendmail($email);

say "==> Mail sent to Jedi!";
mkdir "/tmp/jedi-has-won";
exit;

hahahahahah!!!!