sub template {
	
	if ($ENV{'HTTP_ACCEPT_ENCODING'}=~/\bgzip\b/) { $gzaccept = 1;	}	
	else { $gzaccept = 0; }
	if (($gzcomp != 0) && ($gzaccept == 1)) {
		if($yySetCookies1 || $yySetCookies2) { print header(-cookie=>[$yySetCookies1, $yySetCookies2]
								, 'Content-Encoding' => 'gzip'
		); }
		else { print header(-status=>'200 OK'
			, 'Content-Encoding' => 'gzip'
		); }
	} else {
	if($yySetCookies1 || $yySetCookies2) { print header(-cookie=>[$yySetCookies1, $yySetCookies2], -charset=>'ISO-8859-15'); }
	else { print header(-status=>'200 OK', -charset=>'ISO-8859-15'); }
	        }

	if ($defaultml == 0) { $mldefault = "mlall"; }
	elsif ($defaultml == 1) { $mldefault = "mlpost"; }
	elsif ($defaultml == 2) { $mldefault = "mlalfa"; }
	elsif ($defaultml == 3) { $mldefault = "mlgrp"; }

if ($account eq "") { $yymenu .= qq~<table width=100% class=bordercolor border=0 cellspacing=1 cellpadding=0><tr><td class=catbg valign=bottom  align=center height=22>~; }
	$yymenu .= qq~<b><a class=nav href="$scripturl?SID=$sid">$img{'home'}</a>$menusep<a class=nav href="$cgi&action=help" style="cursor:help;">$img{'help'}</a>$menusep<a class=nav href="$cgi&action=search">$img{'search'}</a>~;
	if($settings[7] eq 'Administrator') { $yymenu .= qq~$menusep<a class=nav href="$cgi&action=admin">$img{'admin'}</a>~; }
	if ($aktivmap) {	$yymenu .= qq~$menusep<a class=nav href="$cgi&action=mmall&defmap=europe">$img{'membermap'}</a>~; }
	if($settings[7] eq 'Global Moderator' && $allow_mod == 1) { $yymenu .= qq~$menusep<a href="$cgi&action=moderate">$img{'glmod'}</a>~; }
	if($ispartner eq "1") { 
		if ($accounta > 1) {
					$yymenu .= qq~$menusep<a class=nav href="$cgi&action=admin">$img{'coop'}</a>~; 
		}
	}
	if($username eq 'Guest') { 
		if ($guest_allow == 1) { $yymenu .= qq~$menusep<a class=nav href="$scripturl?action=$mldefault&SID=$sid">$img{'mlist'}</a>~; }
		$yymenu .= qq~$menusep<a class=nav href="$cgi&action=login">$img{'login'}</a>$menusep<a class=nav href="$cgi&action=register">$img{'register'}</a></b>~;
	} else {
		$yymenu .= qq~$menusep<a class=nav href="$cgi&action=profile&username=$useraccount{$username}">$img{'profile'}</a>$menusep<a class=nav href="$scripturl?board=&action=im&SID=$sid">$img{'kurzmitteilungen'}</a>$menusep<a class=nav href="$scripturl?action=$mldefault&SID=$sid">$img{'mlist'}</a>~;
		if ($aktivquiz == 1) {	$yymenu .= qq~$menusep<a class=nav href="$cgi&action=quiz">$img{'quiz'}</a>~; }
		if($enable_notification) { $yymenu .= qq~$menusep<a class=nav href="$cgi&action=shownotify">$img{'notification'}</a>~; }
		$yymenu .= qq~$menusep<a class=nav href="$cgi&action=logout">$img{'logout'}</a></b>~;
	}
if ($account eq "") { $yymenu .= qq~</td></tr></table><br>~; }
	if($enable_news) {
		fopen(FILE, "$vardir/news.txt");
		@newsmessages = <FILE>;
		fclose(FILE);
		srand;
		$yynews = qq~<b>$txt{'102'}:</b> $newsmessages[int rand(@newsmessages)]~;
	}
	$yyformsearch2sid = qq~<form action="$scripturl?SID=$sid&action=search2" method="post" name="searchform">~;
	$yycopyin = 0;
	$yymbname = $mbname;
	$yytime = &timeformat($date, 1);
	$yyuname = $username eq 'Guest' ? qq~$txt{'248'} <b>$txt{'28'}</b>. $txt{'249'} <a href="$cgi&action=login">$txt{'34'}</a> $txt{'377'} <a href="$cgi&action=register">$txt{'97'}</a>.~ : qq~$txt{'247'} <b>$realname</b>, ~ ;
	my $output='';		
	if ($sidemenu == 1) {
		$ia = 0;
		$yymom .= qq~
<SCRIPT SRC="$ordnerurl/mom.js" language="JavaScript1.2"></SCRIPT>
<SCRIPT language="JavaScript1.2">
<!--
hdrFontFamily="Verdana";
linkFontFamily="Verdana";
barFontFamily="Verdana";
linkAlign="Left";
YOffset=150; 
XOffset=0;
staticYOffset=50; 
slideSpeed=15; 
waitTime=250; 
menuBGColor="$color{'bordercolor'}";
menuIsStatic="yes"; 
menuWidth=150;
menuCols=1;
hdrFontSize="2";
hdrFontColor="$color{'fadertext'}";
hdrBGColor="$color{'windowbg2'}";
hdrAlign="left";
hdrVAlign="center";
hdrHeight="15";
linkFontSize="2";
linkBGColor="$color{'windowbg'}";
linkOverBGColor="$color{'windowbg3'}";
linkTarget="_self";
barBGColor="$color{'bordercolor'}";
barFontSize="1";
barFontColor="$color{'fadertext'}";
barVAlign="center";
barWidth=14;
barText="$txt{'994'}";
momItems[$ia]=["$mbname", "", ""]\n~;
$ia++;
$yymom .= qq~momItems[$ia]=["$txt{'103'}", "$scripturl?SID=$sid", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'182'}", "$cgi&action=search", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'119'}", "$cgi&action=help", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'971'}", "$cgi&action=rules","_self"]\n~; $ia++;
if ($username eq "Guest") { $yymom .= qq~momItems[$ia]=["$txt{'28'}", "", ""]\n~; $ia++;
if ($guest_allow == 1) { $yymom .= qq~momItems[$ia]=["$txt{'944'}", "$scripturl?action=$mldefault&SID=$sid", "_self"]\n~; $ia++; }
if (($mapguest_allow == 1) && ($aktivmap == 1)) {$yymom .= qq~momItems[$ia]=["$maptxt{'01'}", "$cgi&action=mmall&defmap=europe", "_self"]\n~; $ia++; }
$yymom .= qq~momItems[$ia]=["$txt{'34'}", "$cgi&action=login", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'97'}", "$cgi&action=register","_self"]\n~; $ia++;
}
else {
$yymom .= qq~momItems[$ia]=["$txt{'142'}", "", ""]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'944'}", "$scripturl?action=$mldefault&SID=$sid", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'333'}", "$cgi&action=searchnew", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'323'}", "$cgi&action=profile&username=$useraccount{$username}","_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$caltxt{'42'}", "$cgi&action=calendar", "_self"]\n~; $ia++;
if ($aktivquiz == 1) { $yymom .= qq~momItems[$ia]=["$quiztxt{'4'}", "$cgi&action=quiz", "_self"]\n~; $ia++; }
if ($aktivmap == 1) {$yymom .= qq~momItems[$ia]=["$maptxt{'01'}", "$cgi&action=mmall&defmap=europe", "_self"]\n~; $ia++; }
$yymom .= qq~momItems[$ia]=["$txt{'418'}", "$cgi&action=shownotify", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'153'}", "$scripturl?board=&action=im&SID=$sid", "_self"]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'108'}", "$cgi&action=logout", "_self"]\n~; $ia++;
if($settings[7] eq 'Administrator') { 
$yymom .= qq~momItems[$ia]=["Administrator", "", ""]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'208'}", "$cgi&action=admin", "_self"]\n~; $ia++;
}
elsif($settings[7] eq "Global Moderator") {
$yymom .= qq~momItems[$ia]=["G-Moderator", "", ""]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$usertxt{'18'}", "$cgi&action=moderate", "_self"]\n~; $ia++;
}
elsif($ispartner == 1) { 
		if ($accounta > "1") {
$yymom .= qq~momItems[$ia]=["$teamcoop", "", ""]\n~; $ia++;
$yymom .= qq~momItems[$ia]=["$txt{'428'}", "$cgi&action=admin", "_self"]\n~; $ia++;
		}
}
}
$yymom .= qq~MOMbilden();
//-->	
</SCRIPT>~;
	}
	if ($action eq "games") {
		$yytitle =~ s~Board~Online Games~gi;
		$yytitle =~ s~Forum~Online Games~gi;
		$mbname =~ s~Board~Online Games~gi;
		$mbname =~ s~Forum~Online Games~gi;
		}
	elsif ($action eq "chat") {
		$yytitle =~ s~Board~Chat~gi;
		$yytitle =~ s~Forum~Chat~gi;
		$mbname =~ s~Board~Chat~gi;
		$mbname =~ s~Forum~Chat~gi;
	}
	elsif ($action =~ "link") {
		$yytitle =~ s~Board~Links~gi;
		$yytitle =~ s~Forum~Links~gi;
		$mbname =~ s~Board~Links~gi;
		$mbname =~ s~Forum~Links~gi;
	}
	if (($action eq "games") || ($action eq "zusatz")|| ($action eq "kooperation") || ($action =~ m~quiz~) || ($action eq "fmailer") || ($action eq "error") || ($action =~ m~link~) || ($action eq "chat")) {
		$yymom = "</head>";
		if ($account ne "") { $yymenu = "<b>$yytitle</b>"; }
		else { $yymenu = ""; }
	}
        fopen(TEMPLATE, "$boarddir/template$boardnummer.html");
        @yytemplate = <TEMPLATE>;
        fclose (TEMPLATE);
	for(my $i = 0; $i < @yytemplate; $i++) {
		$curline = $yytemplate[$i];
		if(!$yycopyin && $curline =~ m~<board copyright>~) { $yycopyin = 1; }
		if($curline =~ m~<banner>~) { require "$sourcedir/rotate.cgi"; }
		$curline =~ s~<board\s+(\w+)>~${"yy$1"}~g;
		$curline =~ s~</head>~$yymom~g;
		$curline =~ s~<sid>~$sid~g;
		$curline =~ s~<ordnerurl>~$ordnerurl~g;
		$output .= $curline;
	}
	if($yycopyin == 0) {
		$output .= q~<center><font face=Verdana size=6><B>Lasse das Copyright in deinem Template!!! Dies ist ein illegaler Formel1 Board Account. Bitte <a href=mailto:karltschetschonig@a1.net>Administrator</a> benachrichtigen.</B></font></center>~;
	}
	if (($gzcomp != 0) && ($gzaccept == 1)) {
		if ($gzcomp==1) {
			$| = 1; 
			open(GZIP, "| gzip -f");
			print GZIP $output;
			close(GZIP);
		} elsif ($gzcomp==2)  {
			require Compress::Zlib;
			print Compress::Zlib::memGzip($output);
		}
	} 
	else { print $output; }
}