A library of Tcl procedures to assist in writing CGI scripts.

6 files changed, 241 insertions, 0 deletions

diff --git a/www/tcl-cgi/Makefile b/www/tcl-cgi/Makefile
new file mode 100644
index 00000000000..b42bb5c3996
--- /dev/null
+++ b/www/tcl-cgi/Makefile
@@ -0,0 +1,23 @@
+# $NetBSD: Makefile,v 1.1.1.1 1999/07/07 15:15:12 bouyer Exp $
+#
+
+DISTNAME=	cgi.tcl
+PKGNAME=	tcl-cgi-0.8
+WRKSRC=		${WRKDIR}/cgi.tcl-0.8
+CATEGORIES=	www
+MASTER_SITES=	http://expect.nist.gov/cgi.tcl/
+EXTRACT_SUFX=	.tar.gz
+
+MAINTAINER=	bouyer@netbsd.org
+HOMEPAGE=	http://expect.nist.gov/cgi.tcl/
+
+DEPENDS+=	tcl-8.0.5:../../lang/tcl80
+GNU_CONFIGURE=	yes
+
+post-install:
+	${MKDIR} ${PREFIX}/share/doc/cgi-tcl
+	${MKDIR} ${PREFIX}/share/examples/cgi-tcl
+	${INSTALL_DATA} ${WRKSRC}/doc/* ${PREFIX}/share/doc/cgi-tcl
+	${INSTALL_DATA} ${WRKSRC}/example/* ${PREFIX}/share/examples/cgi-tcl
+
+.include "../../mk/bsd.pkg.mk"
diff --git a/www/tcl-cgi/files/md5 b/www/tcl-cgi/files/md5
new file mode 100644
index 00000000000..064ebccd918
--- /dev/null
+++ b/www/tcl-cgi/files/md5
@@ -0,0 +1,3 @@
+$NetBSD: md5,v 1.1.1.1 1999/07/07 15:15:12 bouyer Exp $
+
+MD5 (cgi.tcl.tar.gz) = c476fa60a291a1b1ba237572902ad843
diff --git a/www/tcl-cgi/patches/patch-aa b/www/tcl-cgi/patches/patch-aa
new file mode 100644
index 00000000000..da9d7984416
--- /dev/null
+++ b/www/tcl-cgi/patches/patch-aa
@@ -0,0 +1,25 @@
+$NetBSD: patch-aa,v 1.1.1.1 1999/07/07 15:15:12 bouyer Exp $
+
+--- cgi.tcl.in.orig	Tue Jul  6 17:58:42 1999
++++ cgi.tcl.in	Tue Jul  6 18:00:17 1999
+@@ -2006,8 +2006,8 @@
+ 
+     flush $_cgi(mailfid)
+ 
+-    if {[file executable /usr/lib/sendmail]} {
+-	exec /usr/lib/sendmail -t -odb < $_cgi(mailfile)
++    if {[file executable /usr/sbin/sendmail]} {
++	exec /usr/sbin/sendmail -t -odb < $_cgi(mailfile)
+ 	# Explanation:
+ 	# -t   means: pick up recipient from body
+ 	# -odb means: deliver in background
+@@ -2022,6 +2022,9 @@
+ 	set s [socket $_cgi(mail_relay) 25]
+ 	gets $s answer
+ 	if {[lindex $answer 0] != 220} {error $answer} 
++	puts $s "EHLO $host";flush $s
++	gets $s answer
++	if {[lindex $answer 0] != 250} {error $answer}  
+ 	puts $s "MAIL FROM:<$_cgi(email)>";flush $s
+ 	gets $s answer
+ 	if {[lindex $answer 0] != 250} {error $answer}  
diff --git a/www/tcl-cgi/pkg/COMMENT b/www/tcl-cgi/pkg/COMMENT
new file mode 100644
index 00000000000..0a4d8df583a
--- /dev/null
+++ b/www/tcl-cgi/pkg/COMMENT
@@ -0,0 +1 @@
+A library of Tcl procedures to assist in writing CGI scripts
diff --git a/www/tcl-cgi/pkg/DESCR b/www/tcl-cgi/pkg/DESCR
new file mode 100644
index 00000000000..b506dc95fe4
--- /dev/null
+++ b/www/tcl-cgi/pkg/DESCR
@@ -0,0 +1,146 @@
+This is the README to cgi.tcl, a library of Tcl procedures to assist
+in writing CGI scripts.  Review the HISTORY file for significant changes.
+
+The cgi.tcl home page is http://expect.nist.gov/cgi.tcl
+
+--------------------
+Introduction
+--------------------
+
+This is the README file for cgi.tcl, a set of procedures for writing
+CGI scripts in Tcl.  The procedures implement the code described in
+the paper "Writing CGI scripts in Tcl" which was published in the
+Proceedings of the Fourth Tcl Workshop (Tcl '96).
+
+--------------------
+Getting Started
+--------------------
+
+First, read the paper "Writing CGI Scripts in Tcl", from Tcl '96.  If
+you can't find the paper in this archive, it can also be found at:
+
+	http://www.nist.gov/msidlibrary/doc/libes96c.ps
+
+That paper will give you a lot of good ideas for using Tcl, not only
+with CGI but plain everyday HTML as well.
+
+Next, try some of the examples in the example directory.  Please read
+the "Instructions" section in example/README first.
+
+A rough draft of complete documentation of the individual functions
+can be found in ref.txt in the doc directory.  
+
+Note that you are expected to understand Tcl.  I'm not going to
+explain how to write Tcl scripts here.  (If you're looking for a Tcl
+tutorial, please consider my Expect book which includes a very nice
+tutorial on Tcl.)
+
+Similarly, you are expected to understand HTML.  There are plenty of
+web tutorials and books on it.  Go read one.  You don't have to become
+an expert on HTML, but it is important to get a feel for it.  (The
+cgi.tcl package will take care of the details.)  If you plan to do
+CGI, you should know a couple more basic things.  Here's a simple CGI
+intro:
+
+	http://hoohoo.ncsa.uiuc.edu/cgi/intro.html
+
+
+--------------------
+Status
+--------------------
+
+The library is reasonably complete.  It supports forms, tables,
+cookies, Netscape extensions, file upload, plug-ins, etc, etc.  On the
+other hand, there are some things missing - such as certain deprecated
+things in HTML, things I can't believe anyone would use, things that
+are special extensions to a browser I'm not familiar with, etc.
+
+This library should run on any system (UNIX, Win, or Mac) which
+supports Tcl 8.0.
+
+----------------------
+Examples
+----------------------
+
+This distribution contains example scripts.  They can be found in the
+example directory of this distribution.  Please read the
+"Instructions" section in example/README first.
+
+--------------------
+Installation
+--------------------
+
+If you are on UNIX, read the INSTALL file.
+If you are on W95/NT, read the install.win file.
+If you are on Mac, read the install.mac file.
+
+--------------------
+How to get the latest version of this code
+--------------------
+
+The latest version of this code may be received from:
+
+	http://expect.nist.gov/cgi.tcl/cgi.tcl.tar.gz
+or	ftp://ftp.nist.gov/mel/div826/subject/expect/cgi.tcl/cgi.tcl.tar.gz
+
+Request email delivery by mailing to "library@cme.nist.gov".  The
+contents of the message should be (no subject line) "send
+pub/cgi/cgi.tcl.tar.gz".
+
+--------------------
+Support from Don Libes or NIST
+--------------------
+
+Although I can't promise anything in the way of support, I'd be
+interested to hear about your experiences using it (good or bad).  I'm
+also interested in hearing bug reports and suggestions for improvement
+even though I can't promise to implement them.
+
+If you send me a bug, fix, or question, include the version of
+cgi.tcl, version of Tcl, and name and version of the OS that you are
+using.  Before sending mail, it may be helpful to verify that your
+problem still exists in the latest version.  You can check on the
+current release and whether it addresses your problems by retrieving
+the latest HISTORY file (see "History" above).
+
+
+Awards, love letters, and bug reports may be sent to:
+
+Don Libes
+National Institute of Standards and Technology
+Bldg 220, Rm A-127
+Gaithersburg, MD  20899
+(301) 975-3535
+libes@nist.gov
+
+I hereby place this software in the public domain.  NIST and I would
+appreciate credit if this program or parts of it are used.
+
+Design and implementation of this program was funded primarily by
+myself.  Funding contributors include the NIST Automated Manufacturing
+Research Facility (funded by the Navy Manufacturing Technology
+Program), the NIST Scientific and Technical Research Services, the
+ARPA Persistent Object Bases project and the Computer-aided
+Acquisition and the Logistic Support (CALS) program of the Office of
+the Secretary of Defense.
+
+--------------------
+Support for Don Libes or NIST
+--------------------
+
+NIST accepts external funding and other resources (hardware, software,
+and personnel).  This can be a fine way to work more closely with NIST
+and encourage particular areas of research.
+
+Funding can be earmarked for specific purposes or for less-specific
+purposes.  For example, if you simply like the work I do, you can
+contribute directly to my funding which will reduce the amount of time
+I have to spend writing proposals and submitting them to other people
+for funding on my own.
+
+I can also participate in the NIST Fellows program allowing me to
+spend several months to a year working directly with your company and
+potentially even at your location.  I am also interested in returning
+to an academic program.  I presently have an MS and am hunting for
+Ph.D. topics and advisors.  Let me know if you have ideas or are
+interested in being my advisor.
diff --git a/www/tcl-cgi/pkg/PLIST b/www/tcl-cgi/pkg/PLIST
new file mode 100644
index 00000000000..dc8a6a871ab
--- /dev/null
+++ b/www/tcl-cgi/pkg/PLIST
@@ -0,0 +1,43 @@
+@comment $NetBSD: PLIST,v 1.1.1.1 1999/07/07 15:15:12 bouyer Exp $
+lib/cgi0.8/cgi.tcl
+lib/cgi0.8/pkgIndex.tcl
+man/man3/cgi.tcl.3
+share/doc/cgi-tcl/ref.txt
+share/examples/cgi-tcl/README
+share/examples/cgi-tcl/cookie.cgi
+share/examples/cgi-tcl/creditcard.cgi
+share/examples/cgi-tcl/display-in-frame.cgi
+share/examples/cgi-tcl/display.cgi
+share/examples/cgi-tcl/download.cgi
+share/examples/cgi-tcl/error.cgi
+share/examples/cgi-tcl/evaljs.cgi
+share/examples/cgi-tcl/example.tcl
+share/examples/cgi-tcl/examples.cgi
+share/examples/cgi-tcl/form-tour-result.cgi
+share/examples/cgi-tcl/form-tour.cgi
+share/examples/cgi-tcl/format-tour.cgi
+share/examples/cgi-tcl/frame.cgi
+share/examples/cgi-tcl/image.cgi
+share/examples/cgi-tcl/kill.cgi
+share/examples/cgi-tcl/nistguest.cgi
+share/examples/cgi-tcl/oratcl.cgi
+share/examples/cgi-tcl/parray.cgi
+share/examples/cgi-tcl/passwd-form.cgi
+share/examples/cgi-tcl/passwd.cgi
+share/examples/cgi-tcl/passwd.tcl
+share/examples/cgi-tcl/push.cgi
+share/examples/cgi-tcl/rm.cgi
+share/examples/cgi-tcl/stopwatch.cgi
+share/examples/cgi-tcl/unimail.cgi
+share/examples/cgi-tcl/upload.cgi
+share/examples/cgi-tcl/uploadbin.cgi
+share/examples/cgi-tcl/validate.cgi
+share/examples/cgi-tcl/vclock-src-frame.cgi
+share/examples/cgi-tcl/vclock.cgi
+share/examples/cgi-tcl/vclock.pl
+share/examples/cgi-tcl/visitor.cgi
+share/examples/cgi-tcl/visitor.cnt
+share/examples/cgi-tcl/vote.cgi
+@dirrm lib/cgi0.8
+@dirrm share/doc/cgi-tcl
+@dirrm share/examples/cgi-tcl