#!/opt/local/bin/perl
#
#
# http://www.iconfactory.com/ware.asp

use strict;
use WWW::Mechanize;

my $url = 'http://www.iconfactory.com/ware.asp';
my $save_dir = '/Users/k_ozaki/scripts/perl/iconstorage/';

my $mech = WWW::Mechanize->new();
$mech->get($url);

# form name="select"
# order value="date"
# format value="pixadex"
# filter value="osx"
# lsize value="100"
# input submit value="Update List"

$mech->submit_form(
		   form_name => 'select',
		   fields => { 'order' => 'date',
			       'format' => 'pixadex',
			       'filter' => 'osx',
			       'lsize' => '100' },
		  );
die unless ($mech->success);

foreach ($mech->links)
  {
    # http://www.iconfactory.com/icontainers/fut4_icont.bin1
    if ($_->url_abs() =~ /\/icontainers\/([^\/]+)$/)
      {
	my $file_name = $1;
	my $save_file = $save_dir . $1;
	my $_m = WWW::Mechanize->new();
	print  "retrieving " . $_->url_abs() . "...\n";
	$_m->get($_->url_abs(), ':content_file' => $save_file);
      }
  }

=cut
$ cd iconstorage
$ find . -type f -name "*.bin" | wc -l
      99
$ find . -type f -name "*.bin" -exec open {} \;
$ find . -type f -name "*.icontainer" | wc -l
      99
$ find . -type f -name "*.icontainer" -exec open {} \;
=cut