1 files changed, 61 insertions, 0 deletions
diff --git a/web/cgi/alpine/1.0/fr_ldapbrowse.tcl b/web/cgi/alpine/1.0/fr_ldapbrowse.tcl
new file mode 100755
index 00000000..c6ac8c59
--- /dev/null
+++ b/web/cgi/alpine/1.0/fr_ldapbrowse.tcl
@@ -0,0 +1,61 @@
+# $Id: fr_ldapbrowse.tcl 1204 2009-02-02 19:54:23Z hubert@u.washington.edu $
+# ========================================================================
+# Copyright 2006 University of Washington
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# ========================================================================
+
+#  fr_ldapbrowse.tcl
+#
+#  Purpose:  CGI script to generate frame set for selecting addresses
+#	     from an LDAP query in webpine-lite pages.  the idea is that this
+#            page specifies a frameset that loads a "header" page 
+#            used to keep the servlet alive via
+#            periodic reloads and a "body" page containing static/form
+#            elements that can't/needn't be periodically reloaded or
+#            is blocked on user input.
+
+#  Input: (NOTE: these are expected to be set when we get here)
+set frame_vars {
+  {ldapquery	""	""}
+  {addresses	""	""}
+  {field	""	""}
+}
+
+#  Output:
+#
+
+cgi_http_head {
+  WPStdHttpHdrs
+}
+
+cgi_html {
+  cgi_head {
+  }
+
+  cgi_frameset "rows=$_wp(titleheight),*" resize=yes border=0 frameborder=0 framespacing=0 {
+
+    set parms ""
+    if {[info exists frame_vars]} {
+      foreach v $frame_vars {
+	if {[string length [subst $[lindex $v 0]]]} {
+	  if {[string length $parms]} {
+	    append parms "&"
+	  } else {
+	    append parms "?"
+	  }
+
+	  append parms "[lindex $v 0]=[subst $[lindex $v 0]]"
+	}
+      }
+    }
+
+    cgi_frame subhdr=header.tcl?title=74
+    cgi_frame subbody=ldapbrowse.tcl${parms}
+  }
+}