view release on metacpan or  search on metacpan

lib/App/Slackeria/Plugin/OpenPorts.pm  view on Meta::CPAN

package App::Slackeria::Plugin::OpenPorts;

use strict;
use warnings;
use 5.010;

use parent 'App::Slackeria::Plugin';

use LWP::UserAgent;
use XML::LibXML;

our $VERSION = '0.12';

sub new {
	my ( $obj, %conf ) = @_;

	my $ref = {};

	$ref->{default} = \%conf;

	$ref->{ua} = LWP::UserAgent->new( timeout => 10 );

	return bless( $ref, $obj );
}

sub check {
	my ($self) = @_;

	my $name  = $self->{conf}->{name};
	my $reply = $self->{ua}
	  ->get("http://openports.se/search.php?stype=folder&so=${name}");

	if ( not $reply->is_success() ) {
		die( $reply->status_line() );
	}

	my $html = $reply->decoded_content();
	my $tree = XML::LibXML->load_html( string => $html );

	my $xp_main = XML::LibXML::XPathExpression->new('//div[@id="main"]/b');
	my $xp_url  = XML::LibXML::XPathExpression->new('following::a[1]');
	my $xp_ver  = XML::LibXML::XPathExpression->new('following::em/b[1]');

	for my $node ( @{ $tree->findnodes($xp_main) } ) {
		if ( $node->textContent() eq '*** Exact match ***' ) {
			my $category = $node->findnodes($xp_url)->[0]->textContent();
			my $version  = $node->findnodes($xp_ver)->[0]->textContent();

			$version =~ s{ ^ version \s }{}x;

			return { data => $version, };
		}
	}

	die("not found\n");
}

1;

__END__

=head1 NAME

App::Slackeria::Plugin::OpenPorts - Check project version in OpenBSD Ports

=head1 SYNOPSIS

In F<slackeria/config>

    [OpenPorts]

=head1 VERSION

version 0.12

=head1 DESCRIPTION

This plugin queries a project's port on openports.se.

More precisely, it checks wether
http://openports.se/search.php?stype=folder&so=I<name> reports an "*** Exact
match ***", and if so, returns its version.

=head1 CONFIGURATION

None.

=head1 DEPENDENCIES

=over

=item * LWP::UserAgent

=item * XML::LibXML

=back