You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
739 B
31 lines
739 B
4 months ago
|
# $id:$
|
||
|
|
|
||
|
|
package Reporter;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
#use vars qw(%SYSTEM);
|
||
|
|
|
||
|
|
sub HTMLHeader {
|
||
|
|
# $_[0] = title
|
||
|
|
# $_[1] = javascript
|
||
|
|
return "<html>\n<head>\n<title>$_[0]</title>\n".
|
||
|
|
"<script language=\"JavaScript\">\n<!-- \n$_[1]\n -->\n</script>\n</head>\n".
|
||
|
|
"<BODY BACKGROUND=\"$::SYSTEM{'BACKGROUND'}\" BGCOLOR=\"$::SYSTEM{'BGCOLOR'}\"".
|
||
|
|
" TEXT=\"$::SYSTEM{'TEXT'}\" LINK=\"$::SYSTEM{'LINK'}\"".
|
||
|
|
" VLINK=\"$::SYSTEM{'VLINK'}\" ALINK=\"$::SYSTEM{'ALINK'}\">\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub HTMLHeaderPlain {
|
||
|
|
# $_[0] = title
|
||
|
|
# $_[1] = javascript
|
||
|
|
return "<html>\n<head>\n<title>$_[0]</title>\n".
|
||
|
|
"<script language=\"JavaScript\">\n<!-- \n$_[1]\n -->\n</script>\n</head>\n".
|
||
|
|
"<BODY>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub HTMLFooter {
|
||
|
|
return "</body>\n</html>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|