From 361bb55f01ba28960a8127b0a16c1e7a7a8de61a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 17 Sep 2021 20:57:05 +0200
Subject: Rewrite mktpl script in C

The Perl version didn't handle multiple interpolations on the same line.
---
 form | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 form

(limited to 'form')

diff --git a/form b/form
new file mode 100755
index 0000000..24e0af2
--- /dev/null
+++ b/form
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+
+print while <DATA>;
+
+__END__
+Content-Type: text/html
+
+<form action="cforum?action=edit" method="post">
+	<p><label for="name">Name</label><input type="text" name="name" value="" id="name">
+	<p><textarea name="text" rows="8" cols="40"></textarea>
+	<p><input type="submit" value="Continue &rarr;"></p>
+</form>
\ No newline at end of file
-- 
cgit v1.2.3