| # --------------------------------------------------------------------------- |
| # common code for the interpreter class websh.interpclass |
| # $Id$ |
| # --------------------------------------------------------------------------- |
| |
| proc getDocFileName {filename} { |
| return [file join [web::config document_root] websh $filename] |
| } |
| |
| proc pageLink {url args} { |
| if {[string match "*.ws3" $url]} { |
| regsub {\.ws3$} $url ".html" url |
| } |
| 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} { |
| 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 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 "/websh/product.html" "product description" [expr $where != 0] \ |
| "#history" "history" 1 \ |
| "#tcl" "based on Tcl" 1 \ |
| "#design" "design" 1} |
| {navBarEnd} |
| } |
| # {navBarElement "TBD" "Websh in action" 2} |
| # {navBarElement "TBD" "success stories" 2} |
| # {navBarElement "TBD" "comparison chart" 2} |
| |
| } |
| |
| proc navbar_docu {{where 0}} { |
| web::putx { |
| {navBarStart} |
| {navBarElement "/websh/docu.html" "documentation" [expr $where != 0]} |
| {navBarElement "/websh/whitepaper.html" "white paper" [expr $where != 1]} |
| {navBarElement "/websh/quickref.html" "quick reference" [expr $where != 2]} |
| {navBarElement "/websh/examples.html" "examples" [expr $where != 4]} |
| {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 "/websh/support.html" "support" [expr $where != 0]} |
| {navBarElement "/websh/faq.html" "faq" [expr $where != 1] \ |
| "/websh/faq.html#generic" "generic questions" 1 \ |
| "/websh/faq.html#technical" "tech questions" 1} \ |
| {navBarElement "/websh/subscribe.html" "mailing list" [expr $where != 2]} |
| {navBarElement "http://issues.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=\"swap('$generic','$onover')\" \ |
| onmouseout=\"swap('$generic','$onout')\"><img height=\"20\" \ |
| width=\"$width\" \ |
| src=\"/websh/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-dev@tcl.apache.org" coords="94,2,154,26" shape="rect"> |
| <area href="./" coords="4,2,64,26" shape="rect"> |
| <area href="contact.html" 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="" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt=""></td> |
| } |
| } else { |
| web::putx { |
| <td width="500" bgcolor="#006699"><img height="50" width="300" src="images/grafik_navi_home.gif" alt="" border="0" usemap="#grafik_navi"><img height="50" width="200" src="images/grafik_index.gif" alt=""></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 /websh/product.html prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td> |
| <td>{web::put [jslink /websh/docu.html docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td> |
| <td>{web::put [jslink /websh/support.html supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td> |
| <td>{web::put [jslink /websh/resources.html ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td> |
| <td>{web::put [jslink /websh/download.html 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="images/title_neutral.gif" alt="lines"></td> |
| </tr> |
| } |
| } |
| if {$mainSectionNr == 1} { |
| web::putx { |
| <tr bgcolor="#006699"> |
| <td width="120"><br></td> |
| <td>{web::put [jslink /websh/docu.html docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td> |
| <td>{web::put [jslink /websh/support.html supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td> |
| <td>{web::put [jslink /websh/resources.html ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td> |
| <td>{web::put [jslink /websh/download.html 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="images/title.gif"></td> |
| <td width="70" height="20"><img height="20" width="70" src="images/title.gif"></td> |
| <td width="110" height="20"><img height="20" width="110" src="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.gif"></td> |
| </tr> |
| } |
| } |
| if {$mainSectionNr == 2} { |
| web::putx { |
| <tr bgcolor="#006699"> |
| <td>{web::put [jslink /websh/product.html prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td> |
| <td width="100"><br></td> |
| <td>{web::put [jslink /websh/support.html supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td> |
| <td>{web::put [jslink /websh/resources.html ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td> |
| <td>{web::put [jslink /websh/download.html 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="images/title.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="images/title.gif"></td> |
| <td width="110" height="20"><img height="20" width="110" src="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.gif"></td> |
| </tr> |
| } |
| } |
| if {$mainSectionNr == 3} { |
| web::putx { |
| <tr bgcolor="#006699"> |
| <td>{web::put [jslink /websh/product.html prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td> |
| <td>{web::put [jslink /websh/docu.html docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td> |
| <td width="70"><br></td> |
| <td>{web::put [jslink /websh/resources.html ress b_ress_b b_ress_a 110 b_ress_a.gif "resources and links"]}</td> |
| <td>{web::put [jslink /websh/download.html 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="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.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="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.gif"></td> |
| </tr> |
| } |
| } |
| if {$mainSectionNr == 4} { |
| web::putx { |
| <tr bgcolor="#006699"> |
| <td>{web::put [jslink /websh/product.html prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td> |
| <td>{web::put [jslink /websh/docu.html docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td> |
| <td>{web::put [jslink /websh/support.html supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td> |
| <td width="110"><br></td> |
| <td>{web::put [jslink /websh/download.html 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="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.gif"></td> |
| <td width="70" height="20"><img height="20" width="70" src="images/title.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="images/title.gif"></td> |
| </tr> |
| } |
| } |
| if {$mainSectionNr == 5} { |
| web::putx { |
| <tr bgcolor="#006699"> |
| <td>{web::put [jslink /websh/product.html prod b_prod_b b_prod_a 120 b_prod_a.gif "product description"]}</td> |
| <td>{web::put [jslink /websh/docu.html docu b_docu_b b_docu_a 100 b_docu_a.gif "documentation"]}</td> |
| <td>{web::put [jslink /websh/support.html supp b_supp_b b_supp_a 70 b_supp_a.gif "support"]}</td> |
| <td>{web::put [jslink /websh/resources.html 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="images/title.gif"></td> |
| <td width="100" height="20"><img height="20" width="100" src="images/title.gif"></td> |
| <td width="70" height="20"><img height="20" width="70" src="images/title.gif"></td> |
| <td width="110" height="20"><img height="20" width="110" src="images/title.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> |
| |
| <div style="padding: 15px; color:#fff; background-color: #069; font-weight: bold; width: 730px; margin: 5px;"> |
| We are sorry but we discontinued Websh support and development for lack of resources. |
| Also the discussion mailing list was closed, so if you're interested in taking up this subproject within the Apache Tcl project to bring it back into life please contact private@tcl.apache.org |
| </div> |
| } |
| } |
| |
| 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.html">description</a> |} |
| } else { |
| web::put {<span class="blue">description</span> |} |
| } |
| if {$where != 2 } { |
| web::put { <a href="docu.html">documentation</a> |} |
| } else { |
| web::put { <span class="blue">documentation</span> |} |
| } |
| if {$where != 3 } { |
| web::put { <a href="support.html">support</a> |} |
| } else { |
| web::put { <span class="blue">support</span> |} |
| } |
| if {$where != 4 } { |
| web::put { <a href="resources.html">resources</a> |} |
| } else { |
| web::put { <span class="blue">resources</span> |} |
| } |
| if {$where != 5 } { |
| web::put { <a href="download.html">download</a> |} |
| } else { |
| web::put { <span class="blue">download</span> |} |
| } |
| if {$where != 7 } { |
| web::put { <a href="credits.html">credits</a> |} |
| } else { |
| web::put { <span class="blue">credits</span> |} |
| } |
| if {$where != 6 } { |
| web::put { <a href="copyright.html">copyright</a>} |
| } else { |
| web::put { <span class="blue">copyright</span>} |
| } |
| } |
| </td></tr> |
| <tr valign="top"> |
| <td colspan="2"> |
| <hr noshade size="1"> |
| </td> |
| </tr> |
| <tr valign="top"> |
| <td width="10"></td> |
| <td width="760"> |
| <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> |
| } |
| } |
