#!/usr/bin/perl -w

# Przykadowa wtyczka przeszukujca freshmeat 
#
# Plik jest rozpowszechniany na takiej licencji, jak sam Perl.
#
# by rik - ora@rikrose.net

use strict;
use LWP::UserAgent;
use HTML::TokeParser;

# utwrz adres URL na podstawie podanego zapytania.
my $url = "http://freshmeat.net/search-xml?q=" . join "+", @ARGV;

# pobieramy dane.
my $ua = LWP::UserAgent->new(  );
$ua->agent('Mozilla/5.0');
my $response = $ua->get($url);
die $response->status_line . "\n"
  unless $response->is_success;

my $stream = HTML::TokeParser->new (\$response->content) or die "\n";
while (my $tag = $stream->get_tag("match")){
    $tag = $stream->get_tag("projectname_full");
    my $name = $stream->get_trimmed_text("/projectname_full");
    $tag = $stream->get_tag("url_homepage");
    my $url = $stream->get_trimmed_text("/url_homepage");
    print "$url\t$name\n";
}

