Start using Template toolkit to show the empty pages

szabgab · Oct 20, 2014 · 0ce8f29 · 0ce8f29
1 parent 94db292
commit 0ce8f29
Show file tree

Hide file tree

Showing 5 changed files with 36 additions and 1 deletion.
diff --git a/Makefile.PL b/Makefile.PL
@@ -7,7 +7,10 @@ my %conf = (
 	AUTHOR       => 'Gabor Szabo <szabgab@cpan.org>',
 	VERSION_FROM => 'lib/MetaCPAN/SCO.pm',
 	PREREQ_PM    => {
+		'Cwd'              => '0',
+		'File::Basename'   => '0',
 		'Plack::Request'   => '0',
+		'Template'         => '0',
 	},
 );
 

diff --git a/lib/MetaCPAN/SCO.pm b/lib/MetaCPAN/SCO.pm
@@ -2,7 +2,10 @@ package MetaCPAN::SCO;
 use strict;
 use warnings;
 
+use Cwd qw(abs_path);
+use File::Basename qw(dirname);
 use Plack::Request;
+use Template;
 
 our $VERSION = '0.01';
 
@@ -18,13 +21,34 @@ sub run {
 
 		my $request = Plack::Request->new($env);
 		if ($request->path_info eq '/') {
-			return [ '200', [ 'Content-Type' => 'text/plain' ], ['Hello'], ];
+			return template('index');
 		}
 
 		return [ '404', [ 'Content-Type' => 'text/html' ], ['404 Not Found'], ];
 	};
 }
 
+sub template {
+	my ( $file ) = @_;
+
+	my $root = dirname(dirname(dirname( abs_path(__FILE__) )));
+
+	my $tt = Template->new(
+		INCLUDE_PATH => "$root/tt",
+		INTERPOLATE  => 0,
+		POST_CHOMP   => 1,
+		EVAL_PERL    => 1,
+		START_TAG    => '<%',
+		END_TAG      => '%>',
+		PRE_PROCESS  => 'incl/header.tt',
+		POST_PROCESS => 'incl/footer.tt',
+	);
+	my $out;
+	$tt->process( "$file.tt", {}, \$out )
+		|| die $tt->error();
+	return [ '200', [ 'Content-Type' => 'text/html' ], [$out], ];
+}
+
 
 1;
 
diff --git a/tt/incl/footer.tt b/tt/incl/footer.tt
@@ -0,0 +1,2 @@
+</body>
+</html>
diff --git a/tt/incl/header.tt b/tt/incl/header.tt
@@ -0,0 +1,5 @@
+<html>
+<head>
+  <title>The CPAN Search Site - search.cpan.org</title>
+</head>
+<body>
diff --git a/tt/index.tt b/tt/index.tt
@@ -0,0 +1 @@
+MetaCPAN::SCO