You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by ro...@apache.org on 2002/07/25 21:10:55 UTC
cvs commit: tcl-site/websh websh.com.gen.initializer websh.com.gen
ronnie 2002/07/25 12:10:54
Modified: websh websh.com.gen
Added: websh websh.com.gen.initializer
Log:
- efficient handler for websh.com
(code has been moved to websh.com.gen.initializer, which
will be sourced only on interpreter creation.)
Revision Changes Path
1.12 +4 -586 tcl-site/websh/websh.com.gen
Index: websh.com.gen
===================================================================
RCS file: /home/cvs/tcl-site/websh/websh.com.gen,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- websh.com.gen 23 Jul 2002 17:44:50 -0000 1.11
+++ websh.com.gen 25 Jul 2002 19:10:54 -0000 1.12
@@ -1,588 +1,6 @@
-# -*- Tcl -*-
-
-# -----------------------------------------------------------------------------
-# webshell.com.gen -- reusable parts
-# nca-115-2
-#
-# $Id$
-# -----------------------------------------------------------------------------
-
-proc GetFileName {filename} {
- return [file join [file dirname [web::config script]] $filename]
+# main application dispatcher
+web::initializer {
+ web::include [web::config interpclass].initializer
}
-
-proc includeFile {fileName} {
- set fileName [GetFileName $fileName]
- if {[file exists $fileName] } {
- set fileId [open $fileName "r"]
- while {[eof $fileId] == 0} {
- gets $fileId tLine
- web::put "$tLine\n"
- }
- }
-}
-
-
-proc pageLink {url args} {
- set showName $url
- foreach {arg value} $args {
- switch -- $arg \
- -show { set showName $value} \
- -pre { set url "http://$url" }
- }
- web::put "<a href=\"$url\">$showName</a>"
-}
-
-proc emailLink {email {showName ""}} {
- if { [string compare $showName ""] == 0 } {set showName $email }
- pageLink mailto:$email -show $showName
-}
-
-# proc emailFeedbackLink {} {
-# emailLink support@websh.com feedback
-# }
-
-# proc emailSupportLink {} {
-# emailLink support@websh.com
-# }
-
-# proc emailInfoLink {} {
-# emailLink info@websh.com
-# }
-
-proc headRow {type mainTitle {rightTitle ""}} {
-
- if {$type == 1} {
- puts stderr "websh.com.gen -- proc header cannot format type 1"
- return
- }
-
- web::putx {
- <tr height="30">
- <td width="10" valign="top"></td>
- <td width="150" height="30"></td>
- {
- if {$type == 2} {
- web::putx {
- <td width="300" height="30">
- {if {[string length $mainTitle] > 0 } {
- web::putx {<h1>{web::put $mainTitle}</h1>}
- } else {
- web::putx { }
- }}
- </td>
- <td width="10" height="30"><br>
- </td>
- <td width="300" height="30">
- {if {[string length $rightTitle] > 0 } {
- web::putx {<h1>{web::put $rightTitle}</h1>}
- } else {
- web::putx { }
- }}
- </td>
- }
- }
- if {$type == 3} {
- web::putx {
- <td width="610" height="30">
- {if {[string length $mainTitle] > 0 } {
- web::putx {<h1>{web::put $mainTitle}</h1>}
- } else {
- web::putx { }
- }}
- </td>
- }
- }
- if {$type == 4} {
- web::putx {
- <td width="455" height="30">
- {if {[string length $mainTitle] > 0 } {
- web::putx {<h1>{web::put $mainTitle}</h1>}
- } else {
- web::putx { }
- }}
- </td>
- <td width="10" height="30"><br>
- </td>
- <td width="145" height="30">
- {if {[string length $rightTitle] > 0 } {
- web::putx {<h1>{web::put $rightTitle}</h1>}
- } else {
- web::putx { }
- }}
- </td>
- }
- }
- }
- </tr>
- }
-}
-
-
-proc navBarElementSub {ref str flag} {
-
- if { $flag == 1 } {
- web::putx {
- - <a href="{web::put $ref}">{web::put $str}</a><br>
- }
- return
- }
- if { $flag == 0 } {
- web::putx {
- - {web::put $str}<br>
- }
- return
- }
- if { $flag == 2 } {
- web::putx {
- - <span class=grey>{web::put $str}</span><br>
- }
- return
- }
-}
-
-proc navBarElementOne {ref str flag} {
-
- if { $flag == 1 } {
- web::putx {<a href="{web::put $ref}"><b>{web::put $str}</b></a><br>
- }
- return
- }
- if { $flag == 0 } {
- web::putx {<b>{web::put $str}</b><br>
- }
- return
- }
- if { $flag == 2 } {
- web::putx {<b class=grey>{web::put $str}</b><br>
- }
- return
- }
-}
-
-proc navBarElement {ref str flag args} {
-
-
- web::putx {
- <tr valign="top">
- <td width="10"><img height="11" width="10" src="images/pfeil.gif"></td>
- <td class=nav>
- {
- navBarElementOne $ref $str $flag
- foreach {arg value isLink} $args {
- navBarElementSub $arg $value $isLink
- }
- }
- <br></td></tr>
- }
-}
-
-proc navBarStart {} {
-
- web::putx {
- <td width="10"><img height="1" border="0" width="10" src="images/stuntFFFFFF001010.gif"></td>
- <td width="150">
- <table border="0" cellpadding="0" cellspacing="0" width="141">
- }
-}
-
-proc navBarEnd {} {
-
- web::putx {
- </table>
- </td>
- }
-}
-
-
-proc redPointElement {text} {
- web::putx {
- <tr valign="top">
- <td width="10"><img height="10" width="10" src="images/punkt_rot.gif"></td>
- <td>{web::putx $text}
- </td>
- </tr>
- }
-}
-
-proc newsBarElement {title {desc ""}} {
- web::putx {
- <tr valign="top">
- <td width="10"><img height="10" width="10" src="images/punkt_rot.gif"></td>
- <td class=news><b>{web::putx $title}</b><br>
- {web::putx $desc}
- </td>
- </tr>
- }
-}
-
-proc newsBarElementGrey {title {desc ""}} {
- web::putx {
- <tr valign="top">
- <td width="10"><img height="10" width="10" src="images/punkt_grau.gif"></td>
- <td class=grey><b>{web::putx $title}</b><br>
- {web::putx $desc}
- </td>
- </tr>
- }
-}
-
-
-proc pageLink {url args} {
- set showName $url
- foreach {arg value} $args {
- switch -- $arg \
- -show { set showName $value} \
- -pre { set url "http://$url" }
- }
- web::put "<a href=\"$url\">$showName</a>"
-}
-
-proc uppfeil {link args} {
- set aName ""
- set text ""
- foreach {arg value} $args {
- switch -- $arg \
- -aName { set aName $value} \
- -text { set text $value }
- }
- web::putx {
- <tr valign="top">
- {navBarStart}
- <tr valign="top">
- <td width="10"><a href="{web::putx $link}"><img height="10" border="0" width="10" src="images/uppfeil.gif"></a></td>
- <td></td>
- </tr>
- {navBarEnd}
- <td width="455">
- {
- if {[string compare $aName ""] == 0 } {
- web::putx {<h2 class=nomargin>{web::putx $text}</h2>}
- } else {
- web::putx {<h2 class="nomargin"><a name="{web::put $aName}">{web::putx $text}</a></h2>}
- }
- }
- </td>
- </tr>
- }
-}
-
-## ============================================================================
-## navigation bars
-## ============================================================================
-
-proc navbar_prod {{where 0}} {
- web::putx {
- {navBarStart}
- {navBarElement "product.ws3" "product description" [expr $where != 0] \
- "#history" "history" 1 \
- "#tcl" "based on Tcl" 1 \
- "#design" "design" 1}
- {navBarElement "TBD" "Websh in action" 2}
- {navBarElement "TBD" "success stories" 2}
- {navBarElement "TBD" "comparison chart" 2}
- {navBarEnd}
- }
-}
-
-proc navbar_docu {{where 0}} {
- web::putx {
- {navBarStart}
- {navBarElement "docu.ws3" "documentation" [expr $where != 0]}
- {navBarElement "whitepaper.ws3" "white paper" [expr $where != 1] \
- "whitepaper.ws3#toc" "index" 1}
- {navBarElement "quickref.ws3" "quick reference" [expr $where != 2] \
- "quickref.ws3#toc" "index" 1}
- {#navBarElement "tutorial.ws3" "tutorial" 2}
- {navBarElement "examples.ws3" "examples" [expr $where != 4]}
- {#navBarElement "reference.ws3" "reference" 2}
- {navBarEnd}
- }
-}
-
-proc navbar_supp {{where 0}} {
- web::putx {
- <td width="10"><br></td>
- <td width="150">
- <table border="0" cellpadding="0" cellspacing="0" width="141">
- {navBarElement "support.ws3" "support" [expr $where != 0]}
- {navBarElement "faq.ws3" "faq" [expr $where != 1] \
- "faq.ws3#generic" "generic questions" 1 \
- "faq.ws3#technical" "technical questions" 1 \
- "faq.ws3#toc" "index" 1}
- {navBarElement "subscribe.ws3" "mailing list" 1}
- {navBarElement "http://nagoya.apache.org/bugzilla/" "bug tracking system" [expr $where != 3]}
- </table>
- </td>
- }
-}
-
-proc navbar_ress {{where 0}} {
- web::putx {
- {navBarStart}
- {navBarEnd}
- }
-}
-
-proc navbar_down {{where 0}} {
- web::putx {
- {navBarStart}
- {navBarEnd}
- }
-}
-
-proc navbar_null {} {
- web::putx {
- <td width="10"><img height="1" border="0" width="10" src="images/stuntFFFFFF001010.gif"></td>
- <td width="150"> </td>
- }
-}
-
-## ============================================================================
-## news bars
-## ============================================================================
-
-proc newsbar_supp {} {
- web::putx {
- <td width="10"><br></td>
- <td width="145">
- <table border="0" cellpadding="0" cellspacing="0" width="145">
- </table>
- </td>
- }
-}
-
-proc newsbar_ress {} {
- web::putx {
- <td width="10"></td>
- <td width="145">
- <table border="0" cellpadding="0" cellspacing="0" width="145">
- </table>
- </td>
- }
-}
-
-proc jslink {linkname generic onover onout width gif alt} {
- return "<a href=\"$linkname\" \
-onmouseover=\"wechsel('$generic','$onover')\" \
-onmouseout=\"wechsel('$generic','$onout')\"><img height=\"20\" \
- width=\"$width\" \
- src=\"buttons/$gif\" \
- name=\"$generic\" border=\"0\" alt=\"$alt\"></a>"
-}
-
-
-
-proc startHtmlPage {} {
- web::putx {
- <html>
- <head>
- <meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
- <title>Websh - Welcome</title>
- <script language="JavaScript" src="buttons.js"></script>
- <link href="websh.css" rel="styleSheet" type="text/css">
- <meta name="description" content="Websh - the rapid development environment to build powerful web applications.">
- <META NAME="keywords" CONTENT="websh, Websh, e-commerce, web application, apache, perl, php, asp, cold fusion">
- </head>
- }
-}
-
-proc startHtmlBody {} {
- web::putx {
- <body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0"
- bgcolor="#ffffff" link="#006699" alink="red" vlink="#006699">
- }
-}
-
-proc putHeader {{mainSectionNr 0} {quickNaviNr 1}} {
- web::putx {
- <map name="grafik_navi">
- <area href="mailto:websh-user@tcl.apache.org" coords="94,2,154,26" shape="rect">
- <area href="" coords="4,2,64,26" shape="rect">
- <area href="contact.ws3" coords="184,2,244,26" shape="rect">
- </map>
- <table border="0" cellpadding="0" cellspacing="0" width="100%" height="76">
- <tr valign="top">
- }
- if {$quickNaviNr == 0} {
- web::putx {
- <td width="500" bgcolor="#006699"><img height="50" width="300" src="images/grafik_navi.gif" alt="quick navigation" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt="drawing"></td>
- }
- } else {
- web::putx {
- <!-- quick navigation --><!-- map --><!-- technical drawing -->
- <td width="500" bgcolor="#006699"><img height="50" width="300" src="images/grafik_navi_home.gif" alt="quick navigation" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt="drawing"></td>
- }
- }
- web::putx {
- <td><img height="50" width="270" src="images/logo.gif" alt="websh"></td>
- <td width="5000" bgcolor="#000000"> </td>
- </tr>
- <tr>
- <td width="500">
- <table border="0" cellpadding="0" cellspacing="0" width="500" height="40">
- }
- if {$mainSectionNr == 0} {
- web::putx {
- <tr>
- <td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
- <td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
- <td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
- <td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
- <td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
- </tr>
- <tr>
- <td colspan="5"><img height="20" width="500" src="titles/t_neutral.gif" alt="lines"></td>
- </tr>
- }
- }
- if {$mainSectionNr == 1} {
- web::putx {
- <tr bgcolor="#006699">
- <td width="120"><br></td>
- <td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
- <td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
- <td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
- <td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
- </tr>
- <tr height="20">
- <td width="120" height="20"><img height="20" width="120" src="buttons/b_prod_c.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- <td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
- <td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- </tr>
- }
- }
- if {$mainSectionNr == 2} {
- web::putx {
- <tr bgcolor="#006699">
- <td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
- <td width="100"><br></td>
- <td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
- <td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
- <td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
- </tr>
- <tr height="20">
- <td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="buttons/b_docu_c.gif"></td>
- <td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
- <td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- </tr>
- }
- }
- if {$mainSectionNr == 3} {
- web::putx {
- <tr bgcolor="#006699">
- <td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
- <td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
- <td width="70"><br></td>
- <td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
- <td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
- </tr>
- <tr height="20">
- <td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- <td width="70" height="20"><img height="20" width="70" src="buttons/b_supp_c.gif"></td>
- <td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- </tr>
- }
- }
- if {$mainSectionNr == 4} {
- web::putx {
- <tr bgcolor="#006699">
- <td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
- <td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
- <td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
- <td width="110"><br></td>
- <td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
- </tr>
- <tr height="20">
- <td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- <td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
- <td width="110" height="20"><img height="20" width="110" src="buttons/b_ress_c.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- </tr>
- }
- }
- if {$mainSectionNr == 5} {
- web::putx {
- <tr bgcolor="#006699">
- <td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
- <td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
- <td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
- <td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
- <td width="100"><br></td>
- </tr>
- <tr height="20">
- <td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
- <td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
- <td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
- <td width="100" height="20"><img height="20" width="100" src="buttons/b_down_c.gif"></td>
- </tr>
- }
- }
- web::putx {
- </table>
- </td>
- <td><img height="40" width="270" src="images/logo_strich.gif"></td>
- </tr>
- </table>
- }
-}
-
-proc finishPage {{where 0}} {
- web::putx {
- <table border="0" cellpadding="0" cellspacing="0" width="770" height="45">
- <tr valign="top">
- <td colspan="2">
- <hr noshade size="1">
- </td>
- </tr>
- <tr valign="top">
- <td width="10"></td>
- <td width="760">
- {
- if {$where != 1 } {
- web::put {<a href="product.ws3">product description</a> |}
- } else {
- web::put {<span class="blue">product description</span> |}
- }
- if {$where != 2 } {
- web::put { <a href="docu.ws3">documentation</a> |}
- } else {
- web::put { <span class="blue">documentation</span> |}
- }
- if {$where != 3 } {
- web::put { <a href="support.ws3">support</a> |}
- } else {
- web::put { <span class="blue">support</span> |}
- }
- if {$where != 4 } {
- web::put { <a href="resources.ws3">resources</a> |}
- } else {
- web::put { <span class="blue">resources</span> |}
- }
- if {$where != 5 } {
- web::put { <a href="download.ws3">download area</a> |}
- } else {
- web::put { <span class="blue">download area</span> |}
- }
- web::put { <a href="copyright.ws3">copyright statement</a> |}
- }
- <br>
- <span class="klein"><b>© Websh - an <a href="http://tcl.apache.org">Apache Tcl</a> project - part of the <a href="http://www.apache.org/">Apache Software Foundation</a></b></span></td>
- </tr>
- </table>
- </body>
- </html>
- }
-}
-
-### Process the actual web page
-
+# process the actual web page
web::include [web::config script]
1.1 tcl-site/websh/websh.com.gen.initializer
Index: websh.com.gen.initializer
===================================================================
# -*- Tcl -*-
# -----------------------------------------------------------------------------
# initializer for tcl.apache.org/websh/ -- reusable parts
#
# $Id: websh.com.gen.initializer,v 1.1 2002/07/25 19:10:54 ronnie Exp $
# -----------------------------------------------------------------------------
proc GetFileName {filename} {
return [file join [file dirname [web::config script]] $filename]
}
proc includeFile {fileName} {
set fileName [GetFileName $fileName]
if {[file exists $fileName] } {
set fileId [open $fileName "r"]
while {[eof $fileId] == 0} {
gets $fileId tLine
web::put "$tLine\n"
}
}
}
proc pageLink {url args} {
set showName $url
foreach {arg value} $args {
switch -- $arg \
-show { set showName $value} \
-pre { set url "http://$url" }
}
web::put "<a href=\"$url\">$showName</a>"
}
proc emailLink {email {showName ""}} {
if { [string compare $showName ""] == 0 } {set showName $email }
pageLink mailto:$email -show $showName
}
proc headRow {type mainTitle {rightTitle ""}} {
if {$type == 1} {
puts stderr "websh.com.gen -- proc header cannot format type 1"
return
}
web::putx {
<tr height="30">
<td width="10" valign="top"></td>
<td width="150" height="30"></td>
{
if {$type == 2} {
web::putx {
<td width="300" height="30">
{if {[string length $mainTitle] > 0 } {
web::putx {<h1>{web::put $mainTitle}</h1>}
} else {
web::putx { }
}}
</td>
<td width="10" height="30"><br>
</td>
<td width="300" height="30">
{if {[string length $rightTitle] > 0 } {
web::putx {<h1>{web::put $rightTitle}</h1>}
} else {
web::putx { }
}}
</td>
}
}
if {$type == 3} {
web::putx {
<td width="610" height="30">
{if {[string length $mainTitle] > 0 } {
web::putx {<h1>{web::put $mainTitle}</h1>}
} else {
web::putx { }
}}
</td>
}
}
if {$type == 4} {
web::putx {
<td width="455" height="30">
{if {[string length $mainTitle] > 0 } {
web::putx {<h1>{web::put $mainTitle}</h1>}
} else {
web::putx { }
}}
</td>
<td width="10" height="30"><br>
</td>
<td width="145" height="30">
{if {[string length $rightTitle] > 0 } {
web::putx {<h1>{web::put $rightTitle}</h1>}
} else {
web::putx { }
}}
</td>
}
}
}
</tr>
}
}
proc navBarElementSub {ref str flag} {
if { $flag == 1 } {
web::putx {
- <a href="{web::put $ref}">{web::put $str}</a><br>
}
return
}
if { $flag == 0 } {
web::putx {
- {web::put $str}<br>
}
return
}
if { $flag == 2 } {
web::putx {
- <span class=grey>{web::put $str}</span><br>
}
return
}
}
proc navBarElementOne {ref str flag} {
if { $flag == 1 } {
web::putx {<a href="{web::put $ref}"><b>{web::put $str}</b></a><br>
}
return
}
if { $flag == 0 } {
web::putx {<b>{web::put $str}</b><br>
}
return
}
if { $flag == 2 } {
web::putx {<b class=grey>{web::put $str}</b><br>
}
return
}
}
proc navBarElement {ref str flag args} {
web::putx {
<tr valign="top">
<td width="10"><img height="11" width="10" src="images/pfeil.gif"></td>
<td class=nav>
{
navBarElementOne $ref $str $flag
foreach {arg value isLink} $args {
navBarElementSub $arg $value $isLink
}
}
<br></td></tr>
}
}
proc navBarStart {} {
web::putx {
<td width="10"><img height="1" border="0" width="10" src="images/stuntFFFFFF001010.gif"></td>
<td width="150">
<table border="0" cellpadding="0" cellspacing="0" width="141">
}
}
proc navBarEnd {} {
web::putx {
</table>
</td>
}
}
proc redPointElement {text} {
web::putx {
<tr valign="top">
<td width="10"><img height="10" width="10" src="images/punkt_rot.gif"></td>
<td>{web::putx $text}
</td>
</tr>
}
}
proc newsBarElement {title {desc ""}} {
web::putx {
<tr valign="top">
<td width="10"><img height="10" width="10" src="images/punkt_rot.gif"></td>
<td class=news><b>{web::putx $title}</b><br>
{web::putx $desc}
</td>
</tr>
}
}
proc newsBarElementGrey {title {desc ""}} {
web::putx {
<tr valign="top">
<td width="10"><img height="10" width="10" src="images/punkt_grau.gif"></td>
<td class=grey><b>{web::putx $title}</b><br>
{web::putx $desc}
</td>
</tr>
}
}
proc pageLink {url args} {
set showName $url
foreach {arg value} $args {
switch -- $arg \
-show { set showName $value} \
-pre { set url "http://$url" }
}
web::put "<a href=\"$url\">$showName</a>"
}
proc uppfeil {link args} {
set aName ""
set text ""
foreach {arg value} $args {
switch -- $arg \
-aName { set aName $value} \
-text { set text $value }
}
web::putx {
<tr valign="top">
{navBarStart}
<tr valign="top">
<td width="10"><a href="{web::putx $link}"><img height="10" border="0" width="10" src="images/uppfeil.gif"></a></td>
<td></td>
</tr>
{navBarEnd}
<td width="455">
{
if {[string compare $aName ""] == 0 } {
web::putx {<h2 class=nomargin>{web::putx $text}</h2>}
} else {
web::putx {<h2 class="nomargin"><a name="{web::put $aName}">{web::putx $text}</a></h2>}
}
}
</td>
</tr>
}
}
## ============================================================================
## navigation bars
## ============================================================================
proc navbar_prod {{where 0}} {
web::putx {
{navBarStart}
{navBarElement "product.ws3" "product description" [expr $where != 0] \
"#history" "history" 1 \
"#tcl" "based on Tcl" 1 \
"#design" "design" 1}
{navBarElement "TBD" "Websh in action" 2}
{navBarElement "TBD" "success stories" 2}
{navBarElement "TBD" "comparison chart" 2}
{navBarEnd}
}
}
proc navbar_docu {{where 0}} {
web::putx {
{navBarStart}
{navBarElement "docu.ws3" "documentation" [expr $where != 0]}
{navBarElement "whitepaper.ws3" "white paper" [expr $where != 1] \
"whitepaper.ws3#toc" "index" 1}
{navBarElement "quickref.ws3" "quick reference" [expr $where != 2] \
"quickref.ws3#toc" "index" 1}
{#navBarElement "tutorial.ws3" "tutorial" 2}
{navBarElement "examples.ws3" "examples" [expr $where != 4]}
{#navBarElement "reference.ws3" "reference" 2}
{navBarEnd}
}
}
proc navbar_supp {{where 0}} {
web::putx {
<td width="10"><br></td>
<td width="150">
<table border="0" cellpadding="0" cellspacing="0" width="141">
{navBarElement "support.ws3" "support" [expr $where != 0]}
{navBarElement "faq.ws3" "faq" [expr $where != 1] \
"faq.ws3#generic" "generic questions" 1 \
"faq.ws3#technical" "technical questions" 1 \
"faq.ws3#toc" "index" 1}
{navBarElement "subscribe.ws3" "mailing list" 1}
{navBarElement "http://nagoya.apache.org/bugzilla/" "bug tracking system" [expr $where != 3]}
</table>
</td>
}
}
proc navbar_ress {{where 0}} {
web::putx {
{navBarStart}
{navBarEnd}
}
}
proc navbar_down {{where 0}} {
web::putx {
{navBarStart}
{navBarEnd}
}
}
proc navbar_null {} {
web::putx {
<td width="10"><img height="1" border="0" width="10" src="images/stuntFFFFFF001010.gif"></td>
<td width="150"> </td>
}
}
## ============================================================================
## news bars
## ============================================================================
proc newsbar_supp {} {
web::putx {
<td width="10"><br></td>
<td width="145">
<table border="0" cellpadding="0" cellspacing="0" width="145">
</table>
</td>
}
}
proc newsbar_ress {} {
web::putx {
<td width="10"></td>
<td width="145">
<table border="0" cellpadding="0" cellspacing="0" width="145">
</table>
</td>
}
}
proc jslink {linkname generic onover onout width gif alt} {
return "<a href=\"$linkname\" \
onmouseover=\"wechsel('$generic','$onover')\" \
onmouseout=\"wechsel('$generic','$onout')\"><img height=\"20\" \
width=\"$width\" \
src=\"buttons/$gif\" \
name=\"$generic\" border=\"0\" alt=\"$alt\"></a>"
}
proc startHtmlPage {} {
web::putx {
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Websh - Welcome</title>
<script language="JavaScript" src="buttons.js"></script>
<link href="websh.css" rel="styleSheet" type="text/css">
<meta name="description" content="Websh - the rapid development environment to build powerful web applications.">
<META NAME="keywords" CONTENT="websh, Websh, e-commerce, web application, apache, perl, php, asp, cold fusion">
</head>
}
}
proc startHtmlBody {} {
web::putx {
<body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0"
bgcolor="#ffffff" link="#006699" alink="red" vlink="#006699">
}
}
proc putHeader {{mainSectionNr 0} {quickNaviNr 1}} {
web::putx {
<map name="grafik_navi">
<area href="mailto:websh-user@tcl.apache.org" coords="94,2,154,26" shape="rect">
<area href="" coords="4,2,64,26" shape="rect">
<area href="contact.ws3" coords="184,2,244,26" shape="rect">
</map>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="76">
<tr valign="top">
}
if {$quickNaviNr == 0} {
web::putx {
<td width="500" bgcolor="#006699"><img height="50" width="300" src="images/grafik_navi.gif" alt="quick navigation" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt="drawing"></td>
}
} else {
web::putx {
<!-- quick navigation --><!-- map --><!-- technical drawing -->
<td width="500" bgcolor="#006699"><img height="50" width="300" src="images/grafik_navi_home.gif" alt="quick navigation" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt="drawing"></td>
}
}
web::putx {
<td><img height="50" width="270" src="images/logo.gif" alt="websh"></td>
<td width="5000" bgcolor="#000000"> </td>
</tr>
<tr>
<td width="500">
<table border="0" cellpadding="0" cellspacing="0" width="500" height="40">
}
if {$mainSectionNr == 0} {
web::putx {
<tr>
<td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
<td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
<td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
<td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
<td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
</tr>
<tr>
<td colspan="5"><img height="20" width="500" src="titles/t_neutral.gif" alt="lines"></td>
</tr>
}
}
if {$mainSectionNr == 1} {
web::putx {
<tr bgcolor="#006699">
<td width="120"><br></td>
<td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
<td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
<td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
<td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
</tr>
<tr height="20">
<td width="120" height="20"><img height="20" width="120" src="buttons/b_prod_c.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
<td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
<td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
</tr>
}
}
if {$mainSectionNr == 2} {
web::putx {
<tr bgcolor="#006699">
<td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
<td width="100"><br></td>
<td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
<td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
<td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
</tr>
<tr height="20">
<td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="buttons/b_docu_c.gif"></td>
<td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
<td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
</tr>
}
}
if {$mainSectionNr == 3} {
web::putx {
<tr bgcolor="#006699">
<td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
<td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
<td width="70"><br></td>
<td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
<td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
</tr>
<tr height="20">
<td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
<td width="70" height="20"><img height="20" width="70" src="buttons/b_supp_c.gif"></td>
<td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
</tr>
}
}
if {$mainSectionNr == 4} {
web::putx {
<tr bgcolor="#006699">
<td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
<td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
<td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
<td width="110"><br></td>
<td>{web::put [jslink download.ws3 down b_down_b b_down_a 100 b_down_a.gif "download"]}</td>
</tr>
<tr height="20">
<td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
<td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
<td width="110" height="20"><img height="20" width="110" src="buttons/b_ress_c.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
</tr>
}
}
if {$mainSectionNr == 5} {
web::putx {
<tr bgcolor="#006699">
<td>{web::put [jslink product.ws3 prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td>
<td>{web::put [jslink docu.ws3 docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td>
<td>{web::put [jslink support.ws3 supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td>
<td>{web::put [jslink resources.ws3 ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td>
<td width="100"><br></td>
</tr>
<tr height="20">
<td width="120" height="20"><img height="20" width="120" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="titles/strich2.gif"></td>
<td width="70" height="20"><img height="20" width="70" src="titles/strich2.gif"></td>
<td width="110" height="20"><img height="20" width="110" src="titles/strich2.gif"></td>
<td width="100" height="20"><img height="20" width="100" src="buttons/b_down_c.gif"></td>
</tr>
}
}
web::putx {
</table>
</td>
<td><img height="40" width="270" src="images/logo_strich.gif"></td>
</tr>
</table>
}
}
proc finishPage {{where 0}} {
web::putx {
<table border="0" cellpadding="0" cellspacing="0" width="770" height="45">
<tr valign="top">
<td colspan="2">
<hr noshade size="1">
</td>
</tr>
<tr valign="top">
<td width="10"></td>
<td width="760">
{
if {$where != 1 } {
web::put {<a href="product.ws3">product description</a> |}
} else {
web::put {<span class="blue">product description</span> |}
}
if {$where != 2 } {
web::put { <a href="docu.ws3">documentation</a> |}
} else {
web::put { <span class="blue">documentation</span> |}
}
if {$where != 3 } {
web::put { <a href="support.ws3">support</a> |}
} else {
web::put { <span class="blue">support</span> |}
}
if {$where != 4 } {
web::put { <a href="resources.ws3">resources</a> |}
} else {
web::put { <span class="blue">resources</span> |}
}
if {$where != 5 } {
web::put { <a href="download.ws3">download area</a> |}
} else {
web::put { <span class="blue">download area</span> |}
}
web::put { <a href="copyright.ws3">copyright statement</a> |}
}
<br>
<span class="klein"><b>© Websh - an <a href="http://tcl.apache.org">Apache Tcl</a> project - part of the <a href="http://www.apache.org/">Apache Software Foundation</a></b></span></td>
</tr>
</table>
</body>
</html>
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: tcl-site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: tcl-site-cvs-help@tcl.apache.org