<HTML><TITLE>Test for HTML::Embperl::Execute and errors</TITLE><BODY>
<H1> 1.) The next one produces an error page</H1>
<H3><HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
<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\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 21\: Warning in Perl code\: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word at .*? line \d*\.
^\[.*?\]ERR\: 24\: Line 21\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: Can.*?
^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: Bareword found where operator expected at .*?
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: \(Missing operator before is\?\)
^\[.*?\]ERR\: 24\: Line 46\: Error in Perl code\: syntax error at .*? line \d*\, near \"\;\$error is here \"\;
^<br> Missing right.*?bracket
^<br> syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 20\: Line 58\: \<\;\/tr\>\; without \<\;tr\>\;
^\[.*?\]ERR\: 45\: Line 58\: Unclosed HTML tag <table> at end of file
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
</H3>
<H1> 2.) The next one produces an errors, but error page is disabled</H1>
<H3>
<html>
<head>
<title>Some Plain tests for Embperl</title>
</head>
<body>
Here it starts with some HTML Text<P>
All values should be undefined:
$a = (this is the value in $a) <BR>
$b = (this is the value in $a) äöü <BR>
$c = 57 <BR>
$d = 1 <BR>
$e = 2 <BR>
Here we will see an error:
First of all assign a value:
<BR>
Now we have some 'Umlaute':
Second Error:<BR>
<BR>
And now a and b together: (this is the value in $a)(this is the value in $a) äöü<P>
Here we have some HTML tags within the perl code, Embperl will delete them!<BR>
57
Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6: <BR>
1
Now they should have a value
Tag missmatch:
<table>
</H3>
<H1> 3.) Done :-)</H1>
</body></html>
^HTTP
^Date
^Server
^Connection
^Content-Type: text/html
^^<!DOCTYPE
<HTML><HEAD>
^<TITLE>
</HEAD><BODY>
^<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.<P>
^^More information about this error may be available
^^in the server error log.<P>
^^<P>Additionally, a 500 Internal Server Error
^^error was encountered while trying to use an ErrorDocument to handle the request.
</BODY></HTML>