1 files changed, 86 insertions, 0 deletions
diff --git a/web/cgi/alpine/1.0/fr_addredit.tcl b/web/cgi/alpine/1.0/fr_addredit.tcl
new file mode 100644
index 00000000..5836c001
--- /dev/null
+++ b/web/cgi/alpine/1.0/fr_addredit.tcl
@@ -0,0 +1,86 @@
+# $Id: fr_addredit.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_addredit.tcl
+#
+#  Purpose:  CGI script to generate frame set for address book operations
+#	     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:
+set frame_vars {
+  {book       {} -1}
+  {nick       {} ""}
+  {add        {} 0}
+  {fn         {} ""}
+  {addrs      {} ""}
+  {fcc        {} ""}
+  {comment    {} ""}
+  {take       {} 0}
+  {newnick    {} ""}
+  {ai         {} -1}
+}
+
+#  Output:
+#
+
+## read vars
+foreach item $frame_vars {
+  if {[catch {cgi_import [lindex $item 0].x}]} {
+    if {[catch {eval WPImport $item} errstr]} {
+      error [list _action "Impart Variable" $errstr]
+    }
+  } else {
+    set [lindex $item 0] 1
+  }
+}
+
+
+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]=[WPPercentQuote [subst $[lindex $v 0]]]"
+	}
+      }
+    }
+
+    if {$add} {
+      set title 72
+    } else {
+      set title 71
+    }
+
+    cgi_frame hdr=header.tcl?title=${title}
+    cgi_frame body=addredit.tcl${parms}
+  }
+}