Initial support for tt2 and gen_website

[grml.org.git] / gen_website

diff --git a/gen_website b/gen_website
new file mode 100644 (file)
index 0000000..2744397
--- /dev/null
+++ b/gen_website
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use strict; 
+use warnings; 
+
+use Template;
+use File::Find::Rule;
+use File::Path qw(make_path);
+use File::Basename qw (fileparse);
+use File::Copy::Recursive qw(fcopy);
+
+my $out_dir = "out/";
+
+#find all files
+
+my @files = File::Find::Rule->file()
+                           ->in('.');
+
+
+#initialize template toolkit
+
+my $template = Template->new;
+
+foreach my $file (@files) {
+       next if $file =~ /^$out_dir/;
+       next if $file =~ /$0$/;
+       if ($file =~ /\.tt2$/) {
+               my $output;
+               $template->process($file, undef, \$output);
+               my ($name,$path,$suffix) = fileparse($file,qw (.tt2));
+               open (my $fh, '>', "$out_dir/$path/$name.html") or die "$!";
+               print $fh $output;
+               close($fh);
+       } else {
+               fcopy ($file, "$out_dir/$file");
+       }
+}