From b662850713e9e5a290dd8aab40388ecb6726b04c Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 19 Jul 2010 20:47:46 +0200
Subject: [PATCH] UCW::Temple::CGI: Written

---
 UCW/Temple/CGI.pm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 UCW/Temple/CGI.pm

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;
-- 
2.39.5