Point to HTTPS badge and referer docs for uploads, direct input, and https doc URIs.

URI >= 1.53 is now required.

1 files changed, 7 insertions, 1 deletions

diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 8cb4d06..8725ace 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -59,7 +59,7 @@ use HTTP::Request qw();
 use HTTP::Headers::Auth qw();      # Needs to be imported after other HTTP::*.
 use JSON 2.00 qw();
 use SGML::Parser::OpenSP 0.991 qw();
-use URI qw();
+use URI 1.53 qw();                 # Need 1.53 for secure()
 use URI::Escape qw(uri_escape);
 use URI::file;
 use URI::Heuristic qw();
@@ -1430,6 +1430,12 @@ sub prep_template ($$)
     $T->param(file_uri => $File->{URI});
 
     #
+    # HTTPS note?
+    $T->param(file_https_note => $File->{'Is Upload'} ||
+            $File->{'Direct Input'} ||
+            URI->new($File->{URI})->secure());
+
+    #
     # Set URL for page title.
     $T->param(page_title_url => $File->{URI});