#!/usr/bin/perl
# $Id: fetch-orphea-images,v 1.3 2005/05/23 18:02:00 rousse Exp $

use Getopt::Long;
use WWW::Orphea;
use strict;

my %opts;
my $base = 'image';
my $limit = 100;
my ($user, $pass, $server);
GetOptions(
    "limit=i"  => \$limit,
    "base=s"   => \$base,
    "user=s"   => \$user,
    "pass=s"   => \$pass,
    "server=s" => \$server
);

my $agent = WWW::Orphea->new(
    server => $server,
    user   => $user,
    pass   => $pass
);

while (my $item = <>) {
    chomp $item;
    my $result = $agent->search($item, limit => $limit);
    if ($result) {
	mkdir($item);
	$result->save_all_contents(dir => $item, base => $base);
    }
}
