===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 1.1.1.37
retrieving revision 4.1
diff -u -p -r1.1.1.37 -r4.1
--- cvsweb/cvsweb.cgi	2007/03/17 21:52:33	1.1.1.37
+++ cvsweb/cvsweb.cgi	2019/11/08 21:08:26	4.1
@@ -1,4 +1,6 @@
 #!/usr/bin/perl -T
+# $Id: cvsweb.cgi,v 4.1 2019/11/08 21:08:26 schwarze Exp $
+# $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon
 #
 # cvsweb - a CGI interface to CVS trees.
 #
@@ -44,12 +46,6 @@
 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
-#
-# $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.295 2005/09/25 20:28:51 scop Exp $
-# $zId: cvsweb.cgi,v 1.112 2001/07/24 13:03:16 hzeller Exp $
-# $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $
-#
-###
 
 require 5.006;
 
@@ -883,8 +879,8 @@ if (-d $fullname) {
 
   my $infocols = 1;
 
-  printf(<<EOF, 'Directory index of ' . htmlquote($where));
-<table class="dir" width="100%%" cellspacing="0" cellpadding="$tablepadding" summary="%s">
+  printf(<<EOF, $tablepadding, 'Directory index of ' . htmlquote($where));
+<table class="dir" width="100%%" cellspacing="0" cellpadding="%s" summary="%s">
 <tr>
 EOF
   printf('<th colspan="2"%s>', ($byfile ? ' class="sorted"' : ''));
@@ -1028,8 +1024,13 @@ EOF
 
       # Show last change in dir
       if ($filename) {
-        print "</td>\n<td>&nbsp;</td>\n<td class=\"age\">";
-        print readableTime(time() - $date, 0) if $date;
+        my $ageclass = 'age';
+        my $age      = '';
+        if ($date) {
+          $age       = readableTime(time() - $date, 0);
+          $ageclass .= " $1" if ($age =~ /^\d+ ([a-z]+)/);
+        }
+        print "</td>\n<td>&nbsp;</td>\n<td class=\"$ageclass\">$age";
         print "</td>\n<td class=\"author\">", htmlquote($author)
           if $show_author;
         print "</td>\n<td class=\"log\">";
@@ -1084,8 +1085,13 @@ EOF
       print '&nbsp;', &link(htmlquote($file), $url), $attic;
       print '</td><td class="graph">', graph_link($fileurl) if $allow_cvsgraph;
       print "</td>\n<td width=\"30\">", display_link($fileurl, $rev);
-      print "</td>\n<td class=\"age\">";
-      print readableTime(time() - $date, 0) if $date;
+      my $ageclass = 'age';
+      my $age      = '';
+      if ($date) {
+        $age       = readableTime(time() - $date, 0);
+        $ageclass .= " $1" if ($age =~ /^\d+ ([a-z]+)/);
+      }
+      print "</td>\n<td class=\"$ageclass\">$age";
       print "</td>\n<td class=\"author\">", htmlquote($author) if $show_author;
       print "</td>\n<td class=\"log\">";
 
@@ -1135,8 +1141,8 @@ EOF
   if (scalar %tags || $input{only_with_tag}) {
     print "<form method=\"get\" action=\"./\">\n<p>\n";
     foreach my $var (@stickyvars) {
-      printf("<input type=\"hidden\" name=\"$var\" value=\"%s\" />\n",
-             htmlquote($input{$var}))
+      printf("<input type=\"hidden\" name=\"%s\" value=\"%s\" />\n",
+             $var, htmlquote($input{$var}))
         if (defined($input{$var})
             && (!defined($DEFAULTVALUE{$var})
                 || $input{$var} ne $DEFAULTVALUE{$var})
@@ -1521,7 +1527,6 @@ sub htmlify($;$)
 
       do {
         $prev = $_;
-
         $_ = htmlify_sub {
           s{
             (\b$re_prkeyword[:\#]?\s*
@@ -3350,8 +3355,8 @@ EOF
     next if ($_ eq "f");
     next if ($_ eq "only_with_tag");
     next if ($_ eq "logsort");
-    printf("<input type=\"hidden\" name=\"$_\" value=\"%s\" />\n",
-           htmlquote($input{$_}))
+    printf("<input type=\"hidden\" name=\"%s\" value=\"%s\" />\n",
+           $_, htmlquote($input{$_}))
       if (defined($input{$_})
           && (!defined($DEFAULTVALUE{$_}) || $input{$_} ne $DEFAULTVALUE{$_}));
   }
@@ -3840,7 +3845,7 @@ sub navigateHeader($$$$$;$)
   my $qpath = htmlquote($path);
   my $trev  = $rev ? " - " . htmlquote($rev) : '';
 
-  http_header('', $moddate);
+  http_header('text/html', $moddate);
 
   print <<EOF;
 $HTML_DOCTYPE
@@ -4272,7 +4277,7 @@ sub http_header(;$$)
         || (defined($CMD{gzip}) && open(GZIP, "| $CMD{gzip} -1 -c")))
     {
 
-      push(@headers, 'Content-Encoding: x-gzip');
+      push(@headers, 'Content-Encoding: gzip');
       push(@headers, 'Vary: Accept-Encoding');     # RFC 2616, 14.44
       print join("\r\n", @headers) . "\r\n\r\n";