#!/usr/bin/perl -w

use strict;

my $comicDir = "$ENV{HOME}/data/comics";
unless (-d $comicDir) {
	require File::Path;
	mkpath($comicDir, 1);
}

chdir($comicDir) || die "Unable to change directory: $!";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $date = sprintf('%04d%02d%02d',($year += 1900),++$mon,$mday);

eval { require WWW::Dilbert; };
unless ($@) {
	unless (-d "$comicDir/dilbert") {
		mkdir "$comicDir/dilbert" || die "Unable to make directory: $!";
	}
	my $filename = WWW::Dilbert::mirror_strip("dilbert/dilbert$date.gif");
	print "Downloaded Dilbert comic to $filename.\n";
}

eval { require WWW::VenusEnvy; };
unless ($@) {
	unless (-d "$comicDir/venusenvy") {
		mkdir "$comicDir/venusenvy" || die "Unable to make directory: $!";
	}
	my $filename = WWW::VenusEnvy::mirror_strip();
	my $new_filename = "venusenvy/venusenvy$filename";
	if (-f $new_filename) {
		print "Old VenusEnvy comic strip ignored.\n";
		unlink $filename || die "Unable to delete $filename: $!";
	} else {
		print "Downloaded VenusEnvy comic to $new_filename.\n";
		rename $filename, $new_filename
			|| die "Unable to move $filename to $new_filename: $!";
	}
}