From: Martin Mares <mj@ucw.cz>
Date: Mon, 19 Jul 2010 18:47:46 +0000 (+0200)
Subject: UCW::Temple::CGI: Written
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=b662850713e9e5a290dd8aab40388ecb6726b04c;p=temple.git

UCW::Temple::CGI: Written
---

diff --git a/UCW/Temple/CGI.pm b/UCW/Temple/CGI.pm
new file mode 100644
index 0000000..0dc71c5
--- /dev/null
+++ b/UCW/Temple/CGI.pm
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+# Building blocks of CGI's using the UCW::Temple template engine
+# (c) 2010 Martin Mares <mj@ucw.cz>
+
+package UCW::Temple::CGI;
+
+use strict;
+use warnings;
+
+use UCW::Temple;
+
+require Exporter;
+our $VERSION = 1.0;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(out template shipout);
+our @EXPORT_OK = qw();
+
+our @out_buffer = ();
+$T::out_func = sub {
+	push @out_buffer, @_;
+};
+
+sub template($;$) {
+	my ($string, $args) = @_;
+	UCW::Temple::process_string($string, $args);
+}
+
+sub shipout() {
+	print @out_buffer;
+	@out_buffer = ();
+}
+
+42;