Initial support for tt2 and gen_website

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");
+	}
+}