comics/fetch.pl.new - diff

Return to fetch.pl.new CVS log

Up to [Local Repository] / comics

version 1.14, 2015/01/16 14:17:56	version 1.15, 2015/01/19 13:46:19
Line 1	Line 1
#!/usr/bin/perl -w	#!/usr/bin/perl -w

	###############################################################################
	# $Log$
	# Revision 1.15 2015/01/19 13:46:19 nick
	# * empty log message *
	#
	###############################################################################

use strict;	use strict;
use File::Path;	use File::Path;
use Data::Dumper;	use Data::Dumper;
Line 9 use Getopt::Long;	Line 16 use Getopt::Long;
##	##
## Some default values	## Some default values
##	##
my $ver = q/$Id$/;	my $ver = '$Id$';
my $comicFile = "comics.conf";	my $comicFile = "comics.conf";
my %comics = &readComicConfig ( $comicFile );	my %comics = &readComicConfig ( $comicFile );
my %opts = &fetchOptions( );	my %opts = &fetchOptions( );