You are viewing a plain text version of this content. The canonical link for it is here.
Posted to announce@perl.apache.org by Gerald Richter <ri...@ecos.de> on 2004/11/21 20:40:20 UTC
ANNOUNCE: Embperl 2.0rc2
The URL
ftp://ftp.dev.ecos.de/pub/perl/embperl/Embperl-2.0rc2.tar.gz
has entered CPAN as
file: $CPAN/authors/id/G/GR/GRICHTER/Embperl-2.0rc2.tar.gz
size: 676467 bytes
md5: f8af732dae2543e4c396f5fbe5a0e6a5
This is the release candidate 2. If no additional bugs are found this will
turn into Embperl 2.0.0
Any bug reports, patches, documentation updates, spelling corrections are
welcome. So give it a try...
Embperl is a system for building dynamic websites with Perl.
It gives you the power to embed Perl code in your HTML/XML documents and the
ability to build your Web site out of small reusable objects in an
object-oriented style.
Embperl has several features which are especially useful for creating
Websites, including dynamic tables, form field processing, URL
escaping/unescaping, session handling, caching, xslt transformation and
more.
See http://perl.apache.org/embperl/ (english) or http://www.ecos.de/embperl/
(german) for more information.
Enjoy
Gerald
Changes since 2.0rc1:
- Flush output to client and send final chuck, before cleanup runs.
- Fix compiler error when compiling with Perl 5.005.
- Fix html input tag value set, when %fdat value is 0. Reported
by Torsten Luettgert.
- Fix test, for Apache 1.3 with static mod_perl and other dynamic
modules, by loading Embperl first. Reported by Christophe Le Bars.
- Fix FastCGI read of POST data, reported by Doug Rayner.
- Readded tests for CGI mode.
---------------------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter@ecos.de Voice: +49 6133 939-122
WWW: http://www.ecos.de/ Fax: +49 6133 939-333
---------------------------------------------------------------------------
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: announce-unsubscribe@perl.apache.org
For additional commands, e-mail: announce-help@perl.apache.org
Various Embperl patches from the Debian package [1/3]
Posted by Angus Lees <gu...@inodes.org>.
At Sun, 21 Nov 2004 20:40:20 +0100, Gerald Richter wrote:
> Any bug reports, patches, documentation updates, spelling corrections are
Various patches from the Debian package..
(NB: it would be nicer if Embperl_BS ended with a newline character)
Self-explanatory ones:
--- libembperl-perl-2.0rc2.orig/Embperl.pm
+++ libembperl-perl-2.0rc2/Embperl.pm
@@ -128,9 +128,7 @@
$req_rec = $_[0] ;
#$req_rec -> log_error ("1 rc = ") ;
my $rc = Embperl::Req::ExecuteRequest ($_[0]) ;
-use Data::Dumper ;
-use Devel::Peek ;
#$req_rec -> log_error ( "2 rc = $rc", Dumper ($rc), Dump ($rc)) ;
return $rc ;
}
--- libembperl-perl-2.0rc2.orig/embpmsgid.pl.templ
+++ libembperl-perl-2.0rc2/embpmsgid.pl.templ
@@ -140,8 +140,46 @@
}
}
+__END__
+=head1 NAME
+embpmsgid.pl - Extract message ids from Embperl files
+=head1 SYNOPSIS
+embpmsgid.pl [I<options>] [I<files>]
+=head1 DESCRIPTION
+
+Extract message ids (C<[= ... =]> blocks) from Embperl files given on
+command line.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<--datadumper>=I<file>, B<-d>
+
+Use the given file to read and store message ids. Must be valid Perl
+code which defines $msgids.
+
+=item B<--dbm>=I<file>, B<-b>
+
+Use the given file to read and store message ids. Must be a dbm file.
+
+=item B<--languages>=I<code>, B<-l>
+
+Specify language code to generate. Can be given multiple times.
+
+=back
+
+=head1 SEE ALSO
+
+L<Embperl>
+
+=head1 AUTHOR
+
+G. Richter (richter@dev.ecos.de)
+
+=end
--- libembperl-perl-2.0rc2.orig/mod_embperl.c
+++ libembperl-perl-2.0rc2/mod_embperl.c
@@ -583,7 +583,7 @@
*/
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: create_dir_config %s (0x%x) [%d/%d]\n", cfg -> AppConfig.sAppName?cfg -> AppConfig.sAppName:"", cfg, getpid(), gettid()) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: create_dir_config %s (0x%p) [%d/%d]\n", cfg -> AppConfig.sAppName?cfg -> AppConfig.sAppName:"", cfg, getpid(), gettid()) ;
return cfg;
}
@@ -607,7 +607,7 @@
cfg -> bUseEnv = -1 ;
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: create_server_config (0x%x) [%d/%d]\n", cfg, getpid(), gettid()) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: create_server_config (0x%p) [%d/%d]\n", cfg, getpid(), gettid()) ;
return cfg;
@@ -726,7 +726,7 @@
mrg = (tApacheDirConfig *)ap_palloc (subpool, sizeof(tApacheDirConfig));
if (bApDebug)
- ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config base=0x%x add=0x%x mrg=0x%x\n", basev, addv, mrg) ;
+ ap_log_error (APLOG_MARK, APLOG_WARNING | APLOG_NOERRNO, APLOG_STATUSCODE NULL, "EmbperlDebug: merge_dir/server_config base=0x%p add=0x%p mrg=0x%p\n", basev, addv, mrg) ;
#ifdef APACHE2
apr_pool_cleanup_register(subpool, mrg, embperl_ApacheConfigCleanup, embperl_ApacheConfigCleanup);
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Various Embperl patches from the Debian package [1.5/3]
Posted by Angus Lees <gu...@inodes.org>.
oh, missed another simple one:
--- libembperl-perl-2.0rc2.orig/Makefile.PL
+++ libembperl-perl-2.0rc2/Makefile.PL
@@ -1293,7 +1310,7 @@
'INC' => $i,
'EXE_FILES' => [ 'embpexec.pl', 'embpmsgid.pl' ],
'clean' => { FILES => 'dirent.h test/conf/httpd.conf test/conf/httpd.stop.conf test/conf/httpd.min.conf test/tmp/* Embperl.c $(OBJECT)' },
- 'realclean' => { FILES => 'embpmsgid.pl embpexec.pl embpexec.bat embpcgi.pl embpcgi.test.pl embpcgi.bat epocgi.pl epocgi.bat epocgi.test.pl embpfastcgi.pl test/conf/config.pl xs/mmargs.pl' },
+ 'realclean' => { FILES => 'embpmsgid.pl embpexec.pl embpexec.bat embpcgi.pl embpcgi.test.pl embpcgi.bat epocgi.pl epocgi.bat epocgi.test.pl embpfastcgi.pl embpfastcgi.test.pl test/conf/config.pl xs/mmargs.pl' },
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz'},
'dynamic_lib' => $dynlib,
'PREREQ_PM' => { 'File::Spec' => 0.8 },
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
RE: Various Embperl patches from the Debian package [3/3]
Posted by Gerald Richter <ri...@ecos.de>.
Angus,
Thanks for your patches. They will be in the next release (which is
hopefully 2.0 final)
Gerald
---------------------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter@ecos.de Voice: +49 6133 939-122
WWW: http://www.ecos.de/ Fax: +49 6133 939-333
---------------------------------------------------------------------------
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------
> -----Original Message-----
> From: Angus Lees [mailto:gus@inodes.org]
> Sent: Friday, December 03, 2004 9:27 AM
> To: embperl@perl.apache.org
> Subject: Various Embperl patches from the Debian package [3/3]
>
> These compiler warning fixes:
>
> --- libembperl-perl-2.0rc2.orig/xs/Embperl/Req/Config/Config.xs
> +++ libembperl-perl-2.0rc2/xs/Embperl/Req/Config/Config.xs
> @@ -134,8 +134,8 @@
> MODULE = Embperl::Req::Config PACKAGE = Embperl::Req::Config
>
> char
> -mult_field_sep(obj, val=NULL)
> +mult_field_sep(obj, val=0)
> Embperl::Req::Config obj
> char val
> PREINIT:
> --- libembperl-perl-2.0rc2.orig/xs/typemap
> +++ libembperl-perl-2.0rc2/xs/typemap
> @@ -83,7 +83,7 @@
> T_MAGICHASH_SV
> {
> MAGIC * mg ;
> - if (mg = mg_find (SvRV($arg), '~'))
> + if ((mg = mg_find (SvRV($arg), '~')))
> $var = *(($type *)(mg -> mg_ptr)) ;
> else
> croak (\"$var is not of type $type\") ;
>
>
> which actually come from these changes to ExtUtils::XSBuilder:
>
> --- libextutils-xsbuilder-perl-0.27.orig/XSBuilder/TypeMap.pm
> +++ libextutils-xsbuilder-perl-0.27/XSBuilder/TypeMap.pm
> @@ -165,6 +165,9 @@
> if ($class =~ /^[INU]V/) {
> return '0';
> }
> + elsif ($class =~ /^(U_)?CHAR$/) {
> + return '0'; # xsubpp seems to mangle q{'\0'}
> + }
> else {
> return 'NULL';
> }
> @@ -803,7 +806,7 @@
> 'INPUT' =>
> q[ {
> MAGIC * mg ;
> - if (mg = mg_find (SvRV($arg), '~'))
> + if ((mg = mg_find (SvRV($arg), '~')))
> $var = *(($type *)(mg -> mg_ptr)) ;
> else
> croak (\"$var is not of type $type\") ;
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Various Embperl patches from the Debian package [3/3]
Posted by Angus Lees <gu...@inodes.org>.
These compiler warning fixes:
--- libembperl-perl-2.0rc2.orig/xs/Embperl/Req/Config/Config.xs
+++ libembperl-perl-2.0rc2/xs/Embperl/Req/Config/Config.xs
@@ -134,8 +134,8 @@
MODULE = Embperl::Req::Config PACKAGE = Embperl::Req::Config
char
-mult_field_sep(obj, val=NULL)
+mult_field_sep(obj, val=0)
Embperl::Req::Config obj
char val
PREINIT:
--- libembperl-perl-2.0rc2.orig/xs/typemap
+++ libembperl-perl-2.0rc2/xs/typemap
@@ -83,7 +83,7 @@
T_MAGICHASH_SV
{
MAGIC * mg ;
- if (mg = mg_find (SvRV($arg), '~'))
+ if ((mg = mg_find (SvRV($arg), '~')))
$var = *(($type *)(mg -> mg_ptr)) ;
else
croak (\"$var is not of type $type\") ;
which actually come from these changes to ExtUtils::XSBuilder:
--- libextutils-xsbuilder-perl-0.27.orig/XSBuilder/TypeMap.pm
+++ libextutils-xsbuilder-perl-0.27/XSBuilder/TypeMap.pm
@@ -165,6 +165,9 @@
if ($class =~ /^[INU]V/) {
return '0';
}
+ elsif ($class =~ /^(U_)?CHAR$/) {
+ return '0'; # xsubpp seems to mangle q{'\0'}
+ }
else {
return 'NULL';
}
@@ -803,7 +806,7 @@
'INPUT' =>
q[ {
MAGIC * mg ;
- if (mg = mg_find (SvRV($arg), '~'))
+ if ((mg = mg_find (SvRV($arg), '~')))
$var = *(($type *)(mg -> mg_ptr)) ;
else
croak (\"$var is not of type $type\") ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Various Embperl patches from the Debian package [2/3]
Posted by Angus Lees <gu...@inodes.org>.
This one is needed for some architectures (m68k) where PTR2IV can
produce a signed (negative) result:
--- libembperl-perl-2.0rc2.orig/test/cmp/reqrec.htm
+++ libembperl-perl-2.0rc2/test/cmp/reqrec.htm
@@ -9,11 +9,11 @@
$_[1] = <br>
^\$rec_rec = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\$rec_rec = \d+<br>
+^\$\$rec_rec = -?\d+<br>
^Apache->request = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\{Apache->request\} = \d+<br>
+^\$\{Apache->request\} = -?\d+<br>
${Apache->request} = $$req_rec ? yes <br>
--- libembperl-perl-2.0rc2.orig/test/cmp/varepvar.htm
+++ libembperl-perl-2.0rc2/test/cmp/varepvar.htm
@@ -12,7 +12,7 @@
^\$\$rec_rec = -?\d+<br>
^Apache->request = Apache(::RequestRec)?=SCALAR\(0x.*?\)<br>
-^\$\{Apache->request\} = \d+<br>
+^\$\{Apache->request\} = -?\d+<br>
${Apache->request} = $$req_rec ? yes <br>
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org