From 094ca96844842928810f14844413109fc6cdd890 Mon Sep 17 00:00:00 2001
From: Eduardo Chappa <echappa@gmx.com>
Date: Sun, 3 Feb 2013 00:59:38 -0700
Subject: Initial Alpine Version

---
 web/src/cgi.tcl-1.10/example/passwd.tcl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 web/src/cgi.tcl-1.10/example/passwd.tcl

(limited to 'web/src/cgi.tcl-1.10/example/passwd.tcl')

diff --git a/web/src/cgi.tcl-1.10/example/passwd.tcl b/web/src/cgi.tcl-1.10/example/passwd.tcl
new file mode 100644
index 00000000..31de1e17
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/passwd.tcl
@@ -0,0 +1,10 @@
+# common definitions for all password-related pages
+
+proc password {prompt varname} {
+    br
+    put "$prompt password: "
+    cgi_text $varname= type=password size=16
+}
+
+proc successmsg {s} {h3 "$s"}
+proc errormsg   {s} {h3 "Error: $s"}
-- 
cgit v1.2.3-54-g00ecf