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> ~; |