Work on WAIS protocol.

[egate.git] / www / nwiutil.tcl

diff --git a/www/nwiutil.tcl b/www/nwiutil.tcl
new file mode 100644 (file)
index 0000000..a3aa8ba
--- /dev/null
+++ b/www/nwiutil.tcl
@@ -0,0 +1,20 @@
+#
+# $Id: nwiutil.tcl,v 1.1 1996/03/12 16:30:27 adam Exp $
+#
+
+proc button-main {} {
+    global useIcons
+    html {<a href="http://europagate.dtv.dk/">}
+    if {$useIcons} {
+        html {<img src="/egwgif/button-nwi.gif" alt="NWI" border=0></a>}
+    } else {
+        html {NWI</a>}
+    }
+}
+
+proc maintenance {} {
+    html {<hr>This page is maintained by }
+    html {<a href="mailto:adam@index.ping.dk"> Adam Dickmeiss </a>.}
+    html {Last modified March 12, 1996. <br>}
+}
+