You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@locus.apache.org on 2000/09/14 08:10:08 UTC
cvs commit: embperl/test/cmp includeerr1.htm includeerr2.htm taint.htm
richter 00/09/13 23:10:07
Modified: . Tag: Embperl2c MANIFEST test.pl
test/cmp Tag: Embperl2c includeerr1.htm includeerr2.htm
taint.htm
Log:
Embperl 1 & 2 Source Integration
Revision Changes Path
No revision
No revision
1.50.4.2 +0 -4 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.50.4.1
retrieving revision 1.50.4.2
diff -u -r1.50.4.1 -r1.50.4.2
--- MANIFEST 2000/09/13 08:37:57 1.50.4.1
+++ MANIFEST 2000/09/14 06:10:03 1.50.4.2
@@ -5,10 +5,6 @@
epcmd2.c
ep2.h
Embperl/Syntax.pm
-Embperl/Cmd.pm
-Embperl/Cmd.xs
-XML/Embperl/DOM.pm
-XML/Embperl/DOM.xs
Changes.pod
Embperl.pm
Embperl.xs
1.70.4.7 +3 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.70.4.6
retrieving revision 1.70.4.7
diff -u -r1.70.4.6 -r1.70.4.7
--- test.pl 2000/09/14 05:53:56 1.70.4.6
+++ test.pl 2000/09/14 06:10:04 1.70.4.7
@@ -353,6 +353,7 @@
'EmbperlObject/epopage1.htm' => {
'offline' => 0,
'cgi' => 0,
+ 'version' => 1,
},
'EmbperlObject/epodiv.htm' => {
'offline' => 0,
@@ -1748,9 +1749,9 @@
if (!$EPWIN32 && $loc eq $embploc && !($file =~ /notfound\.htm/))
{
- print "ERROR: Missing read permission for file $inpath/$file\n" if (!-r "$inpath/$file") ;
+ print "ERROR: Missing read permission for file $inpath/$file\n" if (!-r $page) ;
local $> = $httpduid ;
- print "ERROR: $inpath/$file must be readable by $EPUSER (uid=$httpduid)\n" if (!-r "$inpath/$file") ;
+ print "ERROR: $inpath/$file must be readable by $EPUSER (uid=$httpduid)\n" if (!-r $page) ;
}
$n_req++ ;
No revision
No revision
1.2.6.2 +1 -1 embperl/test/cmp/includeerr1.htm
Index: includeerr1.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr1.htm,v
retrieving revision 1.2.6.1
retrieving revision 1.2.6.2
diff -u -r1.2.6.1 -r1.2.6.2
--- includeerr1.htm 2000/09/13 19:17:24 1.2.6.1
+++ includeerr1.htm 2000/09/14 06:10:05 1.2.6.2
@@ -2,7 +2,7 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
-^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?includeerr1.htm line 10.<p>
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?includeerr1.htm line 10
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.3.6.2 +3 -3 embperl/test/cmp/includeerr2.htm
Index: includeerr2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr2.htm,v
retrieving revision 1.3.6.1
retrieving revision 1.3.6.2
diff -u -r1.3.6.1 -r1.3.6.2
--- includeerr2.htm 2000/09/13 19:17:26 1.3.6.1
+++ includeerr2.htm 2000/09/14 06:10:06 1.3.6.2
@@ -6,11 +6,11 @@
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
-^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6
^\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code: Use of uninitialized value
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.2.6.1 +2 -2 embperl/test/cmp/taint.htm
Index: taint.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/taint.htm,v
retrieving revision 1.2
retrieving revision 1.2.6.1
diff -u -r1.2 -r1.2.6.1
--- taint.htm 1999/05/07 20:13:50 1.2
+++ taint.htm 2000/09/14 06:10:06 1.2.6.1
@@ -2,8 +2,8 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
-^\[.*?\]ERR\: 24\: Line 15\: Error in Perl code\: Insecure \$ENV\{PATH\} while running with \-T switch
-^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 24\: Line \d+\: Error in Perl code\: Insecure \$ENV\{PATH\} while running with \-T switch
+^-\[.*?\]ERR\: 32\: Line \d+\: Warning in Perl code\: Use of uninitialized value
^ HTML::Embperl .*?<P>
</BODY></HTML>