perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rich...@locus.apache.org
Subject cvs commit: modperl-site/embperl EmbperlObject.pod.5.html EmbperlObject.pod.6.html index.html
Date Mon, 17 Jul 2000 05:30:04 GMT
richter     00/07/16 22:30:03

  Modified:    embperl  index.html
  Added:       embperl  EmbperlObject.pod.5.html EmbperlObject.pod.6.html
  Log:
  Embperl Webpages - Changes
  
  Revision  Changes    Path
  1.108     +5 -0      modperl-site/embperl/index.html
  
  Index: index.html
  ===================================================================
  RCS file: /home/cvs/modperl-site/embperl/index.html,v
  retrieving revision 1.107
  retrieving revision 1.108
  diff -u -r1.107 -r1.108
  --- index.html	2000/06/22 12:09:53	1.107
  +++ index.html	2000/07/17 05:30:01	1.108
  @@ -140,6 +140,11 @@
             </tr>
             <tr bgcolor="#bFcDdA">
               <td vAlign="top"><img height="13" src="bullet.gif" width="13"></td>
  +            <td vAlign="top">17. July 2000</td>
  +            <td><font face="Helvetica,Arial" size="2">Embperl 1.3b4 released</font></td>
  +          </tr>
  +          <tr bgcolor="#bFcDdA">
  +            <td vAlign="top"><img height="13" src="bullet.gif" width="13"></td>
               <td vAlign="top">22. Juni 2000<p><a href="http://conferences.oreilly.com/"><img
src="perlconf4_speaker.gif"
               width="130" height="129"></a></td>
               <td>
  @@ -297,7 +302,7 @@
   <blockquote>
     <p><font color="#808080" size=1><hr>
     HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / ECOS &lt;richter@dev.ecos.de&gt;
  -  Last Update $Id: index.html,v 1.107 2000/06/22 12:09:53 richter Exp $</font></p>

  +  Last Update $Id: index.html,v 1.108 2000/07/17 05:30:01 richter Exp $</font></p>

   </blockquote>
   </td></tr><!--msnavigation--></table></body>
   </html>
  
  
  
  1.1                  modperl-site/embperl/EmbperlObject.pod.5.html
  
  Index: EmbperlObject.pod.5.html
  ===================================================================
  <HTML>
  <HEAD>
  <TITLE>Example for using method calls</TITLE>
  <LINK REV="made" HREF="mailto:root@venus.gr.ecos.de">
  </HEAD>
  
  <BODY bgcolor="#FFFFFF">
  <blockquote>
    <blockquote>
      <H1><strong>
  <A NAME="Example_for_using_method_calls">Example for using method calls</a></strong></h1>
    </blockquote>
  </blockquote>
  
  <img src="line.jpg" align="left" alt="________" WIDTH="732" HEIGHT="35">
  <BR CLEAR=LEFT>
  <blockquote>
    <blockquote>
  [<a href="index.html">HOME</a>]&nbsp;&nbsp; [<a href="EmbperlObject.pod.cont.html">CONTENT</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.4.html">PREV (Basic Example)</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.6.html">NEXT (Author)</a>]&nbsp;&nbsp; <br><hr>
  <P>
  (Everything not given here is the same as in the example above)
  
  <P>
  <STRONG>/foo/base.htm:</STRONG>
  
  
  
  <P>
  <PRE> [!
   
   $req = shift ;
   
   sub new
      {
      my $self = shift ; 
  </PRE>
  <P>
  <PRE>    # here we attach some data to the request object
      $self -&gt; {fontsize} = 3 ;
      }
  </PRE>
  <P>
  <PRE> # Here we give a default title
   sub title { 'Title not given' } ;
  </PRE>
  <P>
  <PRE> # here we call the method new
   $req -&gt; new ;
   
   !]
  </PRE>
  <P>
  <PRE> &lt;html&gt;
   &lt;head&gt;
   &lt;title&gt;[+ $req -&gt; title +]&lt;/title&gt;
   &lt;/head&gt;
   &lt;body&gt;
   [- Execute ('head.htm') -]
   [- Execute ('*') -]
   [- Execute ('foot.htm') -]
   &lt;/body&gt;
   &lt;/html&gt;
  </PRE>
  <P>
  <STRONG>/foo/head.htm:</STRONG>
  
  
  
  <P>
  <PRE> [# 
      here we use the fontsize
      Note that 
        $foo = $_[0] 
      is the same as writing 
        $foo = shift  
   #]
  </PRE>
  <P>
  <PRE> &lt;font size=[+ $_[0] -&gt; {fontsize} +]&gt;header&lt;/font&gt;
  </PRE>
  <P>
  <STRONG>/foo/sub/page2.htm:</STRONG>
  
  
  
  <P>
  <PRE> [!
  </PRE>
  <P>
  <PRE> sub new
      {
      my $self = shift ; 
  </PRE>
  <P>
  <PRE>    # here we overwrite the new method form base.htm
      $self -&gt; {fontsize} = 5 ;
      }
  </PRE>
  <P>
  <PRE> # Here we overwrite the default title
   sub title { 'Title form page 2' } ;
  </PRE>
  <P>
  <PRE> !]
  </PRE>
  <P>
  <PRE> PAGE 2
  </PRE>
  <P>
  <PRE>  
  </PRE>
  <p>[<a href="index.html">HOME</a>]&nbsp;&nbsp; [<a href="EmbperlObject.pod.cont.html">CONTENT</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.4.html">PREV (Basic Example)</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.6.html">NEXT (Author)</a>]&nbsp;&nbsp; <br>
      <font color="#808080">___________________________________________________________________________________<br>
      HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / <a href="http://www.ecos.de/">ecos
gmbh</a>
      </font></p>
    </blockquote>
  </blockquote>
  </td></tr></table></body>
  </html>
  </BODY>
  
  </HTML>
  
  
  
  1.1                  modperl-site/embperl/EmbperlObject.pod.6.html
  
  Index: EmbperlObject.pod.6.html
  ===================================================================
  <HTML>
  <HEAD>
  <TITLE>Author</TITLE>
  <LINK REV="made" HREF="mailto:root@venus.gr.ecos.de">
  </HEAD>
  
  <BODY bgcolor="#FFFFFF">
  <blockquote>
    <blockquote>
      <H1><strong>
  <A NAME="Author">Author</a></strong></h1>
    </blockquote>
  </blockquote>
  
  <img src="line.jpg" align="left" alt="________" WIDTH="732" HEIGHT="35">
  <BR CLEAR=LEFT>
  <blockquote>
    <blockquote>
  [<a href="index.html">HOME</a>]&nbsp;&nbsp; [<a href="EmbperlObject.pod.cont.html">CONTENT</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.5.html">PREV (Example for using method calls)</a>]&nbsp;&nbsp;
<br><hr>
  <P>
  G. Richter (<A HREF="mailto:richter@dev.ecos.de">richter@dev.ecos.de</A>)
  
  <p>[<a href="index.html">HOME</a>]&nbsp;&nbsp; [<a href="EmbperlObject.pod.cont.html">CONTENT</a>]&nbsp;&nbsp;
[<a href="EmbperlObject.pod.5.html">PREV (Example for using method calls)</a>]&nbsp;&nbsp;
<br>
      <font color="#808080">___________________________________________________________________________________<br>
      HTML::Embperl - Copyright (c) 1997-2000 Gerald Richter / <a href="http://www.ecos.de/">ecos
gmbh</a>
      </font></p>
    </blockquote>
  </blockquote>
  </td></tr></table></body>
  </html>
  </BODY>
  
  </HTML>
  
  
  

Mime
View raw message