Gerald, I couldn't have gotten this project this far without your help. Thanks
so much.
This project is now back on my Linux box for the time being. I've gotten it all
working except this final status page. It's giving me a strange error that may
be a 2.0b5 error. Am I missing something or is this some sort of bug?
Here's the Apache config section:
> PerlSetEnv EMBPERL_SESSION_CLASSES "File Semaphore"
> PerlSetEnv EMBPERL_SESSION_ARGS "Directory=/wwww/sessions"
> PerlSetEnv EMBPERL_DEBUG 10477
> PerlSetEnv EMBPERL_VIRTLOG /embperl/log
> PerlSetEnv EMBPERL_OPTIONS 8208
> PerlModule HTML::EmbperlObject
>
> <Location /embperl/log>
> SetHandler perl-script
> PerlHandler HTML::Embperl
> Options ExecCGI
> </Location>
>
> <Files *.epl>
> PerlSetEnv EMBPERL_OBJECT_BASE base.epl
> PerlSetEnv EMBPERL_FILESMATCH "\.epl$"
> SetHandler perl-script
> PerlHandler HTML::EmbperlObject
> Options ExecCGI
> </Files>
>
> AddType text/html .epl
Here's what I see in my browser:
Logfile
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, [EMAIL PROTECTED] and
inform them of the time the error occurred, and anything you might have done
that may have caused the error.
[1374]ERR: 24: Error in Perl code: Can't locate auto/HTML/Embperl/Global
symbol "$rec" requires explicit package name at
/usr/lib/perl5/site_perl/5.005/i386-linux/HTML/Embperl.pm line 745
Apache/1.3.22 (Unix) mod_perl/1.26 HTML::Embperl 2.0b5 [Mon Feb 11
16:26:40 2002]
Here's the Logfile link:
Logfile = /tmp/embperl.log, Position = 2277130, Pid = 1374
[1374]REQ: Embperl 2.0b5 starting... Mon Feb 11 16:26:37 2002
[1374]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x
recipe = Embperl
[1374]REQ: Package = HTML::Embperl::DOC::_1
[1374]Formdata... length = 0
[1374]Using APACHE for output...
[1374]EVAL< <unknown>
[1374]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[1374]MEM: Load /wwww/htdocs/constants.epl in HTML::Embperl::DOC::_3
[1374]CACHE: New File for '/wwww/htdocs/constants.epl' (8403f18) in
'HTML::Embperl::DOC::_3' hash cache-key '--/wwww/htdocs/constants.epl'
[1374]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x
recipe = Embperl
[1374]REQ: Package = HTML::Embperl::DOC::_3
[1374]Reading /wwww/htdocs/constants.epl as input using PerlIO (7271
Bytes)...
[1374]PERF: Parse Start Time: 30 ms
[1374]PERF: Parse End Time: 40 ms
[1374]PERF: Parse Time: 10 ms
[1374]PERF: DOMSTAT: MemUsage = 74112 Bytes numNodes = 148
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 168 numReplace =
2
[1374]PERF: Compile Start Time: 40 ms
[1374]PERF: Compile End Time: 50 ms
[1374]PERF: After Compile Exec End Time: 50 ms
[1374]PERF: Perl Compile End Time: 470 ms
[1374]PERF: Compile Time: 430 ms
[1374]PERF: DOMSTAT: MemUsage = 75152 Bytes numNodes = 146
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 168 numReplace =
2
[1374]EVAL< <unknown>
[1374]EVAL> <undefined>
[1374]PERF: Run Start Time: 470 ms
[1374]PERF: Run End Time: 470 ms
[1374]PERF: Run Time: 0 ms
[1374]PERF: DOMSTAT: MemUsage = 77408 Bytes numNodes = 147
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 168 numReplace =
2
[1374]PERF: input = /wwww/htdocs/constants.epl
[1374]PERF: Time: 480 ms Evals: 0 No Evals to cache
[1374]Sub-Request finished. Mon Feb 11 16:26:38 2002
. Entry-SVs: 32643 -OBJs: 28 Exit-SVs: 35134 -OBJs: 30
[1374]PERF: DOMSTAT: MemUsage = 79384 Bytes numNodes = 150
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 168 numReplace =
2
[1374]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[1374]MEM: Load /wwww/htdocs/init.epl in HTML::Embperl::DOC::_4
[1374]CACHE: New File for '/wwww/htdocs/init.epl' (85b27e8) in
'HTML::Embperl::DOC::_4' hash cache-key '--/wwww/htdocs/init.epl'
[1374]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x
recipe = Embperl
[1374]REQ: Package = HTML::Embperl::DOC::_4
[1374]Reading /wwww/htdocs/init.epl as input using PerlIO (707 Bytes)...
[1374]PERF: Parse Start Time: 30 ms
[1374]PERF: Parse End Time: 30 ms
[1374]PERF: Parse Time: 0 ms
[1374]PERF: DOMSTAT: MemUsage = 81592 Bytes numNodes = 157
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]PERF: Compile Start Time: 30 ms
[1374]PERF: Compile End Time: 40 ms
[1374]PERF: After Compile Exec End Time: 40 ms
[1374]PERF: Perl Compile End Time: 50 ms
[1374]PERF: Compile Time: 20 ms
[1374]PERF: DOMSTAT: MemUsage = 82632 Bytes numNodes = 155
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]EVAL< <unknown>
[1374]EVAL> <undefined>
[1374]PERF: Run Start Time: 50 ms
[1374]PERF: Run End Time: 1760 ms
[1374]PERF: Run Time: 1710 ms
[1374]PERF: DOMSTAT: MemUsage = 84888 Bytes numNodes = 156
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]PERF: input = /wwww/htdocs/init.epl
[1374]PERF: Time: 1760 ms Evals: 0 No Evals to cache
[1374]Sub-Request finished. Mon Feb 11 16:26:40 2002
. Entry-SVs: 35149 -OBJs: 31 Exit-SVs: 42509 -OBJs: 38
[1374]PERF: DOMSTAT: MemUsage = 84808 Bytes numNodes = 157
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[1374]CACHE: Found File for '/wwww/htdocs/reviews/jarpronu/status.epl'
(83845f0) in 'HTML::Embperl::DOC::_2' hash cache-key '--
/wwww/htdocs/reviews/jarpronu/status.epl'
[1374]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x
recipe = Embperl
[1374]REQ: Package = HTML::Embperl::DOC::_2
[1374]EVAL< <unknown>
[1374]EVAL> <undefined>
[1374]ERR: 24: Error in Perl code: Can't locate auto/HTML/Embperl/Global
symbol "$rec" requires explicit package name at
/usr/lib/perl5/site_perl/5.005/i386-linux/HTML/Embperl.pm line 745
[1374]PERF: Run Start Time: 10 ms
[1374]PERF: Run End Time: 20 ms
[1374]PERF: Run Time: 10 ms
[1374]PERF: DOMSTAT: MemUsage = 86360 Bytes numNodes = 157
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]PERF: input = /wwww/htdocs/reviews/jarpronu/status.epl
[1374]PERF: Time: 20 ms Evals: 0 No Evals to cache
[1374]Sub-Request finished. Mon Feb 11 16:26:40 2002
. Entry-SVs: 42515 -OBJs: 39 Exit-SVs: 42544 -OBJs: 38
[1374]PERF: DOMSTAT: MemUsage = 84856 Bytes numNodes = 157
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 170 numReplace =
2
[1374]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[1374]MEM: Load /wwww/htdocs/cleanup.epl in HTML::Embperl::DOC::_5
[1374]CACHE: New File for '/wwww/htdocs/cleanup.epl' (85b9828) in
'HTML::Embperl::DOC::_5' hash cache-key '--/wwww/htdocs/cleanup.epl'
[1374]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x
recipe = Embperl
[1374]REQ: Package = HTML::Embperl::DOC::_5
[1374]Reading /wwww/htdocs/cleanup.epl as input using PerlIO (148 Bytes)...
[1374]PERF: Parse Start Time: 30 ms
[1374]PERF: Parse End Time: 30 ms
[1374]PERF: Parse Time: 0 ms
[1374]PERF: DOMSTAT: MemUsage = 87064 Bytes numNodes = 164
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 172 numReplace =
2
[1374]PERF: Compile Start Time: 30 ms
[1374]PERF: Compile End Time: 50 ms
[1374]PERF: After Compile Exec End Time: 50 ms
[1374]PERF: Perl Compile End Time: 50 ms
[1374]PERF: Compile Time: 20 ms
[1374]PERF: DOMSTAT: MemUsage = 88104 Bytes numNodes = 162
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 172 numReplace =
2
[1374]PERF: input = /wwww/htdocs/cleanup.epl
[1374]PERF: Time: 50 ms Evals: 0 No Evals to cache
[1374]Sub-Request finished. Mon Feb 11 16:26:40 2002
. Entry-SVs: 42539 -OBJs: 39 Exit-SVs: 42704 -OBJs: 40
[1374]PERF: DOMSTAT: MemUsage = 88104 Bytes numNodes = 162
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 172 numReplace =
2
[1374]EVAL> <undefined>
[1374]PERF: Run Start Time: 10 ms
[1374]PERF: Run End Time: 2370 ms
[1374]PERF: Run Time: 2360 ms
[1374]PERF: DOMSTAT: MemUsage = 88104 Bytes numNodes = 162
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 172 numReplace =
2
[1374]PERF: input = /wwww/htdocs/base.epl
[1374]PERF: Time: 2370 ms Evals: 0 No Evals to cache
[1374]Request finished. Mon Feb 11 16:26:40 2002
Here's the EPL file in question:
[$ var $req %edat @set $names $]
[- $req = shift; -]
[-
# Retrieve questionnaire data.
use Storable;
my ($hashref) = retrieve('quest.dat') || die "Can't retrieve questionnaire data.
$!";
%edat=%$hashref;
# Get Review Number
open (REVNUM_FILE, 'reviewnum.dat') or die "Couldn't obtain review
number: $!\n";
my ($review_num) = <REVNUM_FILE>;
close (REVNUM_FILE);
use DBIx::Recordset ;
$db{'!DataSource'} = $req->{website_database};
$db{'!Username'} = $req->{db_user};
$db{'!Password'} = $req->{db_pass};
$db{'!Table'} = 'ar_events';
$db{'!Fields'} = 'datetime,eventcode,user,info';
$db{'ar_id'} = $review_num;
*set = DBIx::Recordset -> Search(\%db) ;
$names = $set -> Names ;
# Log event:
&{$req->{log_event}} ($review_num, "Status Viewed", '');
-]
<html>
<head>
<h1>Review Status</h1>
</head>
<body>
<table width = 90% border=1>
[$ if $row == 0 $]
<tr>
<th>[+ $names -> [$col] +]</th>
</tr>
[$endif$]
<tr>
[- $rec = $set[$row] -]
<td>[+ $rec -> {$names->[$col]} +]</td>
</tr>
</table>
<BR>
<A HREF="data.pfg">Download PFG file</A><BR>
Questionnaire data: <BR>
Company Name: <BR> [+ $edat{CompanyName} +] <BR>
Contact Name: <BR> [+ $edat{Contact} +] <BR>
Address: <BR> [+ $edat{Address1} +] <BR>
Address: <BR> [+ $edat{Address2} +] <BR>
City: <BR> [+ $edat{City} +] <BR>
State: <BR> [+ $edat{State} +] <BR>
Postal: <BR> [+ $edat{PostalCode} +] <BR>
Country: <BR> [+ $edat{Country} +] <BR>
Email: <BR> [+ $edat{Email} +] <BR>
Phone: <BR> [+ $edat{Phone1} +] <BR>
Fax: <BR> [+ $edat{Fax1} +] <BR>
Computer Name: <BR> [+ $edat{ComputerName} +] <BR>
Model: <BR> [+ $edat{SystemModel} +] <BR>
RAM: <BR> [+ $edat{RAMInstalled} +] <BR>
RAM Capacity: <BR> [+ $edat{txtRAMCapacity} +] <BR>
OS: <BR> [+ $edat{OSLevel} +] <BR>
# Drives: <BR> [+ $edat{NumDrives} +] <BR>
# Controllers: <BR> [+ $edat{NumControllers} +] <BR>
CDROM LDev#: <BR> [+ $edat{CDROM_LDEV} +] <BR>
Drive space: <BR> [+ $edat{DriveSpace} +] <BR>
Drive free space: <BR> [+ $edat{DriveFreeSpace} +] <BR>
Disk Arrays: <BR> [+ $edat{DiskArrays} +] <BR>
Reason for Study: <BR> [+ $edat{ReasonForStudy} +] <BR>
System used for: <BR> [+ $edat{SystemUse} +] <BR>
User Volume Sets: <BR> [+ $edat{UserVolSets} +] <BR>
Upgrade Plans: <BR> [+ $edat{UpgradePlans} +] <BR>
Colletion Specifics: <BR> [+ $edat{CollectionSpecifics} +] <BR>
Showq status: <BR> [+ $edat{CmdShowqStatus} +] <BR>
Showme: <BR> [+ $edat{CmdShowme} +] <BR>
Showvar: <BR> [+ $edat{CmdShowvar} +] <BR>
DiscFree: <BR> [+ $edat{CmdDiscfree} +] <BR>
Dstat All: <BR> [+ $edat{CmdDstatAll} +] <BR>
Sysgen: <BR> [+ $edat{Sysgen} +] <BR>
Workload Defs: <BR> [+ $edat{WorkDefs} +] <BR>
Review Info: <BR> [+ $edat{ReviewInfo} +] <BR>
</body>
</html>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
