richter 02/03/01 16:46:17
Modified: . Tag: Embperl2c Embperl.pod EmbperlD.pod Faq.pod
Embperl/Form Tag: Embperl2c Validate.pm
Embperl/Syntax Tag: Embperl2c POD.pm
eg/web Tag: Embperl2c pod.xsl
test/cmp Tag: Embperl2c pod.asc pod.asc.htm
test/conf Tag: Embperl2c httpd.conf.src
test/html/pod Tag: Embperl2c pod.asc
Log:
pod
Revision Changes Path
No revision
No revision
1.56.4.14 +1 -1 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /home/cvs/embperl/Embperl.pod,v
retrieving revision 1.56.4.13
retrieving revision 1.56.4.14
diff -u -r1.56.4.13 -r1.56.4.14
--- Embperl.pod 11 Dec 2001 09:03:50 -0000 1.56.4.13
+++ Embperl.pod 2 Mar 2002 00:46:16 -0000 1.56.4.14
@@ -2735,7 +2735,7 @@
=head2 CVS
The latest developments are available via CVS.
-Look at L<"perldoc CVS.pod"|CVS/"INTRO"> for a detailed description.
+Look at L<"perldoc CVS.pod"|CVS/INTRO> for a detailed description.
=head1 Syntaxmodes for various editors
1.29.4.13 +20 -12 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.29.4.12
retrieving revision 1.29.4.13
diff -u -r1.29.4.12 -r1.29.4.13
--- EmbperlD.pod 11 Dec 2001 09:03:50 -0000 1.29.4.12
+++ EmbperlD.pod 2 Mar 2002 00:46:16 -0000 1.29.4.13
@@ -2672,17 +2672,25 @@
=head2 Informationen
- mod_perl http://perl.apache.org/
- mod_perl FAQ http://perl.apache.org/faq
- Embperl http://perl.apache.org/embperl/
- Embperl (deutsch) http://www.ecos.de/embperl/
- DBIx::Recordset ftp://ftp.dev.ecos.de/pub/perl/dbi
- Apache Webserver http://www.apache.org/
- ben-ssl (freier httpsd) http://www.apache-ssl.org/
- mod_ssl (freier httpsd) http://www.modssl.org/
- stronghold (kommerizieller httpsd) http://www.c2.net/
- Europa http://www.eu.c2.net/
- weitere Apache module http://perl.apache.org/src/apache-modlist.html
+mod_perl http://perl.apache.org/
+
+mod_perl FAQ http://perl.apache.org/faq
+
+Embperl http://perl.apache.org/embperl/
+
+Embperl (deutsch) http://www.ecos.de/embperl/
+
+DBIx::Recordset ftp://ftp.dev.ecos.de/pub/perl/dbi
+
+Apache Webserver http://www.apache.org/
+
+ben-ssl (freier httpsd) http://www.apache-ssl.org/
+
+mod_ssl (freier httpsd) http://www.modssl.org/
+
+stronghold (kommerizieller httpsd) http://www.c2.net/
+ Europa http://www.eu.c2.net/
+weitere Apache module http://perl.apache.org/src/apache-modlist.html
=head2 Download
@@ -2707,7 +2715,7 @@
=head2 CVS
Die aktuelle Entwicklerversion ist via CVS verf�gbar.
-Weitere Informationen dazu stehen in L<"perldoc CVS.pod"|CVS/"INTRO">.
+Weitere Informationen dazu stehen in L<"perldoc CVS.pod"|CVS/INTRO>.
=head1 Syntaxmodes f�r verschiedene Editoren
1.16.4.4 +1 -0 embperl/Faq.pod
Index: Faq.pod
===================================================================
RCS file: /home/cvs/embperl/Faq.pod,v
retrieving revision 1.16.4.3
retrieving revision 1.16.4.4
diff -u -r1.16.4.3 -r1.16.4.4
--- Faq.pod 27 Mar 2001 11:51:59 -0000 1.16.4.3
+++ Faq.pod 2 Mar 2002 00:46:16 -0000 1.16.4.4
@@ -569,6 +569,7 @@
or in a debugging environement. (B<NOTE:> Be sure to check C<$@> after a C<do>,
because do works like C<eval>)
+=back
=head2 Why doesn't the following line work?
No revision
No revision
1.1.2.4 +3 -5 embperl/Embperl/Form/Attic/Validate.pm
Index: Validate.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Attic/Validate.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- Validate.pm 1 Mar 2002 15:29:34 -0000 1.1.2.3
+++ Validate.pm 2 Mar 2002 00:46:16 -0000 1.1.2.4
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Validate.pm,v 1.1.2.3 2002/03/01 15:29:34 richter Exp $
+# $Id: Validate.pm,v 1.1.2.4 2002/03/02 00:46:16 richter Exp $
#
###################################################################################
@@ -20,7 +20,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = q$Id: Validate.pm,v 1.1.2.3 2002/03/01 15:29:34 richter Exp $;
+$VERSION = q$Id: Validate.pm,v 1.1.2.4 2002/03/02 00:46:16 richter Exp $;
=head1 NAME
@@ -130,7 +130,7 @@
rules => new Embperl::Form::Validate::Rules($frules), # A new rules
object
msgmod => $msginstance, # A new messages object
default_language => 'en',
- @_
+ #@_
};
bless($self, $class);
$self->init;
@@ -1088,9 +1088,7 @@
return ($functions, $calls);
}
-=back
-=cut
###
### insert_values inserts the values into the error messages
No revision
No revision
1.1.2.15 +143 -16 embperl/Embperl/Syntax/Attic/POD.pm
Index: POD.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/Attic/POD.pm,v
retrieving revision 1.1.2.14
retrieving revision 1.1.2.15
diff -u -r1.1.2.14 -r1.1.2.15
--- POD.pm 1 Mar 2002 22:12:18 -0000 1.1.2.14
+++ POD.pm 2 Mar 2002 00:46:17 -0000 1.1.2.15
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: POD.pm,v 1.1.2.14 2002/03/01 22:12:18 richter Exp $
+# $Id: POD.pm,v 1.1.2.15 2002/03/02 00:46:17 richter Exp $
#
###################################################################################
@@ -22,7 +22,7 @@
use Embperl::Syntax::EmbperlBlocks ;
use strict ;
-use vars qw{@ISA %Tags %Format %Escape %Para %ParaItem %ParaTitle %List %Search
%ListStart %CDATA %Skip} ;
+use vars qw{@ISA %Tags %Format %Escape %Para %ParaItem %ParaTitle %List %Search
%SearchInside %ListStart %CDATA %Skip} ;
@@ -204,12 +204,94 @@
'nodename' => 'underline',
'nodetype' => ntypStartEndTag,
},
-# 'POD Format L' => {
-# 'text' => 'L<',
-# 'end' => '>',
-# 'nodename' => 'xlink',
-# 'nodetype' => ntypStartEndTag,
-# },
+ 'POD Format L' => {
+ 'text' => 'L<',
+ 'end' => '>',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ 'inside' =>
+ {
+ -lsearch => 1,
+ '|' =>
+ {
+ 'text' => '|',
+ 'end' => '>',
+ 'donteat' => 2,
+ 'follow' => {
+ 'Quote ""' =>
+ {
+ 'text' => '"',
+ 'end' => '"',
+ 'nodename' => 'uri',
+ 'nodetype' => ntypAttr,
+ 'cdatatype' => ntypAttrValue,
+ },
+ 'Quote \'\'' =>
+ {
+ 'text' => '\'',
+ 'end' => '\'',
+ 'nodename' => 'uri',
+ 'nodetype' => ntypAttr,
+ 'cdatatype' => ntypAttrValue,
+ },
+ 'all' =>
+ {
+ 'matchall' => 1,
+ 'nodename' => 'uri',
+ 'nodetype' => ntypAttr,
+ 'cdatatype' => ntypAttrValue,
+ 'donteat' => 2,
+ },
+ },
+ },
+ 'Quote ""' =>
+ {
+ 'text' => '"',
+ 'end' => '"',
+ 'nodetype' => 0,
+ 'cdatatype' => ntypText,
+ },
+ 'Quote \'\'' =>
+ {
+ 'text' => '\'',
+ 'end' => '\'',
+ 'nodetype' => 0,
+ 'cdatatype' => ntypText,
+ },
+ '|1' =>
+ {
+ 'text' => '|',
+ 'end' => '>',
+ 'nodename' => 'uri',
+ 'nodetype' => ntypAttr,
+ 'cdatatype' => ntypAttrValue,
+ 'donteat' => 2,
+ },
+
+ },
+ },
+ 'POD Format L 2' => {
+ 'text' => 'L<',
+ 'end' => '>',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ },
+ 'http link' => {
+ 'text' => 'http://',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ 'contains' =>
'/.-:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789',
+ 'cdatatype' => ntypText,
+ 'donteat' => 1,
+ },
+ 'ftp link' => {
+ 'text' => 'ftp://',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ 'contains' =>
'/.-:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789',
+ 'cdatatype' => ntypText,
+ 'donteat' => 1,
+ },
) ;
my $paraend = "\n\n" ;
@@ -263,6 +345,22 @@
%CDATA =
(
'-lsearch' => 1,
+ 'http link' => {
+ 'text' => 'http://',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ 'contains' =>
'/.-:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789',
+ 'cdatatype' => ntypText,
+ 'donteat' => 1,
+ },
+ 'ftp link' => {
+ 'text' => 'ftp://',
+ 'nodename' => 'xlink',
+ 'nodetype' => ntypStartEndTag,
+ 'contains' =>
'/.-:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789',
+ 'cdatatype' => ntypText,
+ 'donteat' => 1,
+ },
'verbatim2' =>
{
'text' => " ",
@@ -383,6 +481,13 @@
'inside' => \%Format,
'nodetype' => ntypStartEndTag,
},
+ 'item*' => {
+ 'text' => '=item *',
+ 'nodename' => 'item',
+ 'nodetype' => ntypEndTag,
+ 'donteat' => 1,
+ 'exitinside' => 1,
+ },
'item' => {
'text' => '=item',
'nodename' => 'item',
@@ -397,10 +502,32 @@
'donteat' => 1,
'exitinside' => 1,
},
+ 'cut' => {
+ 'text' => '=cut',
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'nodename' => '',
+ 'inside' => \%SearchInside,
+ },
) ;
+%SearchInside =
+ (
+ '-lsearch' => 1,
+ '-defnodetype' => 0,
+ 'start' => {
+ 'text' => "\n=",
+ 'donteat' => 1,
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'removespaces' => 2,
+ 'exitinside' => 1,
+ },
+ ) ;
+
+
%Tags =
(
'-lsearch' => 1,
@@ -478,10 +605,10 @@
},
'cut' => {
'text' => '=cut',
- 'nodetype' => ntypEndTag,
- 'nodename' => 'sect2',
- 'donteat' => 1,
- 'exitinside' => 1,
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'nodename' => '',
+ 'inside' => \%SearchInside,
},
'head3' => {
'text' => '=head3',
@@ -518,10 +645,10 @@
},
'cut' => {
'text' => '=cut',
- 'nodetype' => ntypEndTag,
- 'nodename' => 'sect3',
- 'donteat' => 1,
- 'exitinside' => 1,
+ 'nodetype' => 0,
+ 'cdatatype' => 0,
+ 'nodename' => '',
+ 'inside' => \%SearchInside,
},
},
},
No revision
No revision
1.1.2.3 +71 -9 embperl/eg/web/Attic/pod.xsl
Index: pod.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/pod.xsl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- pod.xsl 27 Feb 2002 15:42:50 -0000 1.1.2.2
+++ pod.xsl 2 Mar 2002 00:46:17 -0000 1.1.2.3
@@ -49,8 +49,9 @@
<!-- - - - - Get number - - - - -->
<xsl:template match="sect1" mode="number"><xsl:number/></xsl:template>
+ <xsl:template match="sect2" mode="number"><xsl:number
level="any"/></xsl:template>
-
+
<!-- - - - - Header Navigation - - - - -->
<xsl:template name="headernav">
@@ -344,8 +345,8 @@
<xsl:template match="verbatim">
<table width="100%" cellpadding="3" cellspacing="0"><tr>
<td width="10%"><xsl:text
disable-output-escaping="yes">&nbsp;</xsl:text></td>
- <td bgcolor="#eeeeee">
- <pre>
+ <td bgcolor="#eeeeee" width="80%">
+ <br/><pre>
<xsl:apply-templates/>
</pre>
</td>
@@ -360,13 +361,74 @@
<!-- - - - - link - - - - -->
+ <xsl:template name="link">
+ <xsl:param name="txt"/>
+ <xsl:param name="uri"/>
+ <xsl:choose>
+ <xsl:when test="contains($uri, '::')">
+ <xsl:element name="a">
+ <xsl:attribute name="href">
+ <xsl:value-of select="translate($uri, ':', '/')"/>
+ </xsl:attribute>
+ <xsl:value-of select="$txt"/>
+ </xsl:element>
+ </xsl:when>
+ <xsl:when test="starts-with($uri, 'http:')">
+ <a href="{$uri}"><xsl:value-of select="$txt"/></a>
+ </xsl:when>
+ <xsl:when test="starts-with($uri, 'ftp:')">
+ <a href="{$uri}"><xsl:value-of select="$txt"/></a>
+ </xsl:when>
+ <xsl:otherwise>
+
+ <xsl:variable name="page">
+ <xsl:apply-templates select="//sect1[title=$uri]"
mode="number"/>
+ </xsl:variable>
+
+ <xsl:choose>
+ <xsl:when test="$page!=''">
+ <a href="?{$page}"><xsl:value-of select="$txt"/></a>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:variable name="page">
+ <xsl:apply-templates select="//sect1[sect2/title=$uri]"
mode="number"/>
+ </xsl:variable>
+ <xsl:variable name="sect">
+ <xsl:apply-templates select="//sect2[title=$uri]"
mode="number"/>
+ </xsl:variable>
+
+ <xsl:choose>
+ <xsl:when test="$page">
+ <a href="?page={$page}#sect_{$sect}"><xsl:value-of
select="$txt"/></a>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$txt"/>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:otherwise>
+ </xsl:choose>
+ </xsl:template>
+
+
+
<xsl:template match="xlink">
- <xsl:element name="a">
- <xsl:attribute name="href">
- <xsl:value-of select="@uri"/>
- </xsl:attribute>
- <xsl:value-of select="."/>
- </xsl:element>
+ <xsl:choose>
+ <xsl:when test="@uri">
+ <xsl:call-template name="link">
+ <xsl:with-param name="uri" select="@uri"/>
+ <xsl:with-param name="txt" select="."/>
+ </xsl:call-template>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:call-template name="link">
+ <xsl:with-param name="uri" select="."/>
+ <xsl:with-param name="txt" select="."/>
+ </xsl:call-template>
+ </xsl:otherwise>
+ </xsl:choose>
+
</xsl:template>
<xsl:template match="para">
No revision
No revision
1.1.2.5 +3 -0 embperl/test/cmp/Attic/pod.asc
Index: pod.asc
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/pod.asc,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- pod.asc 25 Feb 2002 11:20:29 -0000 1.1.2.4
+++ pod.asc 2 Mar 2002 00:46:17 -0000 1.1.2.5
@@ -73,4 +73,7 @@
<para>text</para>
</sect2></sect1><sect1><title>restart 2</title>
<sect2><title>restart 2 Head 2</title>
+</sect2><sect2><title>restart 3 Head 2</title>
+<para>end</para>
+
</sect2></sect1></pod>
1.1.2.4 +3 -0 embperl/test/cmp/Attic/pod.asc.htm
Index: pod.asc.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Attic/pod.asc.htm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- pod.asc.htm 25 Feb 2002 11:20:29 -0000 1.1.2.3
+++ pod.asc.htm 2 Mar 2002 00:46:17 -0000 1.1.2.4
@@ -88,5 +88,8 @@
<p>text</p>
<h1>restart 2</h1>
<h2>restart 2 Head 2</h2>
+<h2>restart 3 Head 2</h2>
+<p>end</p>
+
</body>
</html>
No revision
No revision
1.24.4.48 +4 -3 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.24.4.47
retrieving revision 1.24.4.48
diff -u -r1.24.4.47 -r1.24.4.48
--- httpd.conf.src 1 Mar 2002 21:51:20 -0000 1.24.4.47
+++ httpd.conf.src 2 Mar 2002 00:46:17 -0000 1.24.4.48
@@ -127,12 +127,13 @@
PerlRequire \"$EPPATH/test/conf/$EPSTARTUP\"
-#PerlModule causes some warning with Perl 5.005_03
+#PerlModule causes some warning with Perl 5.005_03
+
#PerlModule Embperl
AddModule embperl.c
-Embperl_UseEnv on
+#Embperl_UseEnv on
<Location /embperl/log>
@@ -473,7 +474,7 @@
<Location /embperl/SSI/>
-EMBPERL_SYNTAX SSI
+PerlSetEnv EMBPERL_SYNTAX SSI
</Location>
No revision
No revision
1.1.2.7 +17 -0 embperl/test/html/pod/Attic/pod.asc
Index: pod.asc
===================================================================
RCS file: /home/cvs/embperl/test/html/pod/Attic/pod.asc,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- pod.asc 1 Mar 2002 05:38:53 -0000 1.1.2.6
+++ pod.asc 2 Mar 2002 00:46:17 -0000 1.1.2.7
@@ -166,4 +166,21 @@
This text should be
not visble4
+=head2 restart 3 Head 2
+
+end
+
+L<test> L<xxx|yyy> http://www.ecos.de ftp://ftp.dev.ecos.de
+L<test> L<"xxx 2"|"yyy 2"> http://www.ecos.de ftp://ftp.dev.ecos.de
+
+
+=cut
+
+
+This text should be
+not visble5
+
+
+
+
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
