richter 02/03/12 00:58:46
Modified: . Tag: Embperl2c Changes.pod MANIFEST README.v2
epcomp.c epinit.c epio.c epmain.c test.pl
eg Tag: Embperl2c README
Added: test/cmp Tag: Embperl2c subtextarea.htm
test/html Tag: Embperl2c subtextarea.htm
Log:
Revision Changes Path
No revision
No revision
1.129.4.52 +7 -8 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.51
retrieving revision 1.129.4.52
diff -u -r1.129.4.51 -r1.129.4.52
--- Changes.pod 11 Mar 2002 08:47:25 -0000 1.129.4.51
+++ Changes.pod 12 Mar 2002 08:58:43 -0000 1.129.4.52
@@ -32,14 +32,11 @@
- Added EMBPERL_APP_HANDLER_CLASS to set the application object
for Embperl pages, when not using Embperl::Object
- Embperl now uses nativ Apache configuration directives instead
- of enviroment variables when running under mod_perl. You have
- to add the following lines to the top of your httpd.conf:
-
- PerlModule Embperl
- AddModule embperl.c
-
- (On Win32 without the AddModule)
-
+ of enviroment variables when running under mod_perl. You need to
+ load Embperl before you can use any of them, either via
+ "PerlModule Embperl" or via "use Embperl" inside of a startup script.
+ "Embperl_UseEnv on" is provided to get the old behaviour of using
+ environment variables for configuration.
- The default for input unescaping is now set to off. So people which are
working with an text editor should be happy, people who are using any
sort of HTML editor should use EMBPERL_INPUT_ESCMODE to set the way
@@ -85,6 +82,8 @@
to limit the number of errors send in a small time.
- When running under Embperl::Object all sourcefiles including for
example xsl stylesheets are now search throught the searchpath.
+ - Fixed a bug that causes input fields and textarea field to not
+ autofilled anymore after a sub was called. Reported by Kee Hinckley.
=head1 2.0b5 (BETA) 27. Nov. 2001
1.50.4.39 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.38
retrieving revision 1.50.4.39
diff -u -r1.50.4.38 -r1.50.4.39
--- MANIFEST 12 Mar 2002 04:52:07 -0000 1.50.4.38
+++ MANIFEST 12 Mar 2002 08:58:43 -0000 1.50.4.39
@@ -299,6 +299,7 @@
test/cmp/stdout.htm
test/cmp/sub.htm
test/cmp/subtab.htm
+test/cmp/subtextarea.htm
test/cmp/syntax.htm
test/cmp/table.htm
test/cmp/tabmode.htm
@@ -494,6 +495,7 @@
test/html/subimp.htm
test/html/subimp.pm
test/html/subtab.htm
+test/html/subtextarea.htm
test/html/syntax.htm
test/html/table.htm
test/html/tabmode.htm
1.1.4.28 +10 -8 embperl/Attic/README.v2
Index: README.v2
===================================================================
RCS file: /home/cvs/embperl/Attic/README.v2,v
retrieving revision 1.1.4.27
retrieving revision 1.1.4.28
diff -u -r1.1.4.27 -r1.1.4.28
--- README.v2 11 Mar 2002 14:08:27 -0000 1.1.4.27
+++ README.v2 12 Mar 2002 08:58:44 -0000 1.1.4.28
@@ -9,7 +9,7 @@
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-$Id: README.v2,v 1.1.4.27 2002/03/11 14:08:27 richter Exp $
+$Id: README.v2,v 1.1.4.28 2002/03/12 08:58:44 richter Exp $
### !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !! IMPORTANT !!
@@ -134,17 +134,19 @@
The following differences to Embperl 1.x apply:
------------------------------------------------------
-- When running under mod_perl the following lines are
- now required to load Embperl:
+- When running under mod_perl you _must_ load Embperl
+ at server startup time. Either with a
PerlModule Embperl
- AddModule embperl.c
- On Windows you only need to load the Embperl module,
- but don't have to write the AddModule.
+ in your httpd.conf or a
+
+ use Embperl ;
+
+ inside of a startup script.
You can use the Embperl configuration directives now
- directly, (wihtout PerlSetEnv/SetEnv). If you still
- want to use enviroment varibales to configure EMbperl, write
+ directly, (without PerlSetEnv/SetEnv). If you still
+ want to use enviroment varibales to configure Embperl, write
Embperl_UseEnv on
1.4.2.95 +3 -2 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.94
retrieving revision 1.4.2.95
diff -u -r1.4.2.94 -r1.4.2.95
--- epcomp.c 25 Feb 2002 11:20:26 -0000 1.4.2.94
+++ epcomp.c 12 Mar 2002 08:58:44 -0000 1.4.2.95
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcomp.c,v 1.4.2.94 2002/02/25 11:20:26 richter Exp $
+# $Id: epcomp.c,v 1.4.2.95 2002/03/12 08:58:44 richter Exp $
#
###################################################################################*/
@@ -2035,6 +2035,7 @@
r -> Component.nCurrRepeatLevel = (tRepeatLevel)SvIV (* av_fetch (pSaveAV, 2,
0)) ;
r -> Component.nCurrCheckpoint = SvIV (* av_fetch (pSaveAV, 3, 0)) ;
+ sv_setiv (pDomTreeSV, r -> Component.xCurrDomTree) ;
pCallerDomTree = DomTree_self (r -> Component.xCurrDomTree) ;
/* xDocFraq = Node_replaceChildWithNode (pSubDomTree, pSubDomTree -> xDocument,
pCallerDomTree, r -> Component.xCurrNode) ; */
r -> Component.xCurrNode = xDocFraq = Node_insertAfter (r -> pApp, pSubDomTree,
pSubDomTree -> xDocument, 0, pCallerDomTree, r -> Component.xCurrNode, r ->
Component.nCurrRepeatLevel) ;
@@ -2042,7 +2043,7 @@
/* Element_selfSetAttribut (pCallerDomTree, Node_self (pCallerDomTree,
xDocFraq), NULL, xOrderIndexAttr, NULL, nOrderNdx, 0) ; */
if (r -> Component.Config.bDebug & dbgRun)
- lprintf (r -> pApp, "[%d]SUB: Leave from DomTree=%d back to DomTree=%d\n", r
-> pThread -> nPid, xSubDomTree, r -> Component.xCurrDomTree) ;
+ lprintf (r -> pApp, "[%d]SUB: Leave from DomTree=%d back to DomTree=%d
RepeatLevel=%d\n", r -> pThread -> nPid, xSubDomTree, r -> Component.xCurrDomTree, r
-> Component.nCurrRepeatLevel) ;
return ok ;
}
1.1.2.42 +8 -1 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.41
retrieving revision 1.1.2.42
diff -u -r1.1.2.41 -r1.1.2.42
--- epinit.c 12 Mar 2002 05:12:30 -0000 1.1.2.41
+++ epinit.c 12 Mar 2002 08:58:44 -0000 1.1.2.42
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epinit.c,v 1.1.2.41 2002/03/12 05:12:30 richter Exp $
+# $Id: epinit.c,v 1.1.2.42 2002/03/12 08:58:44 richter Exp $
#
###################################################################################*/
@@ -341,6 +341,7 @@
if (strcmp (pCfg -> sSessionHandlerClass, "no") == 0)
return ok ;
+ tainted = 0 ;
if (!pArgs)
pCfg -> pSessionArgs = pArgs = newHV() ;
@@ -380,15 +381,18 @@
pArgs1 = newHVhv(pArgs) ;
hv_store (pArgs1, "Transaction", 11, newSViv (1), 0) ;
+ tainted = 0 ;
if ((rc = embperl_CreateSessionObject (a, pArgs1, &a -> pAppHash, &a ->
pAppObj)) != ok)
return rc ;
+ tainted = 0 ;
PUSHMARK(sp);
XPUSHs(a -> pAppObj);
XPUSHs(sv_2mortal (newSVpv(a -> Config.sAppName, 0)));
PUTBACK;
perl_call_method ("setidfrom", G_DISCARD) ;
+ tainted = 0 ;
pArgs2 = newHVhv(pArgs) ;
hv_store (pArgs2, "recreate_id", 11, newSViv (1), 0) ;
pArgs3 = newHVhv(pArgs2) ;
@@ -396,11 +400,14 @@
if ((rc = embperl_CreateSessionObject (a, pArgs2, &a -> pUserHash, &a ->
pUserObj)) != ok)
return rc ;
+ tainted = 0 ;
hv_store (pArgs3, "newid", 5, newSViv (1), 0) ;
if ((rc = embperl_CreateSessionObject (a, pArgs3, &a -> pStateHash, &a ->
pStateObj)) != ok)
return rc ;
+
+ tainted = 0 ;
return ok ;
}
1.16.4.10 +4 -4 embperl/epio.c
Index: epio.c
===================================================================
RCS file: /home/cvs/embperl/epio.c,v
retrieving revision 1.16.4.9
retrieving revision 1.16.4.10
diff -u -r1.16.4.9 -r1.16.4.10
--- epio.c 27 Feb 2002 11:58:23 -0000 1.16.4.9
+++ epio.c 12 Mar 2002 08:58:44 -0000 1.16.4.10
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epio.c,v 1.16.4.9 2002/02/27 11:58:23 richter Exp $
+# $Id: epio.c,v 1.16.4.10 2002/03/12 08:58:44 richter Exp $
#
###################################################################################*/
@@ -969,7 +969,7 @@
a -> lfd = NULL ;
- if (a -> pThread -> pCurrReq && a -> Config.bDebug == 0)
+ if (a -> Config.bDebug == 0)
return ok ; /* never write to logfile if debugging is disabled */
if (!a -> Config.sLog && a -> Config.sLog[0] == '\0')
@@ -1094,7 +1094,7 @@
{
n = PerlIO_vprintf (a -> lfd, sFormat, ap) ;
- if (a -> pThread -> pCurrReq && a -> pThread -> pCurrReq ->
Component.Config.bDebug & dbgFlushLog)
+ if (a -> Config.bDebug & dbgFlushLog)
PerlIO_flush (a -> lfd) ;
}
@@ -1125,7 +1125,7 @@
n = PerlIO_write (a -> lfd, (void *)ptr, size) ;
- if (a -> pThread -> pCurrReq && a -> pThread -> pCurrReq ->
Component.Config.bDebug & dbgFlushLog)
+ if (a -> Config.bDebug & dbgFlushLog)
PerlIO_flush (a -> lfd) ;
return n ;
1.75.4.112 +31 -47 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.75.4.111
retrieving revision 1.75.4.112
diff -u -r1.75.4.111 -r1.75.4.112
--- epmain.c 11 Mar 2002 08:47:26 -0000 1.75.4.111
+++ epmain.c 12 Mar 2002 08:58:44 -0000 1.75.4.112
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epmain.c,v 1.75.4.111 2002/03/11 08:47:26 richter Exp $
+# $Id: epmain.c,v 1.75.4.112 2002/03/12 08:58:44 richter Exp $
#
###################################################################################*/
@@ -24,49 +24,33 @@
static char sVersion [] = VERSION ;
-
-static char sEnvHashName [] = "ENV" ;
-static char sFormHashName [] = "HTML::Embperl::fdat" ;
-static char sUserHashName [] = "HTML::Embperl::udat" ;
-static char sStateHashName [] = "HTML::Embperl::sdat" ;
-static char sModHashName [] = "HTML::Embperl::mdat" ;
-static char sFormSplitHashName [] = "HTML::Embperl::fsplitdat" ;
-static char sFormArrayName [] = "HTML::Embperl::ffld" ;
-static char sInputHashName [] = "HTML::Embperl::idat" ;
-static char sHeaderHashName [] = "HTML::Embperl::http_headers_out" ;
-static char sTabCountName [] = "HTML::Embperl::cnt" ;
-static char sTabRowName [] = "HTML::Embperl::row" ;
-static char sTabColName [] = "HTML::Embperl::col" ;
-static char sTabMaxRowName [] = "HTML::Embperl::maxrow" ;
-static char sTabMaxColName [] = "HTML::Embperl::maxcol" ;
-static char sTabModeName [] = "HTML::Embperl::tabmode" ;
-static char sEscModeName [] = "HTML::Embperl::escmode" ;
-#ifdef EP2
-static char sCurrNodeName [] = "HTML::Embperl::_ep_node" ;
-static char sTokenHashName [] = "HTML::Embperl::Syntax::Default" ;
-#endif
-
-static char sDefaultPackageName [] = "HTML::Embperl::DOC::_%d" ;
-static char sDefaultSubName [] = "_ep_main_%d" ;
-
-static char sUIDName [] = "_ID" ;
-static char sSetCookie [] = "Set-Cookie" ;
-static char sCookieNameDefault [] = "EMBPERL_UID" ;
-
-
-static int nPackNo = 1 ; /* Number for createing unique package names */
-static tReq * pReqFree = NULL ; /* Chain of unused req structures */
-
-static HV * pCacheHash ; /* Hash which holds all cached data
- (key=> filename or
- filename + packagename,
- value=>cache hash for file) */
-
-
-
-/* */
-/* print error */
-/* */
+/*---------------------------------------------------------------------------
+* DoLogError
+*/
+/*!
+*
+* \_en
+* Logs the occurence of an error to the embperl logfile and the httpd error log
+*
+* @param r the request object (maybe NULL)
+* @param a the application object (maybe NULL)
+* @param rc the error code
+* @param errdat1 addtional informations
+* @param errdat2 addtional informations
+* \endif
+*
+* \_de
+* logged das auftreten eines Fehler in das Embperl Logfile und den httpd
+* error log
+*
+* @param r das Requestobjekt (kann NULL sein)
+* @param a das Applikationobjekt (kann NULL sein)
+* @param rc Fehlercode
+* @param errdat1 Zus�tzliche Informationen
+* @param errdat2 Zus�tzliche Informationen
+* \endif
+*
+* ------------------------------------------------------------------------ */
static char * DoLogError (/*i/o*/ struct tReq * r,
/*i/o*/ struct tApp * a,
@@ -330,7 +314,7 @@
/*---------------------------------------------------------------------------
-* LogErrorParam
+* LogError
*/
/*!
*
@@ -899,7 +883,7 @@
if (pCookie)
- table_add(r -> pApacheReq->headers_out, sSetCookie, pCookie) ;
+ table_add(r -> pApacheReq->headers_out, "Set-Cookie", pCookie) ;
#if 0
if (r -> Component.Config.bEP1Compat) /* Embperl 2 currently cannot calc
Content Length */
set_content_length (r -> pApacheReq, GetContentLength (r) + (r ->
Component.pCurrEscape?2:0)) ;
@@ -987,7 +971,7 @@
oputs (r, txt) ;
if (pCookie)
{
- oputs (r, sSetCookie) ;
+ oputs (r, "Set-Cookie") ;
oputs (r, ": ") ;
oputs (r, pCookie) ;
oputs (r, "\n") ;
1.70.4.128 +5 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.127
retrieving revision 1.70.4.128
diff -u -r1.70.4.127 -r1.70.4.128
--- test.pl 12 Mar 2002 04:52:07 -0000 1.70.4.127
+++ test.pl 12 Mar 2002 08:58:44 -0000 1.70.4.128
@@ -11,7 +11,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: test.pl,v 1.70.4.127 2002/03/12 04:52:07 richter Exp $
+# $Id: test.pl,v 1.70.4.128 2002/03/12 08:58:44 richter Exp $
#
###################################################################################
@@ -327,6 +327,10 @@
},
### 'importmodule.htm' => {
### },
+ 'subtextarea.htm' => {
+ 'repeat' => 2,
+ 'query_info' => 'summary=a1&title=b2&pubdate=c3&content=d4&more=e5',
+ },
'recursexec.htm' => {
'version' => 1,
},
No revision
No revision
1.4.6.2 +10 -0 embperl/eg/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/eg/README,v
retrieving revision 1.4.6.1
retrieving revision 1.4.6.2
diff -u -r1.4.6.1 -r1.4.6.2
--- README 8 Mar 2002 06:44:14 -0000 1.4.6.1
+++ README 12 Mar 2002 08:58:45 -0000 1.4.6.2
@@ -1,5 +1,15 @@
This directory contains a few examples for use of Embperl.
+eg/web This directory contains the upcoming new Embperl website.
+ It uses most of the new possibilites of Embperl 2.0b6+.
+ To take a look at it just type "make start" and then
+ request http://localhost:8531/eg/web/ . To get it
+ working you need to have libxml installed and a mysql
+ database called "embperl", which should be setup with
+ the script setupdb.pl in eg/webutil.
+ Keep in mind that this sample web isn't ready yet, it's
+ just here to give you an idea what will coming...
+
eg/x Here are the following html files
eg/images Here are the background GIF
No revision
No revision
1.1.2.1 +28 -0 embperl/test/cmp/Attic/subtextarea.htm
No revision
No revision
1.1.2.1 +30 -0 embperl/test/html/Attic/subtextarea.htm
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
