1 files changed, 39 insertions, 0 deletions
diff --git a/web/src/cgi.tcl-1.10/example/img.cgi b/web/src/cgi.tcl-1.10/example/img.cgi
new file mode 100755
index 00000000..4c84787d
--- /dev/null
+++ b/web/src/cgi.tcl-1.10/example/img.cgi
@@ -0,0 +1,39 @@
+#!/depot/path/tclsh
+
+# This is a CGI script that shows how to do simple images.
+
+package require cgi
+
+cgi_eval {
+    source example.tcl
+
+    cgi_title "Images"
+
+    set NIST_IMAGES http://www.nist.gov/images
+
+    cgi_imglink ball $NIST_IMAGES/ball.gif alt=ball
+    cgi_imglink birdies $NIST_IMAGES/brd-ln.gif alt=birdies
+    cgi_imglink daemon $NIST_IMAGES/bsd_daemon.gif "alt=Kirk McKusick's BSD deamon"
+
+    # use white background because some of these images require it
+    cgi_body bgcolor=#ffffff text=#00b0b0 {
+
+	p "Here are some birdies:[cgi_imglink birdies]"
+	p "and here is your basic ball [cgi_imglink ball] and here is
+		the BSD daemon [cgi_imglink daemon]."
+
+	p "I like using the same picture"
+	p "[cgi_imglink ball] over"
+	p "[cgi_imglink ball] and over"
+	p "[cgi_imglink ball] and over"
+	p "[cgi_imglink ball] so I use the cgi_imglink command to make it easy."
+
+	proc ball {} {return [cgi_imglink ball]}
+
+	p "[cgi_imglink birdies]"
+
+	p "[ball]I can make it even easier [ball] by making a ball
+		procedure [ball] which I've just done. [ball] You could
+		tell, eh? [ball]"
+    }
+}