Mercurial > hg > chronicle
changeset 143:55c15e6aebd6
Minore cleanups.
author | Steve Kemp <steve@steve.org.uk> |
---|---|
date | Wed, 26 Dec 2007 15:16:16 +0000 |
parents | ded69d8a4ad1 |
children | 571c8d4310f0 |
files | bin/chronicle |
diffstat | 1 files changed, 20 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/bin/chronicle Wed Dec 26 15:05:10 2007 +0000 +++ b/bin/chronicle Wed Dec 26 15:16:16 2007 +0000 @@ -201,7 +201,9 @@ =back - This should include the comments in the static output. + This should include the comments in the static output. More + explicit instructions are provided within the file 'COMMENTS' + included within the distribution. =cut @@ -545,12 +547,6 @@ if ( $VERSION ) { - my $REVISION = '$Revision: 1.28 $'; - if ( $REVISION =~ /1.([0-9.]+) / ) - { - $REVISION = $1; - } - print( "chronicle release $RELEASE\n" ); exit; } @@ -577,18 +573,6 @@ { my %results; - if ( ! -d $CONFIG{'input'} ) - { - print <<EOF; - - The blog input directory $CONFIG{'input'} does not exist. - - Aborting. -EOF - - exit - } - # # Did the user override the default pattern? # @@ -1894,11 +1878,8 @@ =begin doc - Sanity check our arguments: - - 1. Make sure we have a theme-directory - - 2. Make sure we have a theme. + Sanity check our arguments, and setup to make sure there is nothing + obviously broken. =end doc @@ -1906,6 +1887,21 @@ sub sanityCheckArguments { + # + # Make sure we have an input directory. + # + if ( ! -d $CONFIG{'input'} ) + { + print <<EOF; + + The blog input directory $CONFIG{'input'} does not exist. + + Aborting. +EOF + + exit; + } + if ( !$CONFIG{'theme-dir'} ) { print <<EOF;