X-Git-Url: http://git.grml.org/?a=blobdiff_plain;f=gen_website;h=4345f1929d0129fdb16e080a8e429fa76094c65a;hb=6795009656c9e7e89af135303a3520940a0dba94;hp=2e17ffab1439235c340d6ba2583cf9ab8cad9e68;hpb=697762015ceb1fd6184adbeffb727ea4e4708c4b;p=grml.org.git diff --git a/gen_website b/gen_website index 2e17ffa..4345f19 100644 --- a/gen_website +++ b/gen_website @@ -1,7 +1,7 @@ #!/usr/bin/perl -use strict; -use warnings; +use strict; +use warnings; use Template; use File::Find::Rule; @@ -30,11 +30,11 @@ foreach my $file (@files) { 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") + open (my $fh, '>', "$out_dir/$path/$name") or die "Could not write to $file: $!"; print $fh $output; close($fh);