aboutsummaryrefslogtreecommitdiff
path: root/form
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-09-17 20:57:05 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-09-17 20:57:05 +0200
commit361bb55f01ba28960a8127b0a16c1e7a7a8de61a (patch)
treeff0479af1c9283c8a0546025022ebc54616a9a75 /form
parent2810ad72aeb973a898034d6875922284062c5ce0 (diff)
downloadcforum-361bb55f01ba28960a8127b0a16c1e7a7a8de61a.tar.gz
Rewrite mktpl script in C
The Perl version didn't handle multiple interpolations on the same line.
Diffstat (limited to 'form')
-rwxr-xr-xform12
1 files changed, 12 insertions, 0 deletions
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