Mercurial > hg > chronicle
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" ); } } }