B
Bryan Williams
Hello All --
This is probably OT, but I hope someone here can tell me what I am
doing wrong.
I am trying to update some old Perl cgi scripts. The following html
generation works fine in Firefox, but returns a blank screen in IE
...... any clues why?
Thnx,
Bryan
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
&print_part1;
&get_appts;
&print_part2;
sub get_appts {
# SNIP
# Database query here ....
# /SNIP
dumpresults();
}
sub print_part1 {
print <<ENDHTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head><title>Appointment List</title>
<meta name="robots" content="noindex,nofollow">
<meta http-equiv="Pragma" content="no-cache">
</head>
<body text="#000000" link="#0000FF" vlink="#0000FF"
alink="#FF0000">
<center>
<!-- CONTENT TABLE -->
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<table border=0 cellspacing=1 cellpadding=1>
<tr>
<td bgcolor="#CCCCCC" width=32><font size=1 face="ms sans
serif"><b><a href=/cgi-bin/appt_list.cgi?Time>Time</a></b></font></td>
<td bgcolor="#CCCCCC" width=130><font size=1 face="ms sans
serif"><b><a href=/cgi-bin/appt_list.cgi?Cust>Customer</a></b></font></td>
<td bgcolor="#CCCCCC" width=15><font size=1 face="ms sans
serif"><b> </b></font></td>
</tr>
ENDHTML
}
sub print_part2 {
print <<ENDHTML;
</table>
</td></tr></table>
<!-- /PAGE CONTENT -->
</td>
<td bgcolor="#CCCCCC" width=1><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
<td bgcolor="#FFFFFF" width=1><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
<td><center><a href="javascript:history.go(-1);"><img
src="/images/green_arrow1.gif" border=0 alt="Back"></a> <a
href="javascript:history.go(-1);"><img src="/images/green_arrow2.gif"
border=0 alt="Forward"></a></center></td>
<td bgcolor="#FFFFFF" width=2><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
</tr>
</table>
<!-- FOOTER TABLE -->
</td>
</tr>
</table>
</center>
</body>
</html>
ENDHTML
}
sub dumpresults {
print <<ENDDATADUMP;
<tr>
<td bgcolor="#EEEEEE" align="left"><font face="ms sans serif"
size=1> $vStartTime</font></td>
<td bgcolor="#EEEEEE" align="left"><font face="ms sans serif"
size=1> $vCustLastName, $vCustFirstName</font></td>
<td bgcolor="#EEEEEE"><font face="ms sans serif" size=1> <a
href=/cgi-bin/reception.cgi?$vItemNo><img
src="/images/green_arrow2.gif" border="0"></a></font></td>
</tr>
ENDDATADUMP
}
This is probably OT, but I hope someone here can tell me what I am
doing wrong.
I am trying to update some old Perl cgi scripts. The following html
generation works fine in Firefox, but returns a blank screen in IE
...... any clues why?
Thnx,
Bryan
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
&print_part1;
&get_appts;
&print_part2;
sub get_appts {
# SNIP
# Database query here ....
# /SNIP
dumpresults();
}
sub print_part1 {
print <<ENDHTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head><title>Appointment List</title>
<meta name="robots" content="noindex,nofollow">
<meta http-equiv="Pragma" content="no-cache">
</head>
<body text="#000000" link="#0000FF" vlink="#0000FF"
alink="#FF0000">
<center>
<!-- CONTENT TABLE -->
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<table border=0 cellspacing=1 cellpadding=1>
<tr>
<td bgcolor="#CCCCCC" width=32><font size=1 face="ms sans
serif"><b><a href=/cgi-bin/appt_list.cgi?Time>Time</a></b></font></td>
<td bgcolor="#CCCCCC" width=130><font size=1 face="ms sans
serif"><b><a href=/cgi-bin/appt_list.cgi?Cust>Customer</a></b></font></td>
<td bgcolor="#CCCCCC" width=15><font size=1 face="ms sans
serif"><b> </b></font></td>
</tr>
ENDHTML
}
sub print_part2 {
print <<ENDHTML;
</table>
</td></tr></table>
<!-- /PAGE CONTENT -->
</td>
<td bgcolor="#CCCCCC" width=1><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
<td bgcolor="#FFFFFF" width=1><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
<td><center><a href="javascript:history.go(-1);"><img
src="/images/green_arrow1.gif" border=0 alt="Back"></a> <a
href="javascript:history.go(-1);"><img src="/images/green_arrow2.gif"
border=0 alt="Forward"></a></center></td>
<td bgcolor="#FFFFFF" width=2><img src="/images/spacer.gif" height=1
width=1 border=0 alt=""></td>
</tr>
</table>
<!-- FOOTER TABLE -->
</td>
</tr>
</table>
</center>
</body>
</html>
ENDHTML
}
sub dumpresults {
print <<ENDDATADUMP;
<tr>
<td bgcolor="#EEEEEE" align="left"><font face="ms sans serif"
size=1> $vStartTime</font></td>
<td bgcolor="#EEEEEE" align="left"><font face="ms sans serif"
size=1> $vCustLastName, $vCustFirstName</font></td>
<td bgcolor="#EEEEEE"><font face="ms sans serif" size=1> <a
href=/cgi-bin/reception.cgi?$vItemNo><img
src="/images/green_arrow2.gif" border="0"></a></font></td>
</tr>
ENDDATADUMP
}