openbsd/errata_scraper/errata_scraper.pl - diff

Return to errata_scraper.pl CVS log

Up to [local] / openbsd / errata_scraper

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

version 1.4, 2011/05/29 02:04:30

Line 1

#!/usr/bin/perl

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

# $AFresh1: errata_scraper.pl,v 1.3 2011/03/23 18:46:16 andrew Exp $

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

Line 19

use warnings;

use Mojo::UserAgent;

use Mojo::ByteStream 'b';

Line 33

Line 32

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

} )

{

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

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

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

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

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

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

my $descr = b( $e->all_text )->trim;

my $descr = $e->all_text;

$descr =~ s/\s+/ /gs;

$descr =~ s/\s(\.(?:\s|$))/$1/gs;

$descr =~ s/\.+$/./gs;

print 'Title: ', $title, "\n";

print 'Arch: ', $arch, "\n";