cvs commit: embperl/test/conf httpd.conf.src
richter 2003/01/07 12:43:01
Modified:.Changes.pod Embperl.pm IntroEmbperl2.pod epchar.c
epchar.c.iso-latin-2 epchar.c.min mod_embperl.c
Embperl Mail.pm
Embperl/Syntax Mail.pm
eg/web menuleft.epl
eg/web/db epwebapp.pl updateditem.mail
test/conf httpd.conf.src
Log:
- keep spaces in mail:send
- encode headers in Embperl::Mail
- don't escape : in urls
Revision ChangesPath
1.195 +3 -0 embperl/Changes.pod
Index: Changes.pod
===
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.194
retrieving revision 1.195
diff -u -r1.194 -r1.195
--- Changes.pod 2 Jan 2003 07:39:43 - 1.194
+++ Changes.pod 7 Jan 2003 20:42:59 - 1.195
@@ -51,6 +51,9 @@
- Fix make test to ignore different idention of newer versions of
libxslt.
- Added server_addr to the request param object.
+ - Keep spaces and newlines in tag.
+ - Embperl::Mail now encodes all header fields that contains characters between
+ 128 and 255. Use headerencoding parameter to turn of or tell Embperl your
charset.
=head1 2.0b8 (BETA) 25. Juni 2002
1.180 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -r1.179 -r1.180
--- Embperl.pm15 Nov 2002 06:17:36 - 1.179
+++ Embperl.pm7 Jan 2003 20:42:59 - 1.180
@@ -46,7 +46,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0b9_dev-5' ;
+$VERSION = '2.0b9_dev-6' ;
if ($modperl = $ENV{MOD_PERL})
1.2 +1 -1 embperl/IntroEmbperl2.pod
Index: IntroEmbperl2.pod
===
RCS file: /home/cvs/embperl/IntroEmbperl2.pod,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- IntroEmbperl2.pod 20 Nov 2002 06:56:26 - 1.1
+++ IntroEmbperl2.pod 7 Jan 2003 20:42:59 - 1.2
@@ -695,7 +695,7 @@
format and run an XSL-transformation
to make it look nicely into your layout.
-=head1 Finaly
+=head1 Finally
This text has only touched some of the most important features
of Embperl, but should have give you an impression of what is
1.18 +4 -2 embperl/epchar.c
Index: epchar.c
===
RCS file: /home/cvs/embperl/epchar.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- epchar.c 22 Oct 2002 05:29:04 - 1.17
+++ epchar.c 7 Jan 2003 20:42:59 - 1.18
@@ -351,7 +351,9 @@
{ '7' , "" },/*7 Digit 7 */
{ '8' , "" },/*8 Digit 8 */
{ '9' , "" },/*9 Digit 9 */
-{ ':' , "%3A" },/*: Colon */
+/* We should escape this according to the rfc, but this would make troubles inside
+ of urls, so will don' escape it{ ':' , "%3A" },/* :
Colon */
+{ ':' , "" },/* : Colon */
{ ';' , "%3B" },/*; Semicolon */
{ '<' , "%3C" },/*Less than */
{ '=' , "%3D" },/*= Equals sign */
1.7 +4 -1 embperl/epchar.c.iso-latin-2
Index: epchar.c.iso-latin-2
===
RCS file: /home/cvs/embperl/epchar.c.iso-latin-2,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- epchar.c.iso-latin-2 22 Oct 2002 05:29:04 - 1.6
+++ epchar.c.iso-latin-2 7 Jan 2003 20:42:59 - 1.7
@@ -349,7 +349,10 @@
{ '7' , "" },/*7 Digit 7 */
{ '8' , "" },/*8 Digit 8 */
{ '9' , "" },/*9 Digit 9 */
-{ ':' , "%3A" },/*: Colon */
+/* We should escape this according to the rfc, but this would make troubles inside
+ of urls, so will don' escape it
+{ ':' , "%3A" }, */ /* : Colon */
+{ ':' , "" },/* : Colon */
{ ';' , "%3B" },/*; Semicolon */
{ '<' , "%3C" },/*Less than */
{ '=' , "%3D" },/*= Equals sign */
1.6 +4 -1 embperl/epchar.c.min
Index: epchar.c.min
cvs commit: embperl/eg/web/db/news pod.xsl
richter 2003/01/07 22:03:23
Modified:.epchar.c eputil.c
eg/web epwebapp.pl
eg/web/db epwebapp.pl pod.xsl
eg/web/db/news pod.xsl
Log:
search debug + website updates
Revision ChangesPath
1.19 +2 -1 embperl/epchar.c
Index: epchar.c
===
RCS file: /home/cvs/embperl/epchar.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- epchar.c 7 Jan 2003 20:42:59 - 1.18
+++ epchar.c 8 Jan 2003 06:03:23 - 1.19
@@ -352,7 +352,8 @@
{ '8' , "" },/*8 Digit 8 */
{ '9' , "" },/*9 Digit 9 */
/* We should escape this according to the rfc, but this would make troubles inside
- of urls, so will don' escape it{ ':' , "%3A" },/* :
Colon */
+ of urls, so will don' escape it
+{ ':' , "%3A" }, */ /* : Colon */
{ ':' , "" },/* : Colon */
{ ';' , "%3B" },/*; Semicolon */
{ '<' , "%3C" },/*Less than */
1.29 +24 -4 embperl/eputil.c
Index: eputil.c
===
RCS file: /home/cvs/embperl/eputil.c,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -r1.28 -r1.29
--- eputil.c 26 Nov 2002 10:03:42 - 1.28
+++ eputil.c 8 Jan 2003 06:03:23 - 1.29
@@ -1560,8 +1560,16 @@
char * fn ;
STRLEN l ;
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search for %s\n", r -> pThread -> nPid,
sFilename) ;
+
if (isAbsPath(sFilename) || !pPathAV || AvFILL (pPathAV) < r ->
Component.nPathNdx)
-return embperl_File2Abs (r, pPool, sFilename) ;
+{
+absfn = embperl_File2Abs (r, pPool, sFilename) ;
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: nothing to search return %s\n", r ->
pThread -> nPid, absfn) ;
+return absfn ;
+}
while (sFilename[0] == '.' && sFilename[1] == '.' && (sFilename[2] == '/' ||
sFilename[2] == '\\'))
{
@@ -1576,8 +1584,12 @@
absfn = embperl_File2Abs (r, pPool, sFilename) ;
if (stat (absfn, &st) == 0)
{
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: starts with ./ return %s\n", r ->
pThread -> nPid, absfn) ;
return absfn ;
}
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: starts with ./, but not found\n", r
-> pThread -> nPid) ;
return NULL ;
}
@@ -1585,13 +1597,21 @@
for (i = skip ; i <= AvFILL (pPathAV); i++)
{
fn = ep_pstrcat(r -> pPool, SvPV(*av_fetch (pPathAV, i, 0), l),
PATH_SEPARATOR_STR, sFilename, NULL) ;
-/* lprintf (r -> pApp, "i=%d skip=%d, dir=%s, fn=%s\n", i, skip,
SvPV(*av_fetch (pPathAV, i, 0), l), fn) ; */
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: #%d test dir=%s, fn=%s (skip=%d)\n",
r -> pThread -> nPid,
+i, SvPV(*av_fetch (pPathAV, i, 0), l), fn,
skip) ;
if (stat (fn, &st) == 0)
{
r -> Component.nPathNdx = i ;
-return embperl_File2Abs (r, pPool, fn) ;
+absfn = embperl_File2Abs (r, pPool, fn) ;
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: found %s\n", r -> pThread ->
nPid, absfn) ;
+return absfn ;
}
}
+
+if (r -> Config.bDebug & dbgObjectSearch)
+lprintf (r -> pApp, "[%d]Search: not found %s\n", r -> pThread -> nPid) ;
return NULL ;
}
1.4 +17 -18embperl/eg/web/epwebapp.pl
Index: epwebapp.pl
===
RCS file: /home/cvs/embperl/eg/web/epwebapp.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- epwebapp.pl 20 Nov 2002 06:56:27 - 1.3
+++ epwebapp.pl 8 Jan 2003 06:03:23 - 1.4
@@ -232,6 +232,21 @@
}
+sub set_xslt_param
+{
+my ($class, $r, $config, $param) = @_ ;
+
+$config -> xsltstylesheet('pod.xsl') ;
+$r -> param -> uri =~ /^.*\/(.*)\.(.*?)$/ ;
+$param -> xsltparam({
+page => $fdat{page} || 0,
+basename => "'$1'",
+extension => "'$2'",
+imageuri => "'$r->{imageuri}'",
cvs commit: embperl/podsrc s2pod.pl
richter 2003/01/07 22:53:14
Modified:podsrc s2pod.pl
Log:
config generation, exclude non pod
Revision ChangesPath
1.4 +5 -0 embperl/podsrc/s2pod.pl
Index: s2pod.pl
===
RCS file: /home/cvs/embperl/podsrc/s2pod.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- s2pod.pl 2 Jan 2003 09:07:19 - 1.3
+++ s2pod.pl 8 Jan 2003 06:53:14 - 1.4
@@ -1,8 +1,13 @@
%typemember = ( 'CFG' => 'config -> ', 'PARAM' => 'param -> ', 'METHOD' => '') ;
+$skip = 0 ;
while (defined ($line = ))
{
+$skip = 1 if ($line =~/=cut/) ;
+do { $skip = 0 ; next } if ($line =~/=pod/) ;
+next if ($skip) ;
+
if ($line =~ /=head2\s+\*(CFG|PARAM|METHOD)\s+(.*?)$/)
{
my $type = $1 ;
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
cvs commit: embperl/eg/web menuleft.epl podbase.xsl
richter 2003/01/07 23:42:48
Modified:eg/web menuleft.epl podbase.xsl
Log:
web updates
Revision ChangesPath
1.5 +2 -2 embperl/eg/web/menuleft.epl
Index: menuleft.epl
===
RCS file: /home/cvs/embperl/eg/web/menuleft.epl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- menuleft.epl 7 Jan 2003 20:43:01 - 1.4
+++ menuleft.epl 8 Jan 2003 07:42:48 - 1.5
@@ -76,11 +76,11 @@
-[- menuitem ('pod/doc/Embperl.-page-13-.htm', 'Stable 1.3.5', 0, 1) -]
+[- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-13-.htm', 'Stable 1.3.5',
0, 1) -]
-[- menuitem ('pod/doc/Embperl.-page-13-.htm', 'Beta 2.0b8', 0, 1) -]
+[- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-13-.htm', 'Beta 2.0b8',
0, 1) -]
1.3 +1 -1 embperl/eg/web/podbase.xsl
Index: podbase.xsl
===
RCS file: /home/cvs/embperl/eg/web/podbase.xsl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- podbase.xsl 22 Oct 2002 05:39:50 - 1.2
+++ podbase.xsl 8 Jan 2003 07:42:48 - 1.3
@@ -131,7 +131,7 @@
-pod/.htm
+pod/doc/.htm
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
