I get this error when trying to store something using Storable and this is
working fine elsewhere in my code. I'm not storing any CODE items that I'm
aware of!
[849]ERR: 24: Error in Perl code: Can't store CODE items at
blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/_store.al) line 199, at
/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl line 81
Apache/1.3.23 (Unix) mod_perl/1.26 HTML::Embperl 2.0b5
Here's my source code and the log:
[$ var $req $user $reviewnum $error_string %edat %sdat $]
[- $req = shift; -]
[-
# Figure out who the user is logged in as.
if (!defined $req_rec -> connection -> user) {
if (defined $ENV{REMOTE_USER}) {$user =
$ENV{REMOTE_USER};}
elsif (defined $ENV{REMOTE_ADDR}) {$user =
$ENV{REMOTE_ADDR};}
else {$user = 'nobody';}
} else {
$user = $req_rec -> connection -> user;
}
-]
[$ if $fdat{epl_action} ne 'check' $]
[-
# check to see if previous work stored and retrieve it.
use Storable qw (store retrieve);
if (-e 'quest.dat') {
my ($hashref) = retrieve('quest.dat') || die "Can't retrieve questionnaire
data. $!";
%fdat=%$hashref;
} else {
# if no previous work stored, retrieve boiler plate stuff. It's stored by
username
my ($fname) = '/www/htdocs/user_info/' . $user . '.dat';
if ((defined ($user)) and (-e $fname)) {
my ($hashref) = retrieve($fname) || die "Can't retrieve questionnaire
bp data. $!";
%fdat=%$hashref;
}
}
-]
[$ endif $]
[$ if ($fdat{epl_action} eq 'check') $]
[-
# Clear epl hidden items
delete $fdat{epl_action};
delete $fdat{submitButtonName};
# Store form data to file.
use Storable;
store \%fdat, 'quest.dat' || die ("Can't store data to storable. $!");
# Check data for blanks
# This is now done in JavaScript on the client side.
# $error_string = &{$req->{check_hash_for_blanks}} (%fdat);
# Store boiler plate stuff under the logged in username.
if ($user ne '') {
# only copying over to edat the items we specifically want to use as
boiler plate.
$edat{txtCompanyName} = $fdat{txtCompanyName};
$edat{txtContact} = $fdat{txtContact};
$edat{txtAddress1} = $fdat{txtAddress1};
$edat{txtAddress2} = $fdat{txtAddress2};
$edat{txtCity} = $fdat{txtCity};
$edat{txtState} = $fdat{txtState};
$edat{txtPostalCode} = $fdat{txtPostalCode};
$edat{txtCountry} = $fdat{txtCountry};
$edat{txtEmail} = $fdat{txtEmail};
$edat{txtPhone1} = $fdat{txtPhone1};
$edat{txtFax1} = $fdat{txtFax1};
my ($fname) = '/www/htdocs/user_info/' . $user . '.dat';
store \%edat, $fname || die ("Can't store data to storable for user. $!");
}
if ("$error_string" eq "") {
# Get Review Number
open (REVNUM_FILE, 'reviewnum.dat') or die "Couldn't obtain review
number: $!\n";
my ($review_num) = <REVNUM_FILE>;
close (REVNUM_FILE);
# Log event:
&{$req->{log_event}} ($review_num, "Quest_Done", '');
# Retrieve status snapshot data. Update it and put it back.
if (-e 'status.dat') {
my ($hashref) = retrieve('status.dat') || die "Can't retrieve status data.
$!";
%sdat = %$hashref;
}
use Date::Format;
my ($timestamp) = time2str('%Y-%m-%d',time());
$sdat{Survey_Form_Received} = $timestamp;
store \%sdat, 'status.dat' || die ("Can't store data to status storable. $!");
# Redirect user to next page
$http_headers_out{'Location'} = "upload_pfgfile1.epl";
}
-]
[$ endif $]
[$ if ($fdat{epl_action} ne 'check') $]
<html>
Here's the log file:
Logfile = /tmp/embperl.log, Position = 70387416, Pid = 849
[849]REQ: Embperl 2.0b5 starting... Thu Mar 14 09:26:15
2002
[849]REQ: No Safe Eval All Opcode allowed mode =
mod_perl (3) EP 2.x recipe = Embperl
[849]REQ: Package = HTML::Embperl::DOC::_1
[849]HDR: 10
[849]HDR: Accept=image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, application/vnd.ms-powerpoint,
application/vnd.ms-excel, application/msword, */*
[849]HDR: Accept-Encoding=gzip, deflate
[849]HDR: Accept-Language=en-us
[849]HDR: Authorization=Basic c2NvdHQ6bGV0bWVpbg==
[849]HDR: Connection=Keep-Alive
[849]HDR: Content-Length=709
[849]HDR: Content-Type=application/x-www-form-urlencoded
[849]HDR: Host=cheetah.lund.com
[849]HDR: Referer=http://cheetah.lund.com/reviews/scott-
zgxvrzcx/quest1.epl
[849]HDR: User-Agent=Mozilla/4.0 (compatible; MSIE
5.01; Windows NT 5.0)
[849]ENV: QUERY_STRING=
[849]ENV: EMBPERL_SESSION_CLASSES=File Semaphore
[849]ENV: CONTENT_TYPE=application/x-www-form-urlencoded
[849]ENV: HTTP_ACCEPT_LANGUAGE=en-us
[849]ENV:
HTTP_REFERER=http://cheetah.lund.com/reviews/scott-
zgxvrzcx/quest1.epl
[849]ENV: REMOTE_PORT=3726
[849]ENV: HTTP_USER_AGENT=Mozilla/4.0 (compatible; MSIE
5.01; Windows NT 5.0)
[849]ENV: HTTP_ACCEPT=image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, application/vnd.ms-powerpoint,
application/vnd.ms-excel, application/msword, */*
[849]ENV: HTTP_HOST=cheetah.lund.com
[849]ENV: GATEWAY_INTERFACE=CGI-Perl/1.1
[849]ENV: SCRIPT_NAME=/reviews/scott-zgxvrzcx/quest1.epl
[849]ENV: SERVER_NAME=thinklinux.lund.com
[849]ENV: HTTP_ACCEPT_ENCODING=gzip, deflate
[849]ENV: MOD_PERL=mod_perl/1.26
[849]ENV: EMBPERL_FILESMATCH=\.epl$
[849]ENV: SCRIPT_FILENAME=/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl
[849]ENV: CONTENT_LENGTH=709
[849]ENV: EMBPERL_OPTIONS=8208
[849]ENV: EMBPERL_DEBUG=0x7fffffff
[849]ENV:
PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/l
ocal/sbin:/usr/bin/X11:/usr/X11R6/bin:/root/bin
[849]ENV: SERVER_ADDR=198.88.148.134
[849]ENV: EMBPERL_OBJECT_BASE=base.epl
[849]ENV: SERVER_PROTOCOL=HTTP/1.1
[849]ENV: HTTP_CONNECTION=Keep-Alive
[849]ENV: SERVER_SIGNATURE=<ADDRESS>Apache/1.3.23
Server at thinklinux.lund.com Port 80</ADDRESS>
[849]ENV: PATH_TRANSLATED=/www/htdocs/base.epl
[849]ENV: [EMAIL PROTECTED]
[849]ENV: SERVER_SOFTWARE=Apache/1.3.23 (Unix)
mod_perl/1.26
[849]ENV: REMOTE_ADDR=198.88.148.234
[849]ENV: REMOTE_USER=scott
[849]ENV: EMBPERL_VIRTLOG=/embperl/log
[849]ENV: DOCUMENT_ROOT=/www/htdocs
[849]ENV: REQUEST_URI=/reviews/scott-zgxvrzcx/quest1.epl
[849]ENV: EMBPERL_SESSION_ARGS=Directory=/www/sessions
[849]ENV: REQUEST_METHOD=POST
[849]ENV: AUTH_TYPE=Basic
[849]ENV: SERVER_PORT=80
[849]MEM: Alloc 710 Bytes at 0849c730 Allocated so far
710 Bytes
[849]Formdata... length = 709
[849]MEM: Alloc 713 Bytes at 0849ca00 Allocated so far
1423 Bytes
[849]FORM: txtCompanyName=Lund Performance Solutions
[849]FORM: txtContact=Scott Chapman
[849]FORM: txtAddress1=240 2nd Ave. SW
[849]FORM: txtPhone1=541-812-7600 xt 648
[849]FORM: txtAddress2=
[849]FORM: txtFax1=
[849]FORM: txtCity=Albany
[849]FORM: txtEmail=scott.chapman@ lund.com
[849]FORM: txtState=OR
[849]FORM: txtPostalCode=97321
[849]FORM: txtCountry=USA
[849]FORM: txtComputerName=a
[849]FORM: txtRAMInstalled=a
[849]FORM: txtSystemModel=a
[849]FORM: txtRAMCapacity=a
[849]FORM: txtOSLevel=a
[849]FORM: txtNumDrives=a
[849]FORM: txtNumControllers=a
[849]FORM: txtCDROM_LDEV=a
[849]FORM: txtDriveSpace=a
[849]FORM: txtDriveFreeSpace=a
[849]FORM: txtDiskArrays=a
[849]FORM: txtReasonForStudy=a
[849]FORM: txtSystemUse=a
[849]FORM: txtUserVolSets=a
[849]FORM: txtUpgradePlans=aa
[849]FORM: txtCollectionSpecifics=a
[849]FORM: txtCmdShowqStatus=a
[849]FORM: txtCmdShowme=a
[849]FORM: txtCmdShowvar=a
[849]FORM: txtCmdDiscfree=z
[849]FORM: txtCmdDstatAll=a
[849]FORM: txtSysgen=a
[849]FORM: txtWorkDefs=a
[849]FORM: txtReviewInfo=a
[849]FORM: txtSOSLogVersion=a
[849]FORM: txtSOSExtractVersion=a
[849]FORM: epl_action=check
[849]MEM: Free 713 Bytes at 0849c9fc Allocated so far 710 Bytes
[849]Using APACHE for output...
[849]CACHE: Update CacheItem *file:/www/htdocs/base.epl;
expires_in=0 expires_func=no
expires_filename=/www/htdocs/base.epl cache=no
[849]CACHE: Update CacheItem
*file:/www/htdocs/base.epl*epparse:Embperl; expires_in=0
expires_func=no expires_filename= cache=no
[849]CACHE: Update CacheItem
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[849]CACHE: Update CacheItem *file:/www/htdocs/base.epl;
expires_in=0 expires_func=no
expires_filename=/www/htdocs/base.epl cache=no
[849]CACHE: Update CacheItem
*file:/www/htdocs/base.epl*epparse:Embperl; expires_in=0
expires_func=no expires_filename= cache=no
[849]CACHE: Update CacheItem
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[849]CACHE: Created new CacheItem
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:*eprun:txtC
ompanyName=Lund+Performance+Solutions&txtContact=Scott+Chap
man&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check; expires_in=0 expires_func=no expires_filename= cache=no
[849]CACHE:
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:*eprun:txtC
ompanyName=Lund+Performance+Solutions&txtContact=Scott+Chap
man&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:*eprun:txtC
ompanyName=Lund+Performance+Solutions&txtContact=Scott+Chap
man&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check get from provider
[849]CACHE: *file:/www/htdocs/base.epl stat file
/www/htdocs/base.epl mtime=1014832690 size=108
[849]CACHE: *file:/www/htdocs/base.epl NOT expired
[849]CACHE: *file:/www/htdocs/base.epl*epparse:Embperl NOT
expired
[849]CACHE:
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile: NOT
expired
[849]CACHE:
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile: get from
provider
[849]DOM: DomTree 3 depends on DomTree 1
[849]EVAL< <unknown>
[849]Checkpoint: ok DomTree=3 1 -> 1 SVs=31743
[849]Embperl path search Path: /www/htdocs/reviews/scott-
zgxvrzcx;/www/htdocs/reviews;/www/htdocs Filename: constants.epl
[849]Embperl path search Check: /www/htdocs/reviews/scott-
zgxvrzcx/constants.epl
[849]Embperl path search Check: /www/htdocs/reviews/constants.epl
[849]Embperl path search Check: /www/htdocs/constants.epl
[849]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[849]MEM: Alloc 30 Bytes at 0849ccd0 Allocated so far 740 Bytes
[849]MEM: Load /www/htdocs/constants.epl in
HTML::Embperl::DOC::_3
[849]CACHE: New File for '/www/htdocs/constants.epl' (851fe88) in
'HTML::Embperl::DOC::_3' hash cache-key '--
/www/htdocs/constants.epl'
[849]MEM: Free 30 Bytes at 0849cccc Allocated so far 710 Bytes
[849]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3)
EP 2.x recipe = Embperl
[849]REQ: Package = HTML::Embperl::DOC::_3
[849]CACHE: Created new CacheItem
*file:/www/htdocs/constants.epl; expires_in=0 expires_func=no
expires_filename=/www/htdocs/constants.epl cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/constants.epl*epparse:Embperl; expires_in=0
expires_func=no expires_filename= cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[849]CACHE: Created new CacheItem
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:*eprun:
txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+C
hapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check; expires_in=0 expires_func=no expires_filename= cache=no
[849]CACHE: *file:/www/htdocs/constants.epl stat file
/www/htdocs/constants.epl mtime=1015631087 size=7550
[849]CACHE: *file:/www/htdocs/constants.epl expired because file
/www/htdocs/constants.epl changed
[849]CACHE: *file:/www/htdocs/constants.epl*epparse:Embperl
expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:
expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:*eprun:
txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+C
hapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:*eprun:
txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+C
hapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check get from provider
[849]CACHE:
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile: get
from provider
[849]CACHE: *file:/www/htdocs/constants.epl*epparse:Embperl get
from provider
[849]Reading /www/htdocs/constants.epl as input using PerlIO (7550
Bytes)...
[849]PARSE: Start parsing /www/htdocs/constants.epl DomTree = 4
[849]PARSE: AddNode: +00 Element parent=0 node=1 type=1
text=att (#71)
[849]PARSE: AddNode: +00 Element parent=0 node=2 type=11
text=DocumentFraq (#5)
[849]PARSE: AddNode: +00 Attribut parent=2 node=3 type=2
text=<domtree> (#3)
[849]PARSE: AddNode: +00 AttributValue parent=3 node=3 type=34
text=Document (#4)
[849]PARSE: AddNode: +00 Element parent=2 node=4 type=4 text=
(#1)
[849]PARSE: AddNode: +00 Element parent=2 node=5 type=1 text=[-
(#10) [-
[849]PARSE: AddNode: +01 Element parent=5 node=6 type=4
text=$req = shift;
$req->{webmaster} = 'Scott Chapman';
$req->{company_phone} = '(541) 812-7600';
$req->{review_from_email} = '[EMAIL PROTECTED]';
$req->{arpoc_email} = '[EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]';
$req->{email_server} = 'river.lund.com';
$req->{website_database} = 'DBI:Sprite:/www/db/Annual_Review';
$req->{website_event_table} = 'ar_events';
$req->{website_sequence} = 'ar_num';
$req->{db_user} = 'webuser';
$req->{db_pass} = 'password';
$req->{log_event} = sub
{
use Date::Format;
my ($review_num, $event, $info) = @_;
# Figure out who the user is logged in as.
if (!defined $req_rec -> connection -> user) {
if (defined $ENV{REMOTE_USER}) {$user =
$ENV{REMOTE_USER};}
elsif (defined $ENV{REMOTE_ADDR}) {$user =
$ENV{REMOTE_ADDR};}
else {$user = 'nobody';}
} else {
$user = $req_rec -> connection -> user;
}
my ($timestamp) = time2str('%Y-%m-%d %H:%M:%S',time());
$req->{dbh}->do("INSERT INTO ar_events VALUES
($review_num,$timestamp,'$event','$user','$info')") or die "Unable to
log event: $!";
};
# to put in a debug statement: &{$req->{DBUG}} (EXPR);
$req->{DBUG} = sub
{
my ($dbug_info) = $_[0];
open (dbug_fh, ">>/tmp/debug.txt");
print dbug_fh "$dbug_info\n";
close (dbug_fh) or die "Can't close $!";
};
$req->{check_hash_for_blanks} = sub
{
my (%hash) = @_;
while(($key, $value) = each(%hash)) {
if ("$value" eq "") {
return ('Please fill in all fields.');
}
}
return ('');
};
$req->{check_email_addr} = sub
{
my ($email_address) = @_;
# Some things for avoiding backslashitis later on.
my ($esc) = '\\\\'; my ($Period) = '\.';
my ($space) = '\040'; my ($tab) = '\t';
my ($OpenBR) = '\['; my ($CloseBR) = '\]';
my ($OpenParen) = '\('; my ($CloseParen) = '\)';
my ($NonASCII) = '\x80-\xff'; my ($ctrl) = '\000-\037';
my ($CRlist) = '\n\015'; # note: this should really be only \015.
# Items 19, 20, 21
my ($qtext) = qq/[^$esc$NonASCII$CRlist\"]/; # for within "..."
my ($dtext) = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/; #
for within [...]
my ($quoted_pair) = qq< $esc [^$NonASCII] >; # an escaped
character
########################################################
#####
# Items 22 and 23, comment.
# Impossible to do properly with a regex, I make do by allowing at
most one level of nesting.
my ($ctext) = qq< [^$esc$NonASCII$CRlist()] >;
# $Cnested matches one non-nested comment.
# It is unrolled, with normal of $ctext, special of $quoted_pair.
$Cnested = qq<
$OpenParen # (
$ctext* # normal*
(?: $quoted_pair $ctext* )* # (special normal*)*
$CloseParen # )
>;
# $comment allows one level of nested parentheses
# It is unrolled, with normal of $ctext, special of
($quoted_pair|$Cnested)
$comment = qq<
$OpenParen # (
$ctext* # normal*
(?: # (
(?: $quoted_pair | $Cnested ) # special
$ctext* # normal*
)* # )*
$CloseParen # )
>;
###################################################
# $X is optional whitespace/comments.
$X = qq<
[$space$tab]* # Nab whitespace.
(?: $comment [$space$tab]* )* # If comment found, allow more
spaces.
>;
# Item 10: atom
$atom_char =
qq/[^($space)<>\@,;:\".$esc$OpenBR$CloseBR$ctrl$NonASCII]/;
$atom = qq<
$atom_char+ # some number of atom characters...
(?!$atom_char) # ..not followed by something that could be part of an
atom
>;
# Item 11: doublequoted string, unrolled.
$quoted_str = qq<
\" # "
$qtext * # normal
(?: $quoted_pair $qtext * )* # ( special normal* )*
\" # "
>;
# Item 7: word is an atom or quoted string
$word = qq<
(?:
$atom # Atom
| # or
$quoted_str # Quoted string
)
>;
# Item 12: domain-ref is just an atom
$domain_ref = $atom;
# Item 13: domain-literal is like a quoted string, but [...] instead of "..."
$domain_lit = qq<
$OpenBR # [
(?: $dtext | $quoted_pair )* # stuff
$CloseBR # ]
>;
# Item 9: sub-domain is a domain-ref or domain-literal
$sub_domain = qq<
(?:
$domain_ref
|
$domain_lit
)
$X # optional trailing comments
>;
# Item 6: domain is a list of subdomains separated by dots.
$domain = qq<
$sub_domain
(?:
$Period $X $sub_domain
)*
>;
# Item 8: a route. A bunch of "@ $domain" separated by commas,
followed by a colon.
$route = qq<
\@ $X $domain
(?: , $X \@ $X $domain )* # additional domains
:
$X # optional trailing comments
>;
# Item 6: local-part is a bunch of $word separated by periods
$local_part = qq<
$word $X
(?:
$Period $X $word $X # additional words
)*
>;
# Item 2: addr-spec is local@domain
$addr_spec = qq<
$local_part \@ $X $domain
>;
# Item 4: route-addr is <route? addr-spec>
$route_addr = qq[
< $X # <
(?: $route )? # optional route
$addr_spec # address spec
> # >
];
# Item 3: phrase........
$phrase_ctrl = '\000-\010\012-\037'; # like ctrl, but without tab
# Like atom-char, but without listing space, and uses phrase_ctrl.
# Since the class is negated, this matches the same as atom-char plus
space and tab
$phrase_char =
qq/[^()<>\@,;:\".$esc$OpenBR$CloseBR$NonASCII$phrase_ctrl]/;
# We've worked it so that $word, $comment, and $quoted_str to not
consume trailing $X
# because we take care of it manually.
$phrase = qq<
$word # leading word
$phrase_char * # "normal" atoms and/or spaces
(?:
(?: $comment | $quoted_str ) # "special" comment or quoted string
$phrase_char * # more "normal"
)*
>;
## Item #1: mailbox is an addr_spec or a phrase/route_addr
$mailbox = qq<
$X # optional leading comment
(?:
$addr_spec # address
| # or
$phrase $route_addr # name and address
)
>;
return $email_address =~ m/^$mailbox$/xo;
}; # End sub check_email_addr
(#314) [-
[849]PARSE: AddNode: +00 Element parent=2 node=7 type=4 text=
(#74)
[849]PARSE: AddNode: +00 Element parent=2 node=8 type=4 text=
(#1)
[849]PERF: Parse Start Time: 0 ms
[849]PERF: Parse End Time: 0 ms
[849]PERF: Parse Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 81308 Bytes numNodes = 670
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 315
numReplace = 1
[849]EPCOMP: Start compiling /www/htdocs/constants.epl DomTree
= 4
[849]EPCOMP: #2 L0 -------> parent=0 node=2 type=11
text=DocumentFraq (#5,compile)
[849]EPCOMP: #2 L0 CompileTimeCode:
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA
;
*_ep_rpurl=\&XML::Embperl::DOM::Node::iReplaceChildWithUrlD
ATA;
*_ep_cp=\&XML::Embperl::DOM::Tree::iCheckpoint;
*_ep_dcp=\&XML::Embperl::DOM::Tree::iDiscardAfterCheckpoint;
*_ep_opt=\&HTML::Embperl::Cmd::Option;
*_ep_hid=\&HTML::Embperl::Cmd::Hidden;
*_ep_ac=\&XML::Embperl::DOM::Node::iAppendChild;
*_ep_sa=\&XML::Embperl::DOM::Element::iSetAttribut;
[849]EPCOMP: #2 L0 Code:
# any initialisation could be put here
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #4 L0 -------> parent=2 node=4 type=4 text=
(#1,compile)
[849]EPCOMP: #4 L0 Checkpoint
[849]EPCOMP: #5 L1 -------> parent=2 node=5 type=1 text=[-
(#10,compile) removenode=3
[849]EPCOMP: #5 L1 Code: $_ep_node=4;{
$req = shift;
$req->{webmaster} = 'Scott Chapman';
$req->{company_phone} = '(541) 812-7600';
$req->{review_from_email} = '[EMAIL PROTECTED]';
$req->{arpoc_email} = '[EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]';
$req->{email_server} = 'river.lund.com';
$req->{website_database} = 'DBI:Sprite:/www/db/Annual_Review';
$req->{website_event_table} = 'ar_events';
$req->{website_sequence} = 'ar_num';
$req->{db_user} = 'webuser';
$req->{db_pass} = 'password';
$req->{log_event} = sub
{
use Date::Format;
my ($review_num, $event, $info) = @_;
# Figure out who the user is logged in as.
if (!defined $req_rec -> connection -> user) {
if (defined $ENV{REMOTE_USER}) {$user =
$ENV{REMOTE_USER};}
elsif (defined $ENV{REMOTE_ADDR}) {$user =
$ENV{REMOTE_ADDR};}
else {$user = 'nobody';}
} else {
$user = $req_rec -> connection -> user;
}
my ($timestamp) = time2str('%Y-%m-%d %H:%M:%S',time());
$req->{dbh}->do("INSERT INTO ar_events VALUES
($review_num,$timestamp,'$event','$user','$info')") or die "Unable to
log event: $!";
};
# to put in a debug statement: &{$req->{DBUG}} (EXPR);
$req->{DBUG} = sub
{
my ($dbug_info) = $_[0];
open (dbug_fh, ">>/tmp/debug.txt");
print dbug_fh "$dbug_info\n";
close (dbug_fh) or die "Can't close $!";
};
$req->{check_hash_for_blanks} = sub
{
my (%hash) = @_;
while(($key, $value) = each(%hash)) {
if ("$value" eq "") {
return ('Please fill in all fields.');
}
}
return ('');
};
$req->{check_email_addr} = sub
{
my ($email_address) = @_;
# Some things for avoiding backslashitis later on.
my ($esc) = '\\\\'; my ($Period) = '\.';
my ($space) = '\040'; my ($tab) = '\t';
my ($OpenBR) = '\['; my ($CloseBR) = '\]';
my ($OpenParen) = '\('; my ($CloseParen) = '\)';
my ($NonASCII) = '\x80-\xff'; my ($ctrl) = '\000-\037';
my ($CRlist) = '\n\015'; # note: this should really be only \015.
# Items 19, 20, 21
my ($qtext) = qq/[^$esc$NonASCII$CRlist\"]/; # for within "..."
my ($dtext) = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/; #
for within [...]
my ($quoted_pair) = qq< $esc [^$NonASCII] >; # an escaped
character
########################################################
#####
# Items 22 and 23, comment.
# Impossible to do properly with a regex, I make do by allowing at
most one level of nesting.
my ($ctext) = qq< [^$esc$NonASCII$CRlist()] >;
# $Cnested matches one non-nested comment.
# It is unrolled, with normal of $ctext, special of $quoted_pair.
$Cnested = qq<
$OpenParen # (
$ctext* # normal*
(?: $quoted_pair $ctext* )* # (special normal*)*
$CloseParen # )
>;
# $comment allows one level of nested parentheses
# It is unrolled, with normal of $ctext, special of
($quoted_pair|$Cnested)
$comment = qq<
$OpenParen # (
$ctext* # normal*
(?: # (
(?: $quoted_pair | $Cnested ) # special
$ctext* # normal*
)* # )*
$CloseParen # )
>;
###################################################
# $X is optional whitespace/comments.
$X = qq<
[$space$tab]* # Nab whitespace.
(?: $comment [$space$tab]* )* # If comment found, allow more
spaces.
>;
# Item 10: atom
$atom_char =
qq/[^($space)<>\@,;:\".$esc$OpenBR$CloseBR$ctrl$NonASCII]/;
$atom = qq<
$atom_char+ # some number of atom characters...
(?!$atom_char) # ..not followed by something that could be part of an
atom
>;
# Item 11: doublequoted string, unrolled.
$quoted_str = qq<
\" # "
$qtext * # normal
(?: $quoted_pair $qtext * )* # ( special normal* )*
\" # "
>;
# Item 7: word is an atom or quoted string
$word = qq<
(?:
$atom # Atom
| # or
$quoted_str # Quoted string
)
>;
# Item 12: domain-ref is just an atom
$domain_ref = $atom;
# Item 13: domain-literal is like a quoted string, but [...] instead of "..."
$domain_lit = qq<
$OpenBR # [
(?: $dtext | $quoted_pair )* # stuff
$CloseBR # ]
>;
# Item 9: sub-domain is a domain-ref or domain-literal
$sub_domain = qq<
(?:
$domain_ref
|
$domain_lit
)
$X # optional trailing comments
>;
# Item 6: domain is a list of subdomains separated by dots.
$domain = qq<
$sub_domain
(?:
$Period $X $sub_domain
)*
>;
# Item 8: a route. A bunch of "@ $domain" separated by commas,
followed by a colon.
$route = qq<
\@ $X $domain
(?: , $X \@ $X $domain )* # additional domains
:
$X # optional trailing comments
>;
# Item 6: local-part is a bunch of $word separated by periods
$local_part = qq<
$word $X
(?:
$Period $X $word $X # additional words
)*
>;
# Item 2: addr-spec is local@domain
$addr_spec = qq<
$local_part \@ $X $domain
>;
# Item 4: route-addr is <route? addr-spec>
$route_addr = qq[
< $X # <
(?: $route )? # optional route
$addr_spec # address spec
> # >
];
# Item 3: phrase........
$phrase_ctrl = '\000-\010\012-\037'; # like ctrl, but without tab
# Like atom-char, but without listing space, and uses phrase_ctrl.
# Since the class is negated, this matches the same as atom-char plus
space and tab
$phrase_char =
qq/[^()<>\@,;:\".$esc$OpenBR$CloseBR$NonASCII$phrase_ctrl]/;
# We've worked it so that $word, $comment, and $quoted_str to not
consume trailing $X
# because we take care of it manually.
$phrase = qq<
$word # leading word
$phrase_char * # "normal" atoms and/or spaces
(?:
(?: $comment | $quoted_str ) # "special" comment or quoted string
$phrase_char * # more "normal"
)*
>;
## Item #1: mailbox is an addr_spec or a phrase/route_addr
$mailbox = qq<
$X # optional leading comment
(?:
$addr_spec # address
| # or
$phrase $route_addr # name and address
)
>;
return $email_address =~ m/^$mailbox$/xo;
}; # End sub check_email_addr
;}
[849]EPCOMP: #5 L1 Set Checkpoint pending
[849]EPCOMP: #8 L0 -------> parent=2 node=8 type=4 text=
(#1,compile)
[849]EPCOMP: #8 L0 Checkpoint
[849]EPCOMP: #2 L0 CodeEnd: # Include here any cleanup code
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #-1 Checkpoint
[849]DEF: Line 1:
# any initialisation could be put here
_ep_cp(1) ;
#line 1 "/www/htdocs/constants.epl"
$_ep_node=4;{
$req = shift;
$req->{webmaster} = 'Scott Chapman';
$req->{company_phone} = '(541) 812-7600';
$req->{review_from_email} = '[EMAIL PROTECTED]';
$req->{arpoc_email} = '[EMAIL PROTECTED], [EMAIL PROTECTED],
[EMAIL PROTECTED]';
$req->{email_server} = 'river.lund.com';
$req->{website_database} = 'DBI:Sprite:/www/db/Annual_Review';
$req->{website_event_table} = 'ar_events';
$req->{website_sequence} = 'ar_num';
$req->{db_user} = 'webuser';
$req->{db_pass} = 'password';
$req->{log_event} = sub
{
use Date::Format;
my ($review_num, $event, $info) = @_;
# Figure out who the user is logged in as.
if (!defined $req_rec -> connection -> user) {
if (defined $ENV{REMOTE_USER}) {$user =
$ENV{REMOTE_USER};}
elsif (defined $ENV{REMOTE_ADDR}) {$user =
$ENV{REMOTE_ADDR};}
else {$user = 'nobody';}
} else {
$user = $req_rec -> connection -> user;
}
my ($timestamp) = time2str('%Y-%m-%d %H:%M:%S',time());
$req->{dbh}->do("INSERT INTO ar_events VALUES
($review_num,$timestamp,'$event','$user','$info')") or die "Unable to
log event: $!";
};
# to put in a debug statement: &{$req->{DBUG}} (EXPR);
$req->{DBUG} = sub
{
my ($dbug_info) = $_[0];
open (dbug_fh, ">>/tmp/debug.txt");
print dbug_fh "$dbug_info\n";
close (dbug_fh) or die "Can't close $!";
};
$req->{check_hash_for_blanks} = sub
{
my (%hash) = @_;
while(($key, $value) = each(%hash)) {
if ("$value" eq "") {
return ('Please fill in all fields.');
}
}
return ('');
};
$req->{check_email_addr} = sub
{
my ($email_address) = @_;
# Some things for avoiding backslashitis later on.
my ($esc) = '\\\\'; my ($Period) = '\.';
my ($space) = '\040'; my ($tab) = '\t';
my ($OpenBR) = '\['; my ($CloseBR) = '\]';
my ($OpenParen) = '\('; my ($CloseParen) = '\)';
my ($NonASCII) = '\x80-\xff'; my ($ctrl) = '\000-\037';
my ($CRlist) = '\n\015'; # note: this should really be only \015.
# Items 19, 20, 21
my ($qtext) = qq/[^$esc$NonASCII$CRlist\"]/; # for within "..."
my ($dtext) = qq/[^$esc$NonASCII$CRlist$OpenBR$CloseBR]/; #
for within [...]
my ($quoted_pair) = qq< $esc [^$NonASCII] >; # an escaped
character
########################################################
#####
# Items 22 and 23, comment.
# Impossible to do properly with a regex, I make do by allowing at
most one level of nesting.
my ($ctext) = qq< [^$esc$NonASCII$CRlist()] >;
# $Cnested matches one non-nested comment.
# It is unrolled, with normal of $ctext, special of $quoted_pair.
$Cnested = qq<
$OpenParen # (
$ctext* # normal*
(?: $quoted_pair $ctext* )* # (special normal*)*
$CloseParen # )
>;
# $comment allows one level of nested parentheses
# It is unrolled, with normal of $ctext, special of
($quoted_pair|$Cnested)
$comment = qq<
$OpenParen # (
$ctext* # normal*
(?: # (
(?: $quoted_pair | $Cnested ) # special
$ctext* # normal*
)* # )*
$CloseParen # )
>;
###################################################
# $X is optional whitespace/comments.
$X = qq<
[$space$tab]* # Nab whitespace.
(?: $comment [$space$tab]* )* # If comment found, allow more
spaces.
>;
# Item 10: atom
$atom_char =
qq/[^($space)<>\@,;:\".$esc$OpenBR$CloseBR$ctrl$NonASCII]/;
$atom = qq<
$atom_char+ # some number of atom characters...
(?!$atom_char) # ..not followed by something that could be part of an
atom
>;
# Item 11: doublequoted string, unrolled.
$quoted_str = qq<
\" # "
$qtext * # normal
(?: $quoted_pair $qtext * )* # ( special normal* )*
\" # "
>;
# Item 7: word is an atom or quoted string
$word = qq<
(?:
$atom # Atom
| # or
$quoted_str # Quoted string
)
>;
# Item 12: domain-ref is just an atom
$domain_ref = $atom;
# Item 13: domain-literal is like a quoted string, but [...] instead of "..."
$domain_lit = qq<
$OpenBR # [
(?: $dtext | $quoted_pair )* # stuff
$CloseBR # ]
>;
# Item 9: sub-domain is a domain-ref or domain-literal
$sub_domain = qq<
(?:
$domain_ref
|
$domain_lit
)
$X # optional trailing comments
>;
# Item 6: domain is a list of subdomains separated by dots.
$domain = qq<
$sub_domain
(?:
$Period $X $sub_domain
)*
>;
# Item 8: a route. A bunch of "@ $domain" separated by commas,
followed by a colon.
$route = qq<
\@ $X $domain
(?: , $X \@ $X $domain )* # additional domains
:
$X # optional trailing comments
>;
# Item 6: local-part is a bunch of $word separated by periods
$local_part = qq<
$word $X
(?:
$Period $X $word $X # additional words
)*
>;
# Item 2: addr-spec is local@domain
$addr_spec = qq<
$local_part \@ $X $domain
>;
# Item 4: route-addr is <route? addr-spec>
$route_addr = qq[
< $X # <
(?: $route )? # optional route
$addr_spec # address spec
> # >
];
# Item 3: phrase........
$phrase_ctrl = '\000-\010\012-\037'; # like ctrl, but without tab
# Like atom-char, but without listing space, and uses phrase_ctrl.
# Since the class is negated, this matches the same as atom-char plus
space and tab
$phrase_char =
qq/[^()<>\@,;:\".$esc$OpenBR$CloseBR$NonASCII$phrase_ctrl]/;
# We've worked it so that $word, $comment, and $quoted_str to not
consume trailing $X
# because we take care of it manually.
$phrase = qq<
$word # leading word
$phrase_char * # "normal" atoms and/or spaces
(?:
(?: $comment | $quoted_str ) # "special" comment or quoted string
$phrase_char * # more "normal"
)*
>;
## Item #1: mailbox is an addr_spec or a phrase/route_addr
$mailbox = qq<
$X # optional leading comment
(?:
$addr_spec # address
| # or
$phrase $route_addr # name and address
)
>;
return $email_address =~ m/^$mailbox$/xo;
}; # End sub check_email_addr
;}
_ep_cp(2) ;
# Include here any cleanup code
_ep_cp(3) ;
[849]SVs: 32736
[849]PERF: Compile Start Time: 0 ms
[849]PERF: Compile End Time: 0 ms
[849]PERF: After Compile Exec End Time: 0 ms
[849]PERF: Perl Compile End Time: 10 ms
[849]PERF: Compile Time: 10 ms
[849]PERF: DOMSTAT: MemUsage = 82348 Bytes numNodes = 668
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 315
numReplace = 1
[849]DOM: DomTree 5 depends on DomTree 4
[849]EVAL< <unknown>
[849]Checkpoint: ok DomTree=5 1 -> 1 SVs=32739
[849]Checkpoint: ok DomTree=5 2 -> 2 SVs=32753
[849]Checkpoint: ok DomTree=5 3 -> 3 SVs=32753
[849]SVs: 32754
[849]EVAL> <undefined>
[849]PERF: Run Start Time: 10 ms
[849]PERF: Run End Time: 10 ms
[849]PERF: Run Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 84604 Bytes numNodes = 669
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 315
numReplace = 1
[849]PARSE: AddNode: +00 Attribut parent=18 node=19 type=2
text=<domtree> (#3)
[849]PARSE: AddNode: +00 AttributValue parent=19 node=19
type=34 text=DocumentFraq (#5)
[849]DOM: DomTree 3 depends on DomTree 5
[849]CACHE: Free content for
*file:/www/htdocs/constants.epl*epparse:Embperl*epcompile:*eprun:
txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+C
hapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check
[849]CACHE: Free content for
*file:/www/htdocs/constants.epl*epparse:Embperl
[849]CACHE: Free content for *file:/www/htdocs/constants.epl
[849]PERF: input = /www/htdocs/constants.epl
[849]PERF: Time: 10 ms Evals: 0 No Evals to cache
[849]Sub-Request finished. Thu Mar 14 09:26:15 2002
. Entry-SVs: 31986 -OBJs: 27 Exit-SVs: 32718 -OBJs: 29
[849]PERF: DOMSTAT: MemUsage = 86580 Bytes numNodes = 672
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 315
numReplace = 1
[849]Embperl path search Path: /www/htdocs/reviews/scott-
zgxvrzcx;/www/htdocs/reviews;/www/htdocs Filename: init.epl
[849]Embperl path search Check: /www/htdocs/reviews/scott-
zgxvrzcx/init.epl
[849]Embperl path search Check: /www/htdocs/reviews/init.epl
[849]Embperl path search Check: /www/htdocs/init.epl
[849]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[849]MEM: Alloc 25 Bytes at 0849ccf8 Allocated so far 735 Bytes
[849]MEM: Load /www/htdocs/init.epl in HTML::Embperl::DOC::_4
[849]CACHE: New File for '/www/htdocs/init.epl' (854ab58) in
'HTML::Embperl::DOC::_4' hash cache-key '--/www/htdocs/init.epl'
[849]MEM: Free 25 Bytes at 0849ccf4 Allocated so far 710 Bytes
[849]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3)
EP 2.x recipe = Embperl
[849]REQ: Package = HTML::Embperl::DOC::_4
[849]CACHE: Created new CacheItem *file:/www/htdocs/init.epl;
expires_in=0 expires_func=no
expires_filename=/www/htdocs/init.epl cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/init.epl*epparse:Embperl; expires_in=0
expires_func=no expires_filename= cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[849]CACHE: Created new CacheItem
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile:*eprun:txtCo
mpanyName=Lund+Performance+Solutions&txtContact=Scott+Chapm
an&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check; expires_in=0 expires_func=no expires_filename= cache=no
[849]CACHE: *file:/www/htdocs/init.epl stat file
/www/htdocs/init.epl mtime=1014832699 size=707
[849]CACHE: *file:/www/htdocs/init.epl expired because file
/www/htdocs/init.epl changed
[849]CACHE: *file:/www/htdocs/init.epl*epparse:Embperl expired
because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile: expired
because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile:*eprun:txtCo
mpanyName=Lund+Performance+Solutions&txtContact=Scott+Chapm
an&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile:*eprun:txtCo
mpanyName=Lund+Performance+Solutions&txtContact=Scott+Chapm
an&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check get from provider
[849]CACHE:
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile: get from
provider
[849]CACHE: *file:/www/htdocs/init.epl*epparse:Embperl get from
provider
[849]Reading /www/htdocs/init.epl as input using PerlIO (707
Bytes)...
[849]PARSE: Start parsing /www/htdocs/init.epl DomTree = 6
[849]PARSE: AddNode: +00 Element parent=0 node=1 type=1
text=att (#71)
[849]PARSE: AddNode: +00 Element parent=0 node=2 type=11
text=DocumentFraq (#5)
[849]PARSE: AddNode: +00 Attribut parent=2 node=3 type=2
text=<domtree> (#3)
[849]PARSE: AddNode: +00 AttributValue parent=3 node=3 type=34
text=<orderinde (#6)
[849]PARSE: AddNode: +00 Element parent=2 node=4 type=4 text=
(#1)
[849]PARSE: AddNode: +00 Element parent=2 node=5 type=1 text=[-
(#10) [-
[849]PARSE: AddNode: +01 Element parent=5 node=6 type=4
text=$req = shift;
# Set up database connection
use DBI;
$req->{dbh} = DBI->connect ($req->{website_database},$req-
>{db_user},$req->{db_pass});
# could not get apache::file to create a new file. At best it seems to
want to only open existing ones?
# # Set up debug file
# use Apache::File ();
# $req->{DBUGF} = Apache::File -> new ('>>/tmp/debug.txt') || die
("Can't open debug file for writing: $!");
# print $req->{DBUGF} 'test';
# $req->{DBUGF} -> close or die "Can't close $filename $!";
# my $fh = Apache::File->new('/tmp/test.txt') or die "Can't open
/tmp/test.txt $!";
# print $fh 'test';
# $fh->close or die "Can't close /tmp/test.txt $!";
(#316) [-
[849]PARSE: AddNode: +00 Element parent=2 node=7 type=4 text=
(#74)
[849]PARSE: AddNode: +00 Element parent=2 node=8 type=4 text=
(#1)
[849]PERF: Parse Start Time: 10 ms
[849]PERF: Parse End Time: 10 ms
[849]PERF: Parse Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 88788 Bytes numNodes = 679
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 317
numReplace = 1
[849]EPCOMP: Start compiling /www/htdocs/init.epl DomTree = 6
[849]EPCOMP: #2 L0 -------> parent=0 node=2 type=11
text=DocumentFraq (#5,compile)
[849]EPCOMP: #2 L0 CompileTimeCode:
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA
;
*_ep_rpurl=\&XML::Embperl::DOM::Node::iReplaceChildWithUrlD
ATA;
*_ep_cp=\&XML::Embperl::DOM::Tree::iCheckpoint;
*_ep_dcp=\&XML::Embperl::DOM::Tree::iDiscardAfterCheckpoint;
*_ep_opt=\&HTML::Embperl::Cmd::Option;
*_ep_hid=\&HTML::Embperl::Cmd::Hidden;
*_ep_ac=\&XML::Embperl::DOM::Node::iAppendChild;
*_ep_sa=\&XML::Embperl::DOM::Element::iSetAttribut;
[849]EPCOMP: #2 L0 Code:
# any initialisation could be put here
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #4 L0 -------> parent=2 node=4 type=4 text=
(#1,compile)
[849]EPCOMP: #4 L0 Checkpoint
[849]EPCOMP: #5 L1 -------> parent=2 node=5 type=1 text=[-
(#10,compile) removenode=3
[849]EPCOMP: #5 L1 Code: $_ep_node=4;{
$req = shift;
# Set up database connection
use DBI;
$req->{dbh} = DBI->connect ($req->{website_database},$req-
>{db_user},$req->{db_pass});
# could not get apache::file to create a new file. At best it seems to
want to only open existing ones?
# # Set up debug file
# use Apache::File ();
# $req->{DBUGF} = Apache::File -> new ('>>/tmp/debug.txt') || die
("Can't open debug file for writing: $!");
# print $req->{DBUGF} 'test';
# $req->{DBUGF} -> close or die "Can't close $filename $!";
# my $fh = Apache::File->new('/tmp/test.txt') or die "Can't open
/tmp/test.txt $!";
# print $fh 'test';
# $fh->close or die "Can't close /tmp/test.txt $!";
;}
[849]EPCOMP: #5 L1 Set Checkpoint pending
[849]EPCOMP: #8 L0 -------> parent=2 node=8 type=4 text=
(#1,compile)
[849]EPCOMP: #8 L0 Checkpoint
[849]EPCOMP: #2 L0 CodeEnd: # Include here any cleanup code
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #-1 Checkpoint
[849]DEF: Line 1:
# any initialisation could be put here
_ep_cp(1) ;
#line 1 "/www/htdocs/init.epl"
$_ep_node=4;{
$req = shift;
# Set up database connection
use DBI;
$req->{dbh} = DBI->connect ($req->{website_database},$req-
>{db_user},$req->{db_pass});
# could not get apache::file to create a new file. At best it seems to
want to only open existing ones?
# # Set up debug file
# use Apache::File ();
# $req->{DBUGF} = Apache::File -> new ('>>/tmp/debug.txt') || die
("Can't open debug file for writing: $!");
# print $req->{DBUGF} 'test';
# $req->{DBUGF} -> close or die "Can't close $filename $!";
# my $fh = Apache::File->new('/tmp/test.txt') or die "Can't open
/tmp/test.txt $!";
# print $fh 'test';
# $fh->close or die "Can't close /tmp/test.txt $!";
;}
_ep_cp(2) ;
# Include here any cleanup code
_ep_cp(3) ;
[849]SVs: 32978
[849]PERF: Compile Start Time: 10 ms
[849]PERF: Compile End Time: 10 ms
[849]PERF: After Compile Exec End Time: 10 ms
[849]PERF: Perl Compile End Time: 10 ms
[849]PERF: Compile Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 89828 Bytes numNodes = 677
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 317
numReplace = 1
[849]DOM: DomTree 7 depends on DomTree 6
[849]EVAL< <unknown>
[849]Checkpoint: ok DomTree=7 1 -> 1 SVs=32981
[849]Checkpoint: ok DomTree=7 2 -> 2 SVs=40425
[849]Checkpoint: ok DomTree=7 3 -> 3 SVs=40425
[849]SVs: 40426
[849]EVAL> <undefined>
[849]PERF: Run Start Time: 10 ms
[849]PERF: Run End Time: 230 ms
[849]PERF: Run Time: 220 ms
[849]PERF: DOMSTAT: MemUsage = 92084 Bytes numNodes = 678
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 317
numReplace = 1
[849]PARSE: AddNode: +00 Attribut parent=20 node=21 type=2
text=<domtree> (#3)
[849]PARSE: AddNode: +00 AttributValue parent=21 node=21
type=34 text=[# (#7)
[849]DOM: DomTree 3 depends on DomTree 7
[849]CACHE: Free content for
*file:/www/htdocs/init.epl*epparse:Embperl*epcompile:*eprun:txtCo
mpanyName=Lund+Performance+Solutions&txtContact=Scott+Chapm
an&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check
[849]CACHE: Free content for
*file:/www/htdocs/init.epl*epparse:Embperl
[849]CACHE: Free content for *file:/www/htdocs/init.epl
[849]PERF: input = /www/htdocs/init.epl
[849]PERF: Time: 230 ms Evals: 0 No Evals to cache
[849]Sub-Request finished. Thu Mar 14 09:26:15 2002
. Entry-SVs: 32734 -OBJs: 30 Exit-SVs: 40390 -OBJs: 37
[849]PERF: DOMSTAT: MemUsage = 92004 Bytes numNodes = 679
numLevelLookup = 0 numLevelLookupItem = 0 numStr = 317
numReplace = 1
[849]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[849]MEM: Alloc 50 Bytes at 0849cd18 Allocated so far 760 Bytes
[849]CACHE: Found File for '/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl' (84a1af8) in 'HTML::Embperl::DOC::_2' hash
cache-key '--/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl'
[849]MEM: Free 50 Bytes at 0849cd14 Allocated so far 710 Bytes
[849]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3)
EP 2.x recipe = Embperl
[849]REQ: Package = HTML::Embperl::DOC::_2
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl; expires_in=0 expires_func=no
expires_filename=/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
cache=no
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl; expires_in=0 expires_func=no
expires_filename= cache=no
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:; expires_in=0
expires_func=no expires_filename= cache=yes
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl; expires_in=0 expires_func=no
expires_filename=/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
cache=no
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl; expires_in=0 expires_func=no
expires_filename= cache=no
[849]CACHE: Update CacheItem *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:; expires_in=0
expires_func=no expires_filename= cache=yes
[849]CACHE: Created new CacheItem
*file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:*eprun:txtCompany
Name=Lund+Performance+Solutions&txtContact=Scott+Chapman&txt
Address1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check; expires_in=0 expires_func=no expires_filename= cache=no
[849]CACHE: *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:*eprun:txtCompany
Name=Lund+Performance+Solutions&txtContact=Scott+Chapman&txt
Address1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check expired because dependencies is expired or newer
[849]CACHE: *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:*eprun:txtCompany
Name=Lund+Performance+Solutions&txtContact=Scott+Chapman&txt
Address1=240+2nd+Ave.+SW&txtPhone1=541-812-
7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=sc
ott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCou
ntry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemMode
l=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumCo
ntrollers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSp
ace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txt
UserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtC
mdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDi
scfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtRevie
wInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action
=check get from provider
[849]CACHE: *file:/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
stat file /www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
mtime=1016126398 size=31623
[849]CACHE: *file:/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
NOT expired
[849]CACHE: *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl NOT expired
[849]CACHE: *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile: NOT expired
[849]CACHE: *file:/www/htdocs/reviews/scott-
zgxvrzcx/quest1.epl*epparse:Embperl*epcompile: get from provider
[849]DOM: DomTree 8 depends on DomTree 2
[849]EVAL< <unknown>
[849]Checkpoint: ok DomTree=8 1 -> 1 SVs=40428
[849]Checkpoint: jump forward DomTree=8 Index=2 Node=4(4) Line=0 -> Index=3
Node=20(20) Line=31 SVs=40432
[849]Checkpoint: ok DomTree=8 4 -> 4 SVs=40432
[849]SVs: 41737
[849]EVAL> <undefined>
[849]ERR: 24: Error in Perl code: Can't store CODE items at
blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/_store.al) line
199, at /www/htdocs/reviews/scott-zgxvrzcx/quest1.epl line 81
[849]PERF: Run Start Time: 0 ms
[849]PERF: Run End Time: 50 ms
[849]PERF: Run Time: 50 ms
[849]PERF: DOMSTAT: MemUsage = 101640 Bytes numNodes = 681 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 317 numReplace = 1
[849]CACHE: Free content for
*file:/www/htdocs/reviews/scott-zgxvrzcx/quest1.epl*epparse:Embperl*epcompile:*eprun:txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+Chapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=scott.chapman@+lund.com&txtState=OR&txtPosta
lCode=97321&txtCountry=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemModel=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumControllers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSpace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txtUserVolSets=a&txtUpgradePlans=aa&txtCollectionSpe
cifics=a&txtCmdShowqStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDiscfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtReviewInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action=check
[849]Delete: DomTree = 8 SVs=41715
[849]PERF: input = /www/htdocs/reviews/scott-zgxvrzcx/quest1.epl
[849]PERF: Time: 60 ms Evals: 0 No Evals to cache
[849]Sub-Request finished. Thu Mar 14 09:26:15 2002
. Entry-SVs: 40396 -OBJs: 38 Exit-SVs: 41713 -OBJs: 41
[849]PERF: DOMSTAT: MemUsage = 92052 Bytes numNodes = 679 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 317 numReplace = 1
[849]Embperl path search Path:
/www/htdocs/reviews/scott-zgxvrzcx;/www/htdocs/reviews;/www/htdocs Filename:
cleanup.epl
[849]Embperl path search Check: /www/htdocs/reviews/scott-zgxvrzcx/cleanup.epl
[849]Embperl path search Check: /www/htdocs/reviews/cleanup.epl
[849]Embperl path search Check: /www/htdocs/cleanup.epl
[849]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[849]MEM: Alloc 28 Bytes at 0849cd50 Allocated so far 738 Bytes
[849]MEM: Load /www/htdocs/cleanup.epl in HTML::Embperl::DOC::_5
[849]CACHE: New File for '/www/htdocs/cleanup.epl' (85ade30) in
'HTML::Embperl::DOC::_5' hash cache-key '--/www/htdocs/cleanup.epl'
[849]MEM: Free 28 Bytes at 0849cd4c Allocated so far 710 Bytes
[849]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP 2.x recipe =
Embperl
[849]REQ: Package = HTML::Embperl::DOC::_5
[849]CACHE: Created new CacheItem *file:/www/htdocs/cleanup.epl; expires_in=0
expires_func=no expires_filename=/www/htdocs/cleanup.epl cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/cleanup.epl*epparse:Embperl; expires_in=0 expires_func=no
expires_filename= cache=no
[849]CACHE: Created new CacheItem
*file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile:; expires_in=0
expires_func=no expires_filename= cache=yes
[849]CACHE: Created new CacheItem
*file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile:*eprun:txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+Chapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=scott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCountry
=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemModel=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumControllers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSpace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txtUserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtCmdShowqSt
atus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDiscfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtReviewInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action=check;
expires_in=0 expires_func=no expires_filename= cache=no
[849]CACHE: *file:/www/htdocs/cleanup.epl stat file /www/htdocs/cleanup.epl
mtime=1014832693 size=148
[849]CACHE: *file:/www/htdocs/cleanup.epl expired because file
/www/htdocs/cleanup.epl changed
[849]CACHE: *file:/www/htdocs/cleanup.epl*epparse:Embperl expired because
dependencies is expired or newer
[849]CACHE: *file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile: expired
because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile:*eprun:txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+Chapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=scott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCountry
=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemModel=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumControllers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSpace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txtUserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtCmdShowqSt
atus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDiscfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtReviewInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action=check
expired because dependencies is expired or newer
[849]CACHE:
*file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile:*eprun:txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+Chapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=scott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCountry
=USA&txtComputerName=a&txtRAMInstalled=a&txtSystemModel=a&txtRAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumControllers=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSpace=a&txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txtUserVolSets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtCmdShowqSt
atus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDiscfree=z&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtReviewInfo=a&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action=check
get from provider
[849]CACHE: *file:/www/htdocs/cleanup.epl*epparse:Embperl*epcompile: get from
provider
[849]CACHE: *file:/www/htdocs/cleanup.epl*epparse:Embperl get from provider
[849]Reading /www/htdocs/cleanup.epl as input using PerlIO (148 Bytes)...
[849]PARSE: Start parsing /www/htdocs/cleanup.epl DomTree = 8
[849]PARSE: AddNode: +00 Element parent=0 node=1 type=1 text=att (#71)
[849]PARSE: AddNode: +00 Element parent=0 node=2 type=11 text=DocumentFraq (#5)
[849]PARSE: AddNode: +00 Attribut parent=2 node=3 type=2 text=<domtree> (#3)
[849]PARSE: AddNode: +00 AttributValue parent=3 node=3 type=34 text=[+ (#8)
[849]PARSE: AddNode: +00 Element parent=2 node=4 type=4 text= (#1)
[849]PARSE: AddNode: +00 Element parent=2 node=5 type=1 text=[- (#10) [-
[849]PARSE: AddNode: +01 Element parent=5 node=6 type=4 text=$req = shift;
# Close down database connection
$req->{dbh}->disconnect();
# $req->{DBUGF} -> close()|| die ("Can't close debug file: $!");
(#318) [-
[849]PARSE: AddNode: +00 Element parent=2 node=7 type=4 text=
(#74)
[849]PARSE: AddNode: +00 Element parent=2 node=8 type=4 text= (#1)
[849]PERF: Parse Start Time: 0 ms
[849]PERF: Parse End Time: 0 ms
[849]PERF: Parse Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 94260 Bytes numNodes = 686 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 319 numReplace = 1
[849]EPCOMP: Start compiling /www/htdocs/cleanup.epl DomTree = 8
[849]EPCOMP: #2 L0 -------> parent=0 node=2 type=11 text=DocumentFraq
(#5,compile)
[849]EPCOMP: #2 L0 CompileTimeCode:
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpurl=\&XML::Embperl::DOM::Node::iReplaceChildWithUrlDATA;
*_ep_cp=\&XML::Embperl::DOM::Tree::iCheckpoint;
*_ep_dcp=\&XML::Embperl::DOM::Tree::iDiscardAfterCheckpoint;
*_ep_opt=\&HTML::Embperl::Cmd::Option;
*_ep_hid=\&HTML::Embperl::Cmd::Hidden;
*_ep_ac=\&XML::Embperl::DOM::Node::iAppendChild;
*_ep_sa=\&XML::Embperl::DOM::Element::iSetAttribut;
[849]EPCOMP: #2 L0 Code:
# any initialisation could be put here
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #4 L0 -------> parent=2 node=4 type=4 text= (#1,compile)
[849]EPCOMP: #4 L0 Checkpoint
[849]EPCOMP: #5 L1 -------> parent=2 node=5 type=1 text=[- (#10,compile)
removenode=3
[849]EPCOMP: #5 L1 Code: $_ep_node=4;{
$req = shift;
# Close down database connection
$req->{dbh}->disconnect();
# $req->{DBUGF} -> close()|| die ("Can't close debug file: $!");
;}
[849]EPCOMP: #5 L1 Set Checkpoint pending
[849]EPCOMP: #8 L0 -------> parent=2 node=8 type=4 text= (#1,compile)
[849]EPCOMP: #8 L0 Checkpoint
[849]EPCOMP: #2 L0 CodeEnd: # Include here any cleanup code
[849]EPCOMP: #2 L0 Set Checkpoint pending
[849]EPCOMP: #-1 Checkpoint
[849]DEF: Line 1:
# any initialisation could be put here
_ep_cp(1) ;
#line 1 "/www/htdocs/cleanup.epl"
$_ep_node=4;{
$req = shift;
# Close down database connection
$req->{dbh}->disconnect();
# $req->{DBUGF} -> close()|| die ("Can't close debug file: $!");
;}
_ep_cp(2) ;
# Include here any cleanup code
_ep_cp(3) ;
[849]SVs: 41931
[849]PERF: Compile Start Time: 0 ms
[849]PERF: Compile End Time: 0 ms
[849]PERF: After Compile Exec End Time: 0 ms
[849]PERF: Perl Compile End Time: 0 ms
[849]PERF: Compile Time: 0 ms
[849]PERF: DOMSTAT: MemUsage = 95300 Bytes numNodes = 684 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 319 numReplace = 1
[849]CACHE: Free content for *file:/www/htdocs/cleanup.epl*epparse:Embperl
[849]CACHE: Free content for *file:/www/htdocs/cleanup.epl
[849]PERF: input = /www/htdocs/cleanup.epl
[849]PERF: Time: 0 ms Evals: 0 No Evals to cache
[849]Sub-Request finished. Thu Mar 14 09:26:15 2002
. Entry-SVs: 41708 -OBJs: 42 Exit-SVs: 41897 -OBJs: 43
[849]PERF: DOMSTAT: MemUsage = 95300 Bytes numNodes = 684 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 319 numReplace = 1
[849]Checkpoint: ok DomTree=3 2 -> 2 SVs=41886
[849]Checkpoint: ok DomTree=3 3 -> 3 SVs=41886
[849]SVs: 41887
[849]EVAL> <undefined>
[849]PERF: Run Start Time: 0 ms
[849]PERF: Run End Time: 310 ms
[849]PERF: Run Time: 310 ms
[849]PERF: DOMSTAT: MemUsage = 95300 Bytes numNodes = 684 numLevelLookup = 0
numLevelLookupItem = 0 numStr = 319 numReplace = 1
[849]MEM: Alloc 136 Bytes at 0849cd80 Allocated so far 846 Bytes
[849]MEM: Alloc 48 Bytes at 0849ce10 Allocated so far 894 Bytes
[849]MEM: Alloc 122 Bytes at 0849ce48 Allocated so far 1016 Bytes
[849]MEM: Alloc 202 Bytes at 0849cec8 Allocated so far 1218 Bytes
[849]MEM: Alloc 55 Bytes at 0849cf98 Allocated so far 1273 Bytes
[849]MEM: Alloc 215 Bytes at 0849cfd8 Allocated so far 1488 Bytes
[849]MEM: Alloc 21 Bytes at 0849d0b8 Allocated so far 1509 Bytes
[849]MEM: Alloc 102 Bytes at 0849d268 Allocated so far 1611 Bytes
[849]MEM: Alloc 34 Bytes at 0849d2d8 Allocated so far 1645 Bytes
[849]SES: Received Cookie ID: New Cookie ID: User data is NOT modified
[849]HDR: 3
[849]HDR: Connection=close
[849]HDR: Transfer-Encoding=chunked
[849]HDR: Content-Type=text/html
[849]MEM: Free 136 Bytes at 0849cd7c Allocated so far 1509 Bytes
[849]MEM: Free 48 Bytes at 0849ce0c Allocated so far 1461 Bytes
[849]MEM: Free 122 Bytes at 0849ce44 Allocated so far 1339 Bytes
[849]MEM: Free 202 Bytes at 0849cec4 Allocated so far 1137 Bytes
[849]MEM: Free 55 Bytes at 0849cf94 Allocated so far 1082 Bytes
[849]MEM: Free 215 Bytes at 0849cfd4 Allocated so far 867 Bytes
[849]MEM: Free 21 Bytes at 0849d0b4 Allocated so far 846 Bytes
[849]MEM: Free 102 Bytes at 0849d264 Allocated so far 744 Bytes
[849]MEM: Free 34 Bytes at 0849d2d4 Allocated so far 710 Bytes
[849]CACHE: Free content for
*file:/www/htdocs/base.epl*epparse:Embperl*epcompile:*eprun:txtCompanyName=Lund+Performance+Solutions&txtContact=Scott+Chapman&txtAddress1=240+2nd+Ave.+SW&txtPhone1=541-812-7600+xt+648&txtAddress2=&txtFax1=&txtCity=Albany&txtEmail=scott.chapman@+lund.com&txtState=OR&txtPostalCode=97321&txtCountry=US
A&txtComputerName=a&txtRAMInstalled=a&txtSystemModel=a&txt
RAMCapacity=a&txtOSLevel=a&txtNumDrives=a&txtNumController
s=a&txtCDROM_LDEV=a&txtDriveSpace=a&txtDriveFreeSpace=a&
txtDiskArrays=a&txtReasonForStudy=a&txtSystemUse=a&txtUserVol
Sets=a&txtUpgradePlans=aa&txtCollectionSpecifics=a&txtCmdShow
qStatus=a&txtCmdShowme=a&txtCmdShowvar=a&txtCmdDiscfree=z
&txtCmdDstatAll=a&txtSysgen=a&txtWorkDefs=a&txtReviewInfo=a
&txtSOSLogVersion=a&txtSOSExtractVersion=a&epl_action=check
[849]Delete: DomTree = 3 SVs=41890
[849]Delete: DomTree = 7 SVs=41890
[849]Delete: DomTree = 5 SVs=41888
[849]PERF: input = /www/htdocs/base.epl
[849]PERF: Time: 320 ms Evals: 0 No Evals to cache
[849]Request finished. Thu Mar 14 09:26:15 2002
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
