#!/usr/bin/perl

use strict;

my $ep = EPrints->new();
my $repo = $ep->current_repository();

my $feature_string = `wget http://panfeed.ecs.soton.ac.uk/static/featured.txt -O -`;
my @features = split($feature_string, ","); 
my $features = $repo->dataset("archive")->list(\@features);

print $features->export("EPPublisherRSS2");
