blob: 1d7bf09ab4f5058c806c18e8d323dbac0da8979e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
<%
my($title, $menubar) = @_;
my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
%>
<HTML>
<HEAD>
<TITLE>
<%= $title %>
</TITLE>
<META HTTP-Equiv="Cache-Control" Content="no-cache">
<META HTTP-Equiv="Pragma" Content="no-cache">
<META HTTP-Equiv="Expires" Content="0">
</HEAD>
<BODY BGCOLOR="#e8e8e8"<%= $etc %>>
<FONT SIZE=6>
<%= $title %>
</FONT>
<BR><BR>
<%= $menubar ? "$menubar<BR><BR>" : '' %>
|
