richter 00/11/07 23:49:13
Modified: . CVS.pod Changes.pod Embperl.pm Embperl.pod
Embperl.xs EmbperlD.pod Makefile.PL README epeval.c
epmain.c
Removed: . Faq
Log:
- remove dbgDisableCache
- some cosmetic enhancements from Angus Lees
Revision Changes Path
1.7 +2 -2 embperl/CVS.pod
Index: CVS.pod
===================================================================
RCS file: /home/cvs/embperl/CVS.pod,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- CVS.pod 2000/01/05 05:41:38 1.6
+++ CVS.pod 2000/11/08 07:49:06 1.7
@@ -64,11 +64,11 @@
To checkout a fresh copy from anoncvs use
-cvs -d "pserver:[EMAIL PROTECTED]:/home/cvspublic" login
+cvs -d ":pserver:[EMAIL PROTECTED]:/home/cvspublic" login
with the password "anoncvs".
-cvs -d "pserver:[EMAIL PROTECTED]:/home/cvspublic" co embperl
+cvs -d ":pserver:[EMAIL PROTECTED]:/home/cvspublic" co embperl
=head2 web-access
1.138 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.137
retrieving revision 1.138
diff -u -r1.137 -r1.138
--- Changes.pod 2000/11/07 19:33:29 1.137
+++ Changes.pod 2000/11/08 07:49:06 1.138
@@ -21,6 +21,8 @@
- make test now works again with BEN-SSL httpsd. With help from Neil Gunton.
- Included grammaticaly updated Embperl.pod. Many thanks to Ilia Lobsanov
for doing the proof reading.
+ - removed dbgDisableCache to avoid problems with this "feature" that isn't
working
+ anymore for a long time.
=head1 1.3b6 (BETA) 18. Oct 2000
1.124 +6 -8 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.123
retrieving revision 1.124
diff -u -r1.123 -r1.124
--- Embperl.pm 2000/11/07 19:33:29 1.123
+++ Embperl.pm 2000/11/08 07:49:07 1.124
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.123 2000/11/07 19:33:29 richter Exp $
+# $Id: Embperl.pm,v 1.124 2000/11/08 07:49:07 richter Exp $
#
###################################################################################
@@ -126,7 +126,6 @@
use constant dbgAll => -1 ;
use constant dbgAllCmds => 1024 ;
-use constant dbgCacheDisable => 32768 ;
use constant dbgCmd => 8 ;
use constant dbgDefEval => 16384 ;
use constant dbgEarlyHttpHeader => 65536 ;
@@ -1063,7 +1062,7 @@
my $ioType ;
my %req ;
- ScanEnvironement (\%req) ;
+ ScanEnvironment (\%req) ;
if (defined ($$args[0]) && $$args[0] eq 'dbgbreak')
@@ -1157,7 +1156,7 @@
my $ioType ;
my %req ;
- ScanEnvironement (\%req) ;
+ ScanEnvironment (\%req) ;
$req{'inputfile'} = $ENV{PATH_TRANSLATED} ;
$ioType = epIOCGI ;
@@ -1194,7 +1193,7 @@
my %req ;
- ScanEnvironement (\%req, $req_rec) ;
+ ScanEnvironment (\%req, $req_rec) ;
$req{'uri'} = $req_rec -> Apache::uri ;
@@ -1281,7 +1280,7 @@
#eval "\&$1\:\:CLEANUP;" ;
eval "\&$package\:\:CLEANUP;" ;
print LOG "[$$]CUP: Call \&$package\:\:CLEANUP;\n" if ($Debugflags &
dbgShowCleanup);
- embperl_logevalerr ($@) if ($@) ;
+ logevalerr ($@) if ($@) ;
}
@@ -1866,7 +1865,6 @@
*{"$package\:\:dbgAllCmds"} = \$HTML::Embperl::dbgAllCmds
;
- *{"$package\:\:dbgCacheDisable"} =
\$HTML::Embperl::dbgCacheDisable ;
*{"$package\:\:dbgCmd"} = \$HTML::Embperl::dbgCmd
;
*{"$package\:\:dbgDefEval"} = \$HTML::Embperl::dbgDefEval
;
*{"$package\:\:dbgEarlyHttpHeader"} =
\$HTML::Embperl::dbgEarlyHttpHeader ;
@@ -2037,7 +2035,7 @@
$ok and $ok = $smtp->datasend("$k\t= \"$v\" \n" );
}
$ok and $ok = $smtp->datasend("-------------\r\n");
- $ok and $ok = $smtp->datasend("Environement:\r\n");
+ $ok and $ok = $smtp->datasend("Environment:\r\n");
$ok and $ok = $smtp->datasend("-------------\r\n");
my $env = $self -> EnvHash() ;
1.61 +2 -10 embperl/Embperl.pod
Index: Embperl.pod
===================================================================
RCS file: /home/cvs/embperl/Embperl.pod,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- Embperl.pod 2000/11/07 19:33:30 1.60
+++ Embperl.pod 2000/11/08 07:49:07 1.61
@@ -786,15 +786,7 @@
Shows every time new Perl code is compiled.
-=item dbgCacheDisable = 32768
-Disables the use of the p-code cache. All Perl code is recompiled
-every time. (This should not be used in normal operation as it slows
-down Embperl dramatically.) This option is only here for debugging
-Embperl's cache handling. There is no guarantee that Embperl behaves
-the same with and without cache (actually it does not!)
-
-
=item dbgHeadersIn = 262144
Log all HTTP headers which are sent from the browser.
@@ -2472,8 +2464,8 @@
To get the best performace from Embperl, it is necessary to restrict
logging to a minimum. You can drastically slow down Embperl if you
enable all logging options. (This is why `make test' takes a while to
-run.) You should B<never> enable B<dbgFlushOutput>, B<dbgFlushLog> or
-B<dbgCacheDisable> in a production environment. More debugging
+run.) You should B<never> enable B<dbgFlushOutput> or B<dbgFlushLog>
+ in a production environment. More debugging
options are useful for development where it doesn't matter if the
request takes a little bit longer, but on a heavily-loaded server they
should be disabled.
1.36 +1 -1 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- Embperl.xs 2000/11/07 11:28:18 1.35
+++ Embperl.xs 2000/11/08 07:49:07 1.36
@@ -247,7 +247,7 @@
void
-embperl_logevalerr(r,sText)
+embperl_logevalerr(sText)
char * sText
PREINIT:
int l ;
1.34 +2 -2 embperl/EmbperlD.pod
Index: EmbperlD.pod
===================================================================
RCS file: /home/cvs/embperl/EmbperlD.pod,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- EmbperlD.pod 2000/11/07 19:33:30 1.33
+++ EmbperlD.pod 2000/11/08 07:49:07 1.34
@@ -2434,8 +2434,8 @@
Um die beste Performance von I<Embperl> zu erzielen, ist es notwendig, das Logging
auf ein Minimum
zu beschr�nken. Sie k�nnen Embperl drastisch verlangsamen, wenn Sie alle
Logging Option einschalten.
-Vorallem sollten Sie B<niemals> L<dbgFlushOutput>, L<dbgFlushLog> oder
-L<dbgCacheDisable> auf einen Produktionsserver einschalten.
+Vorallem sollten Sie B<niemals> L<dbgFlushOutput> oder L<dbgFlushLog>
+auf einen Produktionsserver einschalten.
W�hrend der geringf�gige Performanceverlust beim Debuggen nicht auff�llt, kann
er auf einem stark belasteten Server durchaus ins Gewicht fallen.
Auch die Optionen L<optDisableChdir>, L<optDisableHtmlScan>, L<optDisableCleanup>
1.35 +1 -0 embperl/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/embperl/Makefile.PL,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- Makefile.PL 2000/11/07 11:28:19 1.34
+++ Makefile.PL 2000/11/08 07:49:08 1.35
@@ -910,6 +910,7 @@
'EmbperlObject.pm' => 'blib/man3/HTML::EmbperlObject.3',
},
'clean' => { FILES => 'dirent.h test/conf/httpd.conf test/tmp/*' },
+ 'realclean' => { FILES => 'embpexec.pl embpexec.bat embpcgi.pl
embpcgi.test.pl embpcgi.bat test/conf/config.pl' },
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz'},
'dynamic_lib' => $dynlib,
'PREREQ_PM' => { 'File::Spec' => 0 },
1.21 +1 -0 embperl/README
Index: README
===================================================================
RCS file: /home/cvs/embperl/README,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- README 2000/10/18 06:53:14 1.20
+++ README 2000/11/08 07:49:08 1.21
@@ -142,6 +142,7 @@
apache_1.3.6
apache_1.3.9
apache_1.3.12
+apache_1.3.14
apache + mod_ssl
apache_ssl (Ben SSL)
Stronghold 2.2
1.26 +7 -6 embperl/epeval.c
Index: epeval.c
===================================================================
RCS file: /home/cvs/embperl/epeval.c,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- epeval.c 2000/11/07 11:28:20 1.25
+++ epeval.c 2000/11/08 07:49:08 1.26
@@ -745,9 +745,9 @@
r -> numEvals++ ;
*pRet = NULL ;
- if (r -> bDebug & dbgCacheDisable)
+ /*if (r -> bDebug & dbgCacheDisable)
return EvalAllNoCache (r, sArg, pRet) ;
-
+ */
/* Already compiled ? */
ppSV = hv_fetch(r -> Buf.pFile -> pCacheHash, (char *)&nFilepos, sizeof
(nFilepos), 1) ;
@@ -807,9 +807,9 @@
r -> numEvals++ ;
*pRet = NULL ;
- if (r -> bDebug & dbgCacheDisable)
+ /*if (r -> bDebug & dbgCacheDisable)
return EvalAllNoCache (r, sArg, pRet) ;
-
+ */
/* Already compiled ? */
ppSV = hv_fetch(r -> Buf.pFile -> pCacheHash, (char *)&nFilepos, sizeof
(nFilepos), 1) ;
@@ -859,14 +859,15 @@
r -> numEvals++ ;
*pRet = NULL ;
+ /*
if (r -> bDebug & dbgCacheDisable)
{
- /* strip off all <HTML> Tags */
+ / * strip off all <HTML> Tags * /
TransHtml (r, sArg, 0) ;
return EvalAllNoCache (r, sArg, pRet) ;
}
-
+ */
/* Already compiled ? */
ppSV = hv_fetch(r -> Buf.pFile -> pCacheHash, (char *)&nFilepos, sizeof
(nFilepos), 1) ;
1.82 +4 -9 embperl/epmain.c
Index: epmain.c
===================================================================
RCS file: /home/cvs/embperl/epmain.c,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- epmain.c 2000/11/07 11:28:20 1.81
+++ epmain.c 2000/11/08 07:49:09 1.82
@@ -371,7 +371,6 @@
OPTMG (dbgFunc , pCurrReq -> bDebug) ;
OPTMG (dbgLogLink , pCurrReq -> bDebug) ;
OPTMG (dbgDefEval , pCurrReq -> bDebug) ;
-OPTMG (dbgCacheDisable , pCurrReq -> bDebug) ;
OPTMG (dbgWatchScalar , pCurrReq -> bDebug) ;
OPTMG (dbgHeadersIn , pCurrReq -> bDebug) ;
OPTMG (dbgShowCleanup , pCurrReq -> bDebug) ;
@@ -565,7 +564,7 @@
if (strcmp (sLine, "----") == 0)
- { state = 1 ; if (r -> bDebug) lprintf (r, "[%d]Environement...\n", r
-> nPid) ;}
+ { state = 1 ; if (r -> bDebug) lprintf (r, "[%d]Environment...\n", r ->
nPid) ;}
else if (strcmp (sLine, "****") == 0)
{ state = 2 ; if (r -> bDebug) lprintf (r, "[%d]Formdata...\n", r ->
nPid) ;}
else if (state == 1)
@@ -1552,7 +1551,6 @@
ADDOPTMG (dbgFunc ) ;
ADDOPTMG (dbgLogLink ) ;
ADDOPTMG (dbgDefEval ) ;
- ADDOPTMG (dbgCacheDisable) ;
ADDOPTMG (dbgWatchScalar ) ;
ADDOPTMG (dbgHeadersIn ) ;
ADDOPTMG (dbgShowCleanup ) ;
@@ -2858,13 +2856,10 @@
lprintf (r, "[%d]PERF: ", r -> nPid) ;
#endif
lprintf (r, "Evals: %d ", r -> numEvals) ;
- if (r -> bDebug & dbgCacheDisable)
- lprintf (r, "Cache disabled") ;
+ if (r -> numEvals == 0)
+ lprintf (r, "No Evals to cache") ;
else
- if (r -> numEvals == 0)
- lprintf (r, "No Evals to cache") ;
- else
- lprintf (r, "Cache Hits: %d (%d%%)", r -> numCacheHits, r ->
numCacheHits * 100 / r -> numEvals) ;
+ lprintf (r, "Cache Hits: %d (%d%%)", r -> numCacheHits, r ->
numCacheHits * 100 / r -> numEvals) ;
lprintf (r, "\n") ;
lprintf (r, "[%d]%sRequest finished. %s. Entry-SVs: %d -OBJs: %d Exit-SVs:
%d -OBJs: %d\n", r -> nPid,
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
