Author: richter
Date: Tue Oct 25 23:44:05 2005
New Revision: 328577
URL: http://svn.apache.org/viewcvs?rev=328577&view=rev
Log:
- Added Support for calling Embperl::Object::Execute inside
an Embperl page. (Allow to nest new requests)
- Fixed compile problem with timezone on BSD systems
Modified:
perl/embperl/trunk/Changes.pod
perl/embperl/trunk/Makefile.PL
perl/embperl/trunk/TODO
perl/embperl/trunk/epdat2.h
perl/embperl/trunk/epinit.c
perl/embperl/trunk/eputil.c
Modified: perl/embperl/trunk/Changes.pod
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/Changes.pod?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Tue Oct 25 23:44:05 2005
@@ -2,6 +2,9 @@
=head1 2.0.2_dev (Not yet released, only in the CVS)
+ - Added Support for calling Embperl::Object::Execute inside
+ an Embperl page. (Allow to nest new requests)
+ - Fixed compile problem with timezone on BSD systems
- Fixed URLs in website to work correctly on static mirrors
=head1 2.0.1 3. October 2005
Modified: perl/embperl/trunk/Makefile.PL
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/Makefile.PL?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/Makefile.PL (original)
+++ perl/embperl/trunk/Makefile.PL Tue Oct 25 23:44:05 2005
@@ -1293,7 +1293,7 @@
open FH, ">xs/mmargs.pl" or die "Cannot open xs/mmargs.pl ($!).\n
--------------------------------------------------------------------------
-If you done a CVS checkout you need to create the sources first by running
+If you done a SVN checkout you need to create the sources first by running
xsbuilder/source_scan.pl and xsbuilder/xs_generate.pl.
--------------------------------------------------------------------------
\n" ;
Modified: perl/embperl/trunk/TODO
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/TODO?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/TODO (original)
+++ perl/embperl/trunk/TODO Tue Oct 25 23:44:05 2005
@@ -1,34 +1,21 @@
TODO
-- en/de select parameter passing in eg/web/header.epl
-
- textarea escape [Doug Rayner 6.5.04]
- doc that %mdat is per application
- check memory on recompile of epl files
-- make test fedora 1 [13.12.04]
-
- escape.htm hash order [ abe 7.3.05]
-- Global $r is not available. [ abe 7.3.05]
-
-- Date Header in Embper::Mail [ Robert 1.4.05]
-
- content-type in Embperl::Mail [ abe 4.4.05]
-
-- Mail Date Header [Robert]
-
-- 404 Error for not found [Cliff Raymann]
-
- %Udat not clearing after 500 error [Cliff Raymann]
- $req_rec not available in preload pages [Neil Gunton]
-
+- Check CGI.pm version >= 3.10 in Makefile.PL [Gavin Carr, 4.10.05]
TODO for Embperl 2.1 and later
Modified: perl/embperl/trunk/epdat2.h
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/epdat2.h?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/epdat2.h (original)
+++ perl/embperl/trunk/epdat2.h Tue Oct 25 23:44:05 2005
@@ -374,6 +374,8 @@
request_rec * pApacheReq ; /* apache request record */
SV * pApacheReqSV ;
tApacheDirConfig * pApacheConfig ;
+
+ tReq * pPrevReq ; /**< Stack in case a new request is startet,
when a request is active */
tReqConfig Config ; /**< request configuration data */
tReqParam Param ; /**< request parameter data */
Modified: perl/embperl/trunk/epinit.c
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/epinit.c?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/epinit.c (original)
+++ perl/embperl/trunk/epinit.c Tue Oct 25 23:44:05 2005
@@ -1383,6 +1383,7 @@
r -> pApp = pApp ;
pThread = r -> pThread = pApp -> pThread ;
+ r -> pPrevReq = pThread -> pCurrReq ;
pThread -> pCurrReq = r ;
pApp -> pCurrReq = r ;
sv_setsv(pThread -> pReqRV, r -> _perlsv) ;
@@ -1826,9 +1827,13 @@
if (r -> Config.bDebug)
DomStats (r -> pApp) ;
- r -> pThread -> pCurrReq = NULL ;
- r -> pApp -> pCurrReq = NULL ;
+ r -> pThread -> pCurrReq = r -> pPrevReq ;
+ r -> pApp -> pCurrReq = r -> pPrevReq ;
+ if (r -> pPrevReq)
+ sv_setsv(r -> pThread -> pReqRV, r -> pPrevReq -> _perlsv) ;
+
+
return ok ;
}
Modified: perl/embperl/trunk/eputil.c
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/eputil.c?rev=328577&r1=328576&r2=328577&view=diff
==============================================================================
--- perl/embperl/trunk/eputil.c (original)
+++ perl/embperl/trunk/eputil.c Tue Oct 25 23:44:05 2005
@@ -2054,8 +2054,10 @@
#ifdef WIN32
extern long _timezone;
#else
+#ifndef __BSD_VISIBLE
extern long timezone;
#endif
+#endif
char * embperl_GetDateTime (char * sResult)
@@ -2079,7 +2081,11 @@
tms->tm_hour, tms->tm_min, tms->tm_sec, tz > 0?"+":"",
tz);
#else
localtime_r(&when, &tms);
+#ifndef __BSD_VISIBLE
tz = -timezone / 36 + (tms.tm_isdst?100:0) ;
+#else
+ tz = -tms.tm_gmtoff / 36 + (tms.tm_isdst?100:0) ;
+#endif
sprintf(sResult,
"%s, %.2d%c%s%c%.2d %.2d:%.2d:%.2d %s%04d",
ep_day_snames[tms.tm_wday],
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
