#!/usr/bin/perl

# Coded by Trizen
# Email: echo dHJpemVueEBnbWFpbC5jb20K | base64 -d
# Website: http://trizen.go.ro

use LWP::Simple;
use warnings;
use strict 'refs';

my $folder_name = 'NASA Photos';
my $lwp         = 'LWP::UserAgent'->new;
$lwp->agent('Mozilla/5.0 (X11; Linux i686; rv:5.0) Gecko/20100101 Firefox/5.0');

mkdir $folder_name unless -e $folder_name;
die "error: '${folder_name}' is a file...\n" unless -d $folder_name;

foreach my $line (
    split( /\n/, get('http://apod.nasa.gov/apod/archivepix.html'), 0 ) )
{

    if ( $line =~ /<a href="ap([\w]+)\.html">/ ) {
        if ( get("http://apod.nasa.gov/apod/ap$1.html") =~
            m[<a href="image/(.+)\.([\w]{3,4})">] )
        {
            my $imgurl = "http://apod.nasa.gov/apod/image/$1.$2";
            my $name   = $1;
            my $format = $2;
            $name = $1 if $name =~ m[/([^/]+)$];
            die "error: $name.$format already exists!\n"
              if -e "$folder_name/$name.$format";
            $lwp->show_progress(1);
            $lwp->mirror( $imgurl, "$folder_name/$name.$format" );
            $lwp->show_progress(0);
        }
    }
}