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;