I cannot figure out why the below html source page is hosed up. Why is
embperl not putting the body (the frist part, the forms) between the
<body> </body> lines. My code is below:
------- Page Source from web browser --------------------
<form method="post"
action="/term_done/done.html" enctype="application/x-www-form-urlencoded">
<H1>Systems Check</H1><input type="submit" name=".submit" /><TABLE
WIDTH="50%"><TR><TH ALIGN="CENTER">Select</TH><TH ALIGN="LEFT">ID</TH><TH
ALIGN="LEFT">Report Name</TH><TH ALIGN="LEFT">Loc</TH><TH
ALIGN="LEFT">Date and Time</TH><TR><TD ALIGN="CENTER"><INPUT TYPE="radio"
NAME="repid" VALUE="3"></TD><TD ALIGN="LEFT">3</TD><TD
ALIGN="LEFT">Today</TD><TD ALIGN="LEFT">/dev/null</TD><TD
ALIGN="LEFT">2004-08-29 17:08:44</TD></TR><TR><TD ALIGN="CENTER"><INPUT
TYPE="radio" NAME="repid" VALUE="2"></TD><TD ALIGN="LEFT">2</TD><TD
ALIGN="LEFT">Today</TD><TD ALIGN="LEFT">/dev/null</TD><TD
ALIGN="LEFT">2004-08-29
17:07:54</TD></TR></TABLE><div></div></form>HTTP/1.1 200 OK
Date: Thu, 09 Sep 2004 22:05:55 GMT
Server: Apache/1.3.31 (Unix) mod_perl/1.28
Content-Length: 99
Keep-Alive: timeout=15, max=100
Connection: Keep-Alive
Content-Type: text/html
<HTML>
<head>
</head>
<body>
Currently logged in as: murphyk<P>
<HR>
<hr>
<hr>
</body>
</html>
------------------------------------------
base.epl
<HTML>
[- Execute ('constants.epl')-]
[- Execute ('init.epl')-]
<HEAD>
[- Execute ('head.epl')-]
</HEAD>
<BODY>
[- Execute ('*') -]
</BODY>
[- Execute ('cleanup.epl') -]
</HTML>
constants.epl
[-
$req = shift;
$req->{bgcolor} = "white";
$req->{webmaster} = "John Smith";
$req->{website_database} = "db";
$req->{DBHOST} = "localhost";
$req->{DBNAME} = "db";
$req->{DBUSER} = "mysql";
$req->{DBPASS} = "aaaa";
-]
init.epl
[-
use DBI;
$req->{dbh} =
DBI->connect("DBI:mysql:database=$req->{DBNAME};host=localhost",$req->{DBUSER},
$req->{DBPASS}) || die "Connect failed: $DBI::errstr\n";
-]
head.epl
<TITLE> DB </TITLE>
html file (done.html)
[-
$req = shift;
my $done = CGI->new();
-]
Currently logged in as: [+$udat{userid}+]<P>
[-
$req->{query} = $req->{dbh}->prepare($qry) or die "Cound not Execute:
$DB::errstr";
$req->{query}->execute();
print start_form;
#print "<HR>";
print "<H1>Systems Check</H1>";
print submit;
print "<TABLE WIDTH=\"50%\">";
print "<TR>";
print "<TH ALIGN=\"CENTER\">Select<\/TH>";
print "<TH ALIGN=\"LEFT\">ID<\/TH>";
print "<TH ALIGN=\"LEFT\">Report Name<\/TH>";
print "<TH ALIGN=\"LEFT\">Loc<\/TH>";
print "<TH ALIGN=\"LEFT\">Date and Time<\/TH>";
while ( @rows = $req->{query}->fetchrow) {
print "<TR>";
print "<TD ALIGN=\"CENTER\"><INPUT TYPE=\"radio\" NAME=\"repid\"
VALUE=\"$rows[0]\"><\/TD>";
for ($num = 0; $num < 4; $num++) {
print "<TD ALIGN=\"LEFT\">$rows[$num]<\/TD>";
}
print "<\/TR>";
}
print "<\/TABLE>";
print end_form;
-]
cleanup.epl
[-
$req = shift;
$req->{dbh}->disconnect();
-]
Any help would be much appreciated!
Keven Murphy
CISSP, GCIA, GCIH, GCFA
[EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
