Initial Alpine Version

5 files changed, 548 insertions, 0 deletions

diff --git a/web/cgi/pub/alpine.tcl b/web/cgi/pub/alpine.tcl
new file mode 120000
index 00000000..5ad8d42f
--- /dev/null
+++ b/web/cgi/pub/alpine.tcl
@@ -0,0 +1 @@
+../alpine.tcl
\ No newline at end of file
diff --git a/web/cgi/pub/getach.tcl b/web/cgi/pub/getach.tcl
new file mode 100755
index 00000000..dce5047c
--- /dev/null
+++ b/web/cgi/pub/getach.tcl
@@ -0,0 +1,87 @@
+#!./tclsh
+
+# ========================================================================
+# Copyright 2006-2007 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
+#
+# ========================================================================
+
+#  getach.tcl
+#
+#  Purpose:  CGI script to retrieve requested attachment
+#
+#  Input:
+#
+#    h : handle referring to temp file holding attachment particulars
+
+# inherit global config
+source ./alpine.tcl
+
+cgi_eval {
+
+  # verify that the format of the request is correct.  Mainly it's
+  # to reasonably handle relative urls in viewed html attachments.  Ugh.
+  if {[regexp {^h=[A-Za-z0-9]*$} $env(QUERY_STRING)]} {
+
+    cgi_input
+
+    WPImport h
+
+    if {[regexp {^[A-Za-z0-9]+$} $h] != 1} {
+      WPInfoPage "Web Alpine Error" [font size=+2 "Bogus Attachment Handle: $h"] "Please close this window."
+      exit
+    }
+
+    set cmdfile [file join $_wp(detachpath) detach.${h}-control]
+
+    if {[file exists $cmdfile] == 0} {
+      WPInfoPage "Webpine Error" [font size=+2 "Stale Handle Reference"] "Please click the attachment link to view this attachment."
+    } elseif {[catch {
+      set cid [open $cmdfile r]
+
+      while {1} {
+	if {[gets $cid line] == 0} {
+	  if {[gets $cid tmpfile] != 0} {
+	    puts stdout ""
+
+	    set fp [open $tmpfile r]
+
+	    fconfigure $fp -translation binary
+	    fconfigure stdout -translation binary
+
+	    fcopy $fp stdout
+
+	    close $fp 
+	  }
+
+	  break
+	} else {
+	  puts stdout $line
+	}
+      }
+    } errstr]} {
+      WPInfoPage "Webpine Error" [font size=+2 $errstr] "Please close this window."
+    }
+
+    #
+    # Don't delete the temp files immediately because *some* browsers
+    # <cough>IE<cough> will download the attachment, then hand the
+    # URL of the downloaded attachment to the viewer <cough>WMP<cough>
+    # so the viewer can then *REFETCH* the data for display.  No,
+    # they don't pay attention to the redirect code.
+    #
+    # The script that created them is responsible for having set in motion
+    # a process to delete them at some point in the future.
+    #
+    # catch {file delete -force $cmdfile}
+    # catch {file delete -force $tmpfile}
+  } else {
+    WPInfoPage "Invalid Attachment Reference" "[font size=+2 "Invalid Attachment Reference"]" \
+	"This page is the result of clicking a link in an attached HTML document.  It's author likely used an incomplete hypertext link which resulted in a bogus link to the WebPine server.<p>Clicking your browser's Back button should restore the attachment's display."
+  }
+}
diff --git a/web/cgi/pub/standard.css b/web/cgi/pub/standard.css
new file mode 100644
index 00000000..e2b0fd21
--- /dev/null
+++ b/web/cgi/pub/standard.css
@@ -0,0 +1,45 @@
+TD.nosize       { font-size: 16px }
+DIV.fname	{ font-family: arial, sans-serif; font-size: 10pt }
+.prog		{ font-family: arial, sans-serif ; font-weight: bold ; font-size: 16px ; color: #50056E }
+.title		{ font-family: arial, sans-serif ; color: white }
+.flymenu	{ visibility: hidden; position: absolute; left: 0; top: 0 }
+.flydata	{ font-family: arial, sans-serif ; font-size: 10pt }
+.flydata:hover	{ color: #ff0066 }
+TABLE.flydata	{ background-color: #fefac9 ; border: #006400 2px solid }
+TH.flydata	{ text-align: center ; color: white ; background-color: #006400 }
+HR.flydata	{ color: #006400 }
+A.flydata	{ font-size: 10pt ; text-decoration: none ; color: black }
+.menubar	{ color: white; font-family: arial, sans-serif; font-size: 8pt }
+.menubar:hover	{ color:yellow }
+DIV.menubar	{ position: absolute; visibility: visible; top: 62px; left: 2px; }
+A.menubar	{ color:black; text-decoration:none; font-weight:bold ; height: 16px ; width: 100px ; vertical-align: middle }
+HR.menubar	{ border-top: solid; color: black }
+.body		{ background-color: white }
+input.body	{ color: white; }
+.indexhdr	{ font-family: geneva, arial, sans-serif ; font-size: 8pt ; color: black }
+.indexsort	{ font-family: geneva, arial, sans-serif ; background-color: #999999 ; font-size: 8pt ; color: white }
+.auth		{ font-family: Arial, Sans-Serif ; font-size: 10pt ; font-weight: bold }
+.extrahdrs	{ background-color: white; display: none }
+.navtext	{ font-family: geneva, arial, sans-serif ; font-size: 9pt }
+.navbar		{ color: white ; font-family: geneva, arial, sans-serif ; font-size: 9pt ; letter-spacing: 0pt }
+FORM		{ margin-bottom: 0px ; margin-top: 0px }
+.statustext	{ color: black ; font-family: geneva, arial, sans-serif ; font-size: 8pt }
+.morestatus	{ color: #ff3333 ; font-size: 10pt ; font-weight : bold }
+.ifakebar	{ visibility: hidden; position: absolute; left: 0; top: 0 }
+.ithumb		{ position: relative }
+.iflags		{ font-family: sans-serif ; color: red }
+.isize		{ font-size: 9pt }
+.notice		{ color: red ; font-weight: bold }
+A.notice	{ color: red }
+.attach		{ visibility: hidden; position: absolute; left: 0; top: 0 }
+.mispell	{ background: #ffcccc ; color: #000000; text-decoration: none }
+.spelltext	{ position: relative }
+.dialog		{ background-color: #fefac9 ; font-family: arial, sans-serif ; font-size: 12pt }
+.context	{ background-color: #999999 ; color: black ; font-family: Helvetica, sans-serif ; font-size: 9pt }
+.ops		{ background-color: #666666 ; color: white ; font-family: Helvetica, sans-serif }
+.i0		{ background-color: #eeeeee }
+.i1		{ background-color: #ffffff }
+.cfntc          { color: red; font-size: 8pt }
+.cfval          { font-size: 9pt }
+.cfvn           { font-weight: bold; font-size: 10pt }
+.foldpic	{ background-color: #eeeeee }
diff --git a/web/cgi/pub/standard.js b/web/cgi/pub/standard.js
new file mode 100644
index 00000000..89157e1f
--- /dev/null
+++ b/web/cgi/pub/standard.js
@@ -0,0 +1,414 @@
+var child = new Object();
+child.win = null;
+var reloadtimer = null
+var resizer = null;
+var resized = null;
+var resizex = 0;
+var resizey = 0;
+
+if (navigator.appName.indexOf('Netscape') >= 0) {
+    if (navigator.appVersion.substr(0,1) < 5) {
+	isW3C = false;
+	isIE = false;
+	sEvent='e';
+	sKey='.which';
+	yRef='.top';
+	xRef='.left';
+	xOff='.clip.width';
+	yOff='.clip.height';
+	xEvent='.pageX';
+	yEvent='.pageY';
+	dS='document.';
+	sD='';
+	sHideV="'hide'";
+	sShowV="'show'";
+	dRef='self';
+	hRef='.innerHeight';
+	wRef='.innerWidth';
+	xSRef='.screenX';
+	ySRef='.screenY';
+	xPos=dRef+'.pageXOffset';
+	yPos=dRef+'.pageYOffset';
+	eSrc='.target';
+    } else {
+	isW3C = true;
+	isIE = false;
+	sEvent='e';
+	sKey='.which';
+	yRef='.top';
+	xRef='.left';
+	xOff='.offsetWidth';
+	yOff='.offsetHeight';
+	xEvent='.pageX';
+	yEvent='.pageY';
+	dS='document.';
+	sD='.style';
+	sHideV="'hidden'";
+	sShowV="'visible'";
+	dRef='self';
+	hRef='.innerHeight';
+	wRef='.innerWidth';
+	xSRef='.screenX';
+	ySRef='.screenY';
+	xPos=dRef+'.pageXOffset';
+	yPos=dRef+'.pageYOffset';
+	eSrc='.target';
+    }
+}
+else {
+    isIE = true;
+    isW3C = 0;
+    sEvent='window.event';
+    sKey='.keyCode';
+    yRef='.pixelTop';
+    xRef='.pixelLeft';
+    xOff='.offsetWidth';
+    yOff='.offsetHeight';
+    xEvent='.clientX';
+    yEvent='.clientY';
+    dS='';
+    sD='.style';
+    sHideV="'hidden'";
+    sShowV="'visible'";
+    dRef='document.body';
+    hRef='.clientHeight';
+    wRef='.clientWidth';
+    xPos=dRef+'.scrollLeft';
+    yPos=dRef+'.scrollTop';
+    xSRef='.screenLeft';
+    ySRef='.screenTop';
+    eSrc='.srcElement';
+}
+
+function setLayout() {
+    updateLayout();
+}
+
+function updateLayout() {
+    var yy = eval(yPos);
+    yy += Math.max(64 - yy, 0);
+    moveLayerY(getLayer('tasks'),yy);
+    setTimeout('updateLayout()',100);
+}
+
+function setResize(f,w) {
+    document.resized = (f) ? f : doResize;
+
+    document.resizex = getDisplayWidth();
+    document.resizey = getDisplayHeight();
+
+    if (isIE){
+	document.resizer = (w) ? w : null;
+	window.onresize = armResize;
+    }
+    else{
+	window.onresize = document.resized;
+    }
+}
+
+function armResize(e) {
+    if(document.resizer) document.resizer(e);
+    document.onmouseover = document.resized;
+}
+
+function doResize(e) {
+    if(!(document.resizex == getDisplayWidth() && document.resizey == getDisplayHeight())){
+      var newurl = window.location.href.replace(/\?.*$/, '');
+      document.onmouseover = null;
+      window.location.replace(newurl+'?ppg='+getResizedLines(e));
+    }
+}
+
+function getResizedLines(e) {
+    var h = (isW3C || document.all) ? eval(dRef+hRef) : e.height;
+    return Math.max(Math.floor((h - 66) / getIndexHeight()) - 1, 2);
+}
+
+function getDisplayWidth() {
+    return eval(dRef+wRef);
+}
+
+function getDisplayHeight() {
+    return eval(dRef+hRef);
+}
+
+function getWindowX() {
+    return eval('window'+xSRef);
+}
+
+function getWindowY() {
+    return eval('window'+ySRef);
+}
+
+function showElement(o) {
+    eval('o'+sD+'.visibility = '+sShowV);
+}
+
+function hideElement(o) {
+    eval('o'+sD+'.visibility = '+sHideV);
+}
+
+function isElementDisplayed(o) {
+    var d = eval('o'+sD+'.display');
+    return (d == 'block');
+}
+
+function displayElement(o) {
+    eval('o'+sD+'.display = "block"');
+}
+
+function concealElement(o) {
+    eval('o'+sD+'.display = "none"');
+}
+
+function getScrollAbove() {
+    return(eval(yPos));
+}
+
+function getScrollLeft() {
+    return(eval(xPos));
+}
+
+function layerWalk(l,t) {
+    var o;
+    for(var i = 0; i < l.length; i++){
+	o = eval('l[i]'+t);
+	if(o) return o;
+	o = layerWalk(l[i].document.layers,t);
+	if(o) return o;
+    }
+
+    return null;
+}
+
+function getImage(id) {
+    if(isW3C)
+      return document.getElementById(id);
+    else if(isIE)
+      return document.all[id];
+    else if(window.document.images[id])
+      return window.document.images[id];
+    else
+      return layerWalk(window.document.layers,'.document.images.'+id);
+}
+
+function getImageX(o) {
+    if(isIE || isW3C){
+	var x = o.offsetLeft;
+	for(var p = o.offsetParent; p != null; p = p.offsetParent)
+	  x += p.offsetLeft;
+
+	return x;
+    }
+    else
+      return o.x;
+}
+
+function getImageY(o) {
+    if(isIE || isW3C){
+	var y = o.offsetTop;
+	for(var p = o.offsetParent; p != null; p = p.offsetParent)
+	  y += p.offsetTop;
+
+	return y;
+    }
+    else
+      return o.y;
+}
+
+function getLayer(id) {
+    if(isW3C)
+      return document.getElementById(id);
+    else if(isIE)
+      return document.all[id];
+    else if(window.document.layers[id])
+      return window.document.layers[id];
+    else
+      return layerWalk(window.document.layers,'.document.layers.'+id);
+}
+
+function getElementWidth(l){
+    return l.width;
+}
+
+function getLayerHeight(l){
+    return eval('l'+yOff);
+}
+
+function getLayerWidth(l){
+    return eval('l'+xOff);
+}
+
+function getLayerX(l) {
+    return eval('l'+sD+xRef);
+}
+
+function getLayerY(l) {
+    return eval('l'+sD+yRef);
+}
+
+function moveLayerX(l,left) {
+    eval ('l'+sD+xRef+'='+left);
+}
+
+function moveLayerY(l,top) {
+    eval ('l'+sD+yRef+'='+top);
+}
+
+function moveLayer(l,left,top) {
+    moveLayerX(l,left);
+    moveLayerY(l,top);
+}
+
+function setLayerText(l,t) {
+    if(isIE || isW3C){
+	l.innerHTML = t;
+    }
+    else{
+	l.document.open();
+	l.document.write(t);
+	l.document.close();
+    }
+}
+
+function getEvent(e) {
+    return eval(sEvent);
+}
+
+function getEventElement(e) {
+    return eval('getEvent(e)'+eSrc);
+}
+
+function getEventX(e) {
+    return eval('getEvent(e)'+xEvent);
+}
+
+function getEventY(e) {
+    return eval('getEvent(e)'+yEvent);
+}
+
+function getKeyCode(e) {
+    return eval('getEvent(e)'+sKey);
+}
+
+function getControlKey(e) {
+    if(isW3C || isIE){
+	return getEvent(e).ctrlKey;
+    }
+    else{
+    	return (e.modifiers & Event.CONTROL_MASK) != 0;
+    }
+}
+
+function getKeyStr(e) {
+    return String.fromCharCode(getKeyCode(e)).toLowerCase();
+}
+
+function focuschild() {
+    var rv = false;
+    var ourif = 'child.win.focus(); rv = true;';
+    var ourelse = 'child.win = null; window.onfocus = null;';
+
+    if(isIE && js_version >= 1.3){
+	eval('try {'+ourif+'} catch (all) {'+ourelse+'}');
+    }
+    else{
+	eval('if((child.win == null) || (child.win.closed)){'+ourelse+'}else{'+ourif+'}');
+    }
+
+    return rv;
+}
+
+function cOpen(u,n,a,w,h) {
+    if(!focuschild()){
+	var xWin = getWindowX(), yWin = getWindowY();
+	var wPage = getDisplayWidth(), hPage = getDisplayHeight();;
+	var x = Math.min(window.screen.width - wPage, Math.max(0, xWin + ((wPage - w)/2)));
+	var y = Math.min(window.screen.height - hPage, Math.max(0, yWin + ((hPage - h)/2)));
+	var f = a ? a+',' : '';
+	var now = new Date();
+
+	child.win = window.open(u,n+now.getTime(),f+'width='+w+',height='+h+',screenX='+x+',screenY='+y+',top='+y+',left='+x);
+	window.onfocus = focuschild;
+    }
+
+    return child.win;
+}
+
+function cnOpen(u,n,a,w,h) {
+    var xOffset = (window.screen.width - w)/2, yOffset = (window.screen.height - h)/2;
+    window.open(u,n,a+',width='+w+',height='+h+',screenX='+xOffset+',screenY='+yOffset+',top='+yOffset+',left='+xOffset);
+}
+
+function composeMsg(f,d,k) {
+    var s = 'compose.tcl', replace = 0;
+    switch(f) {
+      //case 'reply' : if(confirm('Include all recipients in Reply') == true) c = '?style=ReplyAll&uid='+d ; else c = '?style=Reply&uid='+d ; break;
+      case 'reply' : s='reply.tcl'; c = '?style=ReplyAll&uid='+d+'&cid='+k ; break;
+      case 'fwd' : c = '?style=Forward&uid='+d+'&cid='+k ; break;
+      case 'mailto' : c = '?to='+d+'&cid='+k ; break;
+      case 'nickto' : c = '?nickto='+d+'&cid='+k ; replace = 1; break;
+      default : c = '?cid='+k ; break;
+    }
+    if(!replace)
+      cOpen(s+c, 'compose', 'scrollbars=yes,resizable=yes', 800, 560);
+    else
+      window.location.href = s + c;
+    return false;
+}
+
+function isanum(s) {
+    if(s.length == 0)
+      return false;
+
+    for(var i = 0; i < s.length; i++)
+      if(s.charCodeAt(i) < 48 || s.charCodeAt(i) > 57)
+	return false;
+
+    return true;
+}
+
+function confOpen(s) {cOpen(s,'config','scrollbars=yes',800,560); return false;}
+function abookOpen(s) {cOpen(s,'addrbook','scrollbars=yes,resizable=yes',800,560); return false;}
+function helpOpen(s) {cOpen(s,'help','scrollbars=yes,resizable=yes',600,600); return false;}
+function aeOpen(s) {cOpen(s, 'addredit', 'scrollbars=yes,resizable=yes', 700, 500); return false}
+function taOpen(s) {cOpen(s, 'takeaddr', 'scrollbars=yes,resizable=yes', 700, 500); return false}
+function quitOpen(s) {cOpen(s, 'quit', '', 420, 200); return false}
+
+function doReload(ival) {
+    if((child.win == null) || (child.win.closed)){
+	var newurl = window.location.href.replace(/\?.*$/, '');
+	window.location.replace(newurl+'?reload=1');
+    }
+    else{
+	var i = getImage('logo');
+	if(i){
+	    var now = new Date();
+	    var t = new String();
+
+	    t += now.getYear();
+	    t += now.getMonth();
+	    t += now.getDate();
+	    t += now.getHours();
+	    t += now.getMinutes();
+	    t += now.getSeconds();
+	    i.src = location.href.replace(/(.*)\/[^\/]*\.tcl.*/,'$1/ping.tcl/'+t+'/'+ival+'/'+(t - (t % ival))+'.gif');
+	}
+    }
+}
+
+function reloadTimer(s) {
+    reloadtimer = window.setInterval('doReload('+s+')', s * 1000);
+}
+
+function wp_escape(s) {
+    var t = escape(s);
+    t = t.replace(/\+/, '%2b');
+    return t;
+}
+
+function flipCheck(eid){
+    var cb = window.document.getElementById(eid);
+    if(cb) cb.checked = !cb.checked;
+    return false;
+}
diff --git a/web/cgi/pub/tclsh b/web/cgi/pub/tclsh
new file mode 120000
index 00000000..385fc6c6
--- /dev/null
+++ b/web/cgi/pub/tclsh
@@ -0,0 +1 @@
+../tclsh
\ No newline at end of file