X-Git-Url: https://git.grml.org/?a=blobdiff_plain;f=gen_website;h=398613e657cc2bceb885a072d951368cbb0c230f;hb=1fce34f10ff6bdb0dc2bf3500c5f50a94e611bbd;hp=2e17ffab1439235c340d6ba2583cf9ab8cad9e68;hpb=697762015ceb1fd6184adbeffb727ea4e4708c4b;p=grml.org.git diff --git a/gen_website b/gen_website index 2e17ffa..398613e 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,12 @@ 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") + make_path("$out_dir/$path") unless -d "$out_dir/$path"; + open (my $fh, '>', "$out_dir/$path/$name") or die "Could not write to $file: $!"; print $fh $output; close($fh);