From 697762015ceb1fd6184adbeffb727ea4e4708c4b Mon Sep 17 00:00:00 2001 From: Alexander Wirt Date: Mon, 2 Jan 2012 17:07:39 +0100 Subject: [PATCH] Some error processing --- gen_website | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/gen_website b/gen_website index 2744397..2e17ffa 100644 --- a/gen_website +++ b/gen_website @@ -21,17 +21,24 @@ my @files = File::Find::Rule->file() my $template = Template->new; +if (! -d $out_dir) { + make_path($out_dir) or die "Could not create outdir $out_dir: $!"; +} + foreach my $file (@files) { next if $file =~ /^$out_dir/; next if $file =~ /$0$/; if ($file =~ /\.tt2$/) { my $output; - $template->process($file, undef, \$output); + $template->process($file, undef, \$output) + || die "Could not process file \"$file\": $!"; + my ($name,$path,$suffix) = fileparse($file,qw (.tt2)); - open (my $fh, '>', "$out_dir/$path/$name.html") or die "$!"; + open (my $fh, '>', "$out_dir/$path/$name.html") + or die "Could not write to $file: $!"; print $fh $output; close($fh); } else { - fcopy ($file, "$out_dir/$file"); + fcopy ($file, "$out_dir/$file") or die "Could not copy $file to $out_dir/$file: $!"; } } -- 2.1.4