sub printmessenger {
my %args = (
-Title => "",
-ToPrint => "",
-Version => "",
@_,
);
my $title = $args{-Title};
my $output = $args{-ToPrint};
my $versionnumber = $args{-Version};
print qq~
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<SCRIPT>
<!--
function openwin(url, width, height) {
var Win = window.open(url,"openwin",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=yes,status=yes' );
}
//-->
</SCRIPT>
<style type="text/css">
<!--
SELECT, option, textarea, input { FONT-FAMILY:verdana,arial;color:#000000; FONT-SIZE: 10px; background-color:#eeeeee }
a:link,a:visited,a:active {text-decoration:none; color:#000099; font-weight:plain;}
a:hover {text-decoration:none; color:#0000ff; font-weight: plain;}
-->
</style>
</head>
<body bgcolor=#ffffff topmargin=5 leftmargin=5>
~;
|
