Index: mod_nsd/tcl_modules/util.tcl
===================================================================
RCS file: /usr/local/cvsroot/mod_nsd/tcl_modules/util.tcl,v
diff -u -r1.1.1.1 -r1.2
--- mod_nsd/tcl_modules/util.tcl 13 Apr 2001 21:09:32 -0000 1.1.1.1
+++ mod_nsd/tcl_modules/util.tcl 6 May 2001 18:54:01 -0000 1.2
@@ -383,3 +383,13 @@
proc ns_updateheader {key value} {
ns_set update [ns_conn outputheaders] $key $value
}
+
+proc ns_returnnotice {status msg { longmsg "" } } {
+ ns_return $status text/html "<html>
+<body bgcolor=\"#ffffff\">
+<h1>$msg</h1>
+<p>$longmsg
+</body>
+</html>"
+}
+