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

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

diff --git a/config/cfgroot/header.pl b/config/cfgroot/header.pl
index 5164e9731b4057bceb30cc8f9ba93409cae33e34..99ec7a6bfa753559a57800b8d0cd5734de6d74b1 100644 (file)
--- a/config/cfgroot/header.pl
+++ b/config/cfgroot/header.pl
@@ -232,10 +232,24 @@ sub genmenu {
   }
 }
 
-sub showhttpheaders
-{
-       print "Cache-control: private\n";
-       print "Content-type: text/html; charset=UTF-8\n\n";
+sub showhttpheaders($) {
+       my $overwrites = shift;
+
+       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($) {