用 Mojo 命令行抓取数据完成自动更新 rpm 构建

#!/usr/bin/env perl
use Modern::Perl;
use IPC::Run qw(run);
use File::Slurp;
use POSIX qw(strftime);
use Template;
use ojo;

my @ModuleList = qw(
    renren/ngx_http_accounting_module
    agentzh/echo-nginx-module
    agentzh/chunkin-nginx-module
    simpl/ngx_devel_kit
    calio/form-input-nginx-module
    chaoslawful/lua-nginx-module
    renren/ngx_http_consistent_hash
);

my $TengineMD5 = (split(/ /, g("http://tengine.taobao.org/download_cn.html")->dom->at(".one_col li span")->text))[-1];

write_file("md5.txt", "firstimetorun") unless -f "md5.txt";
my $TengineOldMD5 = read_file( "md5.txt" );

say $TengineOldMD5;
say $TengineMD5;

if ( $TengineMD5 ne $TengineOldMD5 ) {
    gettarball(\@ModuleList);
    write_file("md5.txt", $TengineMD5);
}

sub gettarball {
    my $ModuleList = shift;

    my $TengineUrl = g("http://tengine.taobao.org/download_cn.html")->dom->at(".one_col li a")->{href};
    my $TengineVersion = $1 if $TengineUrl =~ m!download/tengine-(.*).tar.gz!;
    my $TengineRelease = strftime("%Y%m%d%H%M",localtime);

    run('wget', "http://tengine.taobao.org/${TengineUrl}", '-O', "SOURCES/tengine-${TengineVersion}.tar.gz");

    my @ModuleFile;
    my $i = 10;
    for my $Module ( @{ $ModuleList } ) {;
        my $GitUrl = "https://github.com/${Module}";
        say $GitUrl;
        my $GitCommit = substr(g("${GitUrl}")->dom->at(".sha")->text, 0, 7);
        ( my $StoreName = $Module ) =~ s!/!-!;
        my $StoreFile = "${StoreName}-${GitCommit}.tar.gz";
        push @ModuleFile, [ "Source${i}" => "${StoreName}-${GitCommit}" ];

        run('wget', "${GitUrl}/tarball/master", '-O', "SOURCES/$StoreFile");

        $i++;
    }

    unlink('SPECS/tengine.spec');
    my $template = Template->new;
    $template->process("tengine.spec.tt", {
        TengineVersion => $TengineVersion,
        TengineRelease => $TengineRelease,
        TengineAddons  => \@ModuleFile,
    }, "SPECS/tengine.spec");

    buildrpm($TengineVersion, $TengineRelease);
}

sub buildrpm {
    my ( $TengineVersion, $TengineRelease ) = @_;
    my ( $out, $err );
    run ['rpmbuild', '-bb', 'SPECS/tengine.spec'], undef, \$out, $err;
    mail2author($err);
}

sub mail2author {
    my $output = shift;
    my $body = $output ? "Build Error: $output" : "Build OK";
    p("http://email.notify.d.xiaonei.com/eml/tengine-build/chenlin.rao" => { DNT => 1 } => $body);
}