#!/usr/bin/perl

use strict;
use warnings;

use WWW::Newzbin;
use WWW::Newzbin::Constants;

# log into newzbin using the username "joebloggs" and the password "secretpass123"
my $nzb = WWW::Newzbin->new(
	username => "joebloggs",
	password => "secretpass123"
);

# search newzbin for posts
my @results = $nzb->search_files(
	query => "the john smith orchestra",
	category => [ NEWZBIN_CAT_MUSIC, NEWZBIN_CAT_MOVIES ], # search in Newzbin's "music" and "movies" categories...
	group => [ "alt.binaries.music", "alt.binaries.test" ], # ...and return results from these groups only
	retention => 30, # no more than 30 days old
	resultlimit => 50, # return maximum of 50 results
	sortfield => NEWZBIN_SORTFIELD_SUBJECT, # sort by subject...
	sortorder => NEWZBIN_SORTORDER_ASC # ...in ascending order
);

# check whether errors occurred
if ($nzb->error_code) {
	print "Error # " . $nzb->error_code . ": " . $nzb->error_message;
} else {
	print "Total number of results found: " . $nzb->search_files_total;
	print "Subject of result #1: " . $results[0]->{subject};
}