#!/usr/bin/perl

use LWP::Simple ; ;
use HTML::LinkExtor ;

$base_url = shift ;

$parser = HTML::LinkExtor->new(undef,$base_url) ;
$parser->parse(get($base_url))->eof ;
@links = $parser->links ;

foreach $linkarray (@links) {
   my @element = @$linkarray ;
   my $elt_type = shift @element ;
   while (@element) {
      my ($attr_name, $attr_value ) = splice(@element, 0, 2) ;
      $seen{$attr_value}++
   }
}

for (sort keys %seen) { 
   my $link = $_ ;
   if ( ($link =~ /[Jj][Pp][Gg]$/) or ($link =~ /[Gg][Ii][Ff]$/) ) {
      my $name = $link ;
      $name =~ s/^.*\/(.*)$/$1/ ;
      if ( -e $name ) {
         `mv $name a$name` ;
      }
      getstore($link,$name) ;
#      print $link, ' ', $name, "\n" ;
   }
}