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 da...@apache.org on 2002/10/25 07:21:05 UTC

cvs commit: tcl-site/rivet navbar.html

davidw      2002/10/24 22:21:04

  Modified:    mod_dtcl contact.ttml examples.ttml
               presentations/tcl extensible.ttml
               rivet    navbar.html
  Log:
  Update mod_dtcl example.
  
  Use html/ directory for Rivet docs - maybe this will make it easier to
  update it directly from Rivet...
  
  Revision  Changes    Path
  1.12      +6 -4      tcl-site/mod_dtcl/contact.ttml
  
  Index: contact.ttml
  ===================================================================
  RCS file: /home/cvs/tcl-site/mod_dtcl/contact.ttml,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- contact.ttml	20 Oct 2002 17:52:07 -0000	1.11
  +++ contact.ttml	25 Oct 2002 05:21:04 -0000	1.12
  @@ -17,16 +17,18 @@
   	    <p>
   	      All enquiries regarding mod_dtcl (both usage and
   	      development) should be directed towards the mailing list
  -	      at <a href="mailto:mod_dtcl@tcl.apache.org">mod_dtcl@tcl.apache.org</a>.  It is not necessary to be subscribed to the
  -	      mailing list to post, although you might want to set a
  -	      reply-to.
  +	      at <a
  +	      href="mailto:mod_dtcl@tcl.apache.org">mod_dtcl@tcl.apache.org</a>.
  +	      It is not necessary to be subscribed to the mailing list
  +	      to post, although you might want to set a reply-to.
   	    </p>
   	    <p>To subscribe to the mailing list, send an empty email
   	    to <a
   	    href="mailto:mod_dtcl-subscribe@tcl.apache.org">mod_dtcl-subscribe@tcl.apache.org</a>.</p>
   
   	    <p>
  -	      The list archives can be found (for now) at <a href="http://marc.theaimsgroup.com/?l=apache-moddtcl&r=1&w=2">marc.theaimsgroup.com</a>.
  +	      The list archives can be found (for now) at <a
  +	      href="http://marc.theaimsgroup.com/?l=apache-moddtcl&r=1&w=2">marc.theaimsgroup.com</a>.
   	    </p>
   	  </td>
   	</tr>
  
  
  
  1.6       +34 -34    tcl-site/mod_dtcl/examples.ttml
  
  Index: examples.ttml
  ===================================================================
  RCS file: /home/cvs/tcl-site/mod_dtcl/examples.ttml,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- examples.ttml	15 Nov 2001 11:30:03 -0000	1.5
  +++ examples.ttml	25 Oct 2002 05:21:04 -0000	1.6
  @@ -24,13 +24,13 @@
   <tr><td bgcolor=gray><pre>
   
   &lt;?
  -headers setcookie "foo" "bar" # we have to put this before any 'hputs' statements
  +headers setcookie "foo" "bar" # we have to put this before any 'puts' statements
   
   # once buffering is switched off, it is no longer possible to
   # maninuplate headers
   buffered off
   
  -hputs "Hello world"
  +puts "Hello world"
   ?&gt;
   
   </pre>
  @@ -47,7 +47,7 @@
   # maninuplate headers
   buffered off
   
  -hputs "hello world" 
  +puts "hello world" 
   ?>
   
   <p>
  @@ -88,7 +88,7 @@
   &lt;? 
   set x 0 
   while { $x &lt; 5 } { 
  - hputs "\$x = $x&lt;br>"
  + puts "\$x = $x&lt;br>"
    incr x
   ?&gt;
   
  @@ -103,7 +103,7 @@
   <?
   set x 0
   while { $x < 5 } { 
  - hputs "\$x = $x<br>"
  + puts "\$x = $x<br>"
    incr x
   ?>
   LOOP<BR>
  @@ -117,29 +117,29 @@
   &lt;? 
    hgetvars
   if { [ array exists VARS ] } {
  -    hputs "&lt; ul>"
  +    puts "&lt; ul>"
       foreach { var val } [ var all ]  {
  -        hputs "&lt;li>(VARS) $var = $val"
  +        puts "&lt;li>(VARS) $var = $val"
       }
  -    hputs "&lt;/ul>"
  +    puts "&lt;/ul>"
   }
   
   if { [ array exists ENVS ] } {
       
  -    hputs "&lt;ul>"
  +    puts "&lt;ul>"
       foreach { vr } [ array names ENVS ]  {
  -        hputs "&lt;li>(ENVS) $vr = $ENVS($vr)"
  +        puts "&lt;li>(ENVS) $vr = $ENVS($vr)"
       }
  -    hputs "&lt;/ul>"
  +    puts "&lt;/ul>"
   }
   
   if { [ array exists COOKIES ] } {
       
  -    hputs "&lt;ul>"
  +    puts "&lt;ul>"
       foreach { vr } [ array names COOKIES ]  {
  -        hputs "&lt;li>(COOKIES) $vr = $COOKIES($vr)"
  +        puts "&lt;li>(COOKIES) $vr = $COOKIES($vr)"
       }
  -    hputs "&lt;/ul>"
  +    puts "&lt;/ul>"
   }
   
   ?&gt;
  @@ -151,28 +151,28 @@
   <?
   hgetvars
   if { [ array exists VARS ] } {
  -    hputs "<ul>"
  +    puts "<ul>"
       foreach { var val } [ var all ]  {
  -        hputs "<li>(VARS) $var = $val"
  +        puts "<li>(VARS) $var = $val"
       }
  -    hputs "</ul>"
  +    puts "</ul>"
   }
   
   if { [ array exists ENVS ] } {
  -    hputs "<ul>"
  +    puts "<ul>"
       foreach { vr } [ array names ENVS ]  {
  -        hputs "<li>(ENVS) $vr = $ENVS($vr)"
  +        puts "<li>(ENVS) $vr = $ENVS($vr)"
       }
  -    hputs "</ul>"
  +    puts "</ul>"
   }
   
   if { [ array exists COOKIES ] } {
       
  -    hputs "<ul>"
  +    puts "<ul>"
       foreach { vr } [ array names COOKIES ]  {
  -        hputs "<li>(COOKIES) $vr = $COOKIES($vr)"
  +        puts "<li>(COOKIES) $vr = $COOKIES($vr)"
       }
  -    hputs "</ul>"
  +    puts "</ul>"
   }
   
   ?>
  @@ -184,19 +184,19 @@
   
   &lt;?
   set i 1
  -hputs "&lt;table&gt;\n"
  +puts "&lt;table&gt;\n"
   
   while { $i &lt;= 8 } {
  -    hputs "&lt;tr&gt;\n"
  +    puts "&lt;tr&gt;\n"
       for {set j 1} {$j &lt;= 8} {incr j} {
   	set num [ expr $i * $j * 4 - 1]
  -	hputs [ format "&lt;td bgcolor=%2x%2x%2x &gt; $num $num $num &lt;/td&gt;\n" $num $num $num ]
  +	puts [ format "&lt;td bgcolor=%2x%2x%2x &gt; $num $num $num &lt;/td&gt;\n" $num $num $num ]
       }
       incr i
  -    hputs "&lt;/tr&gt;\n"
  +    puts "&lt;/tr&gt;\n"
   }
   
  -hputs "&lt;/table&gt;\n"
  +puts "&lt;/table&gt;\n"
   ?&gt;
   </pre>
   </td></tr>
  @@ -204,19 +204,19 @@
   <tr><td>Produces:<p>
   <?
   set i 1
  -hputs "<table>\n"
  +puts "<table>\n"
   
   while { $i <= 8 } {
  -    hputs "<tr>\n"
  +    puts "<tr>\n"
       for {set j 1} {$j <= 8} {incr j} {
   	set num [ expr {$i * $j * 4 - 1} ]
  -	hputs [ format "<td bgcolor=%2x%2x%2x > $num $num $num </td>\n" $num $num $num ]
  +	puts [ format "<td bgcolor=%2x%2x%2x > $num $num $num </td>\n" $num $num $num ]
       }
       incr i
  -    hputs "</tr>\n"
  +    puts "</tr>\n"
   }
   
  -hputs "</table>\n"
  +puts "</table>\n"
   ?>
   </td></tr>
   
  
  
  
  1.2       +0 -2      tcl-site/presentations/tcl/extensible.ttml
  
  Index: extensible.ttml
  ===================================================================
  RCS file: /home/cvs/tcl-site/presentations/tcl/extensible.ttml,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- extensible.ttml	6 Dec 2001 11:29:02 -0000	1.1
  +++ extensible.ttml	25 Oct 2002 05:21:04 -0000	1.2
  @@ -84,8 +84,6 @@
   		</ul>
   	      </li>
   	    </ul>
  -	    
  -
   	  </td>
   	</tr>
         </tbody>
  
  
  
  1.6       +1 -1      tcl-site/rivet/navbar.html
  
  Index: navbar.html
  ===================================================================
  RCS file: /home/cvs/tcl-site/rivet/navbar.html,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- navbar.html	30 May 2002 21:45:43 -0000	1.5
  +++ navbar.html	25 Oct 2002 05:21:04 -0000	1.6
  @@ -15,7 +15,7 @@
         </td>
       </tr>   <tr>
         <td>
  -	<a href="docs/">Documentation</a>
  +	<a href="html/">Documentation</a>
         </td>
       </tr>   <tr>
         <td>
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: tcl-site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: tcl-site-cvs-help@tcl.apache.org