From c408209d784647db6cee7e0e332a7c165fa4b17b Mon Sep 17 00:00:00 2001
From: Alexander Wirt <formorer@grml.org>
Date: Mon, 2 Jan 2012 17:01:02 +0100
Subject: [PATCH] Initial support for tt2 and gen_website

---
 gen_website            | 37 +++++++++++++++++++++++++++++++++++++
 index.php => index.tt2 |  0
 2 files changed, 37 insertions(+)
 create mode 100644 gen_website
 rename index.php => index.tt2 (100%)

diff --git a/gen_website b/gen_website
new file mode 100644
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");
+	}
+}
diff --git a/index.php b/index.tt2
similarity index 100%
rename from index.php
rename to index.tt2