#!/usr/bin/perl
#torin jakub.laszczynski@gmail.com
use strict;
use warnings;
use WWW::Mechanize;
use File::Basename;

my $mech = WWW::Mechanize->new( autocheck => 1 );
        $mech->agent_alias( 'Windows IE 6' );
my $day_new;
my $month_new;
$mech->quiet(0);

for ( my $year=1997; $year <= 2007; $year++ ) {
        for ( my $month=01; $month <= 12; $month++ ) {
                for ( my $day=01; $day <= 31; $day++ ) {
                        if ( $day < 10 ) { $day_new="0$day"; } else { $day_new=$day; }
                        if ( $month < 10 ) { $month_new="0$month"; } else { $month_new=$month; }

                        my $url = 'http://ars.userfriendly.org/cartoons/?id='.$year.$month_new.$day_new;
                        $mech->get( $url );
                        if ( $mech->success ) {
                                my @obrazki = $mech->images();

                                foreach(@obrazki) {
                                        my $img_url = $_->url();
                                        my $local = $year.$month_new.$day_new.'_'.basename($img_url);
                                        if ($img_url =~ /archives/) {
                                                $mech->get( "$img_url", ":content_file" => "images/$local");
                                                        if ( $mech->success ) {
                                                                print "Zapisano obrazek: $img_url jako: $local\n";
                                                                }
                                                        else
                                                                {
                                                                print "Wystapil nieoczekiwany blad.\n";
                                                        }
                                        }
                                }
                        }
                }
        }
}