#!/usr/bin/perl
# $Id: fetch-google-images,v 1.3 2005/02/07 14:14:53 rousse Exp $

use Getopt::Long;
use WWW::Google::Images;
use strict;

my %opts;
my $base = '';
my (%search_options, %save_options);
GetOptions(
    'base=s'       => \$save_options{base},
    'content'      => \$save_options{content},
    'context'      => \$save_options{context},
    'summary'      => \$save_options{summary},
    'limit=i'      => \$search_options{limit},
    'regex=s'      => \$search_options{regex},
    'iregex=s'     => \$search_options{iregex},
    'min_size=s'   => \$search_options{min_size},
    'max_size=s'   => \$search_options{max_size},
    'min_width=s'  => \$search_options{min_width},
    'max_width=s'  => \$search_options{max_width},
    'min_height=s' => \$search_options{min_height},
    'max_height=s' => \$search_options{max_height},
);

my $agent = WWW::Google::Images->new();

while (my $item = <>) {
    chomp $item;
    my $result = $agent->search($item, %search_options);
    if ($result) {
	mkdir($item);
	$result->save_all(dir => $item, %save_options);
    }
}