header.pl: Allow passing more HTTP headers to showhttpheaders()

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

config/cfgroot/header.pl

@@ -232,10 +232,24 @@ sub genmenu {
   }
 }
 
-sub showhttpheaders
+sub showhttpheaders($) {
-{
+	my $overwrites = shift;
-	print "Cache-control: private\n";
+
-	print "Content-type: text/html; charset=UTF-8\n\n";
+	my %headers = (
+		"Content-Type"  => "text/html; charset=UTF-8",
+		"Cache-Control" => "private",
+
+		# Overwrite anything passed
+		%$overwrites,
+	);
+
+	# Print all headers
+	foreach my $header (keys %headers) {
+		print "$header: $headers{$header}\n";
+	}
+
+	# End headers
+	print "\n";
 }
 
 sub is_menu_visible($) {