From: Emil Williams Date: Sat, 17 May 2025 19:02:31 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=9bb0857d4a89a71f0312f619a7729e5f3659d4e5;p=emil-3chen.org.git -- --- diff --git a/perl/Triple.pm b/perl/Triple.pm index 3f603b8..76a4aa0 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -123,12 +123,19 @@ sub Triple::main { $location = $vars->{"uri"}; } - print $cgi->header( - -Content_Type => 'text/html', - -charset => 'UTF-8', - -status => $status, - -location => undef, - ); + if ($location) { + print $cgi->header( + -Content_Type => 'text/html', + -charset => 'UTF-8', + -status => $status, + -location => $location, + ); + } else { + print $cgi->header( + -Content_Type => 'text/html', + -charset => 'UTF-8', + ); + } next if $status ne '';