openbsd/errata_scraper/errata_scraper.pl - diff

Return to errata_scraper.pl CVS log

Up to [local] / openbsd / errata_scraper

version 1.2, 2011/03/21 17:28:15

version 1.3, 2011/03/23 19:46:16

Line 1

#!/usr/bin/perl

# $AFresh1: errata_scraper.pl,v 1.1 2011/03/21 16:26:58 andrew Exp $

# $AFresh1: errata_scraper.pl,v 1.2 2011/03/21 16:28:15 andrew Exp $

########################################################################

Line 21

use Mojo::UserAgent;

use Mojo::ByteStream 'b';

->res->dom('li')->each(

sub {

my $e = shift;

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

my $ls = $ua->get( $base_uri . 'errata.html' )->res->dom('a[href^="errata"]');

foreach my $l ( @{$ls}[ -2, -1 ] ) {

print 'Errata for OpenBSD ', $l->text, "\n";

foreach my $e (

reverse @{ $ua->get( $base_uri . $l->attrs->{'href'} )->res->dom('li')

} )

{

my $patch = $e->at('a[href$=".patch"]')->attrs->{href};

my $title = b( $e->at('strong')->replace('')->all_text )->trim;

my $arch = b( $e->at('i')->replace('')->all_text )->trim;

Line 38

Line 45

print 'Descr: ', $descr, "\n";

print "\n";

}

);

}