changeset 13:a3d2dca6ada3

2007-08-14 14:22:05 by steve Static file copying works.
author steve
date Tue, 14 Aug 2007 14:22:05 +0000
parents 9efe0b8729a8
children f37430dda970
files bin/chronicle
diffstat 1 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/bin/chronicle	Tue Aug 14 14:01:15 2007 +0000
+++ b/bin/chronicle	Tue Aug 14 14:22:05 2007 +0000
@@ -54,7 +54,7 @@
  --
  http://www.steve.org.uk/
 
- $Id: chronicle,v 1.6 2007-08-14 14:01:15 steve Exp $
+ $Id: chronicle,v 1.7 2007-08-14 14:22:05 steve Exp $
 
 =cut
 
@@ -294,7 +294,7 @@
 
     if ( $VERSION )
     {
-        my $REVISION      = '$Revision: 1.6 $';
+        my $REVISION      = '$Revision: 1.7 $';
         if ( $REVISION =~ /1.([0-9.]+) / )
         {
             $REVISION = $1;
@@ -1321,10 +1321,17 @@
     {
         foreach my $file ( glob( $input . "/" . $pattern ) )
         {
+            #
+            #  Get the name of the file.
+            #
+            if ( $file =~ /(.*)\/(.*)/ )
+            {
+                $file = $2;
+            }
             if ( ! -e  "$output/$file" )
             {
-                $CONFIG{'verbose'} && print "Copying static file $file\n";
-                copy( "$input/$file", "$output/$file" );
+                $CONFIG{'verbose'} && print "Copying static file: $file\n";
+                copy(  "$input/$file", "$output/$file" );
             }
         }
     }