gitweb: check if HTTP_ACCEPT is really set

[Gitweb] / gitweb.perl
diff --git a/gitweb.perl b/gitweb.perl

index 7014e4188a9f990446b3022af5700c080ff1827722283e63b1a45689369fc3a9..da3cb0b0420246c1f35869eaff6f7f585756cef4a8f631e5fe909cdec96936f9 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -21,7 +21,6 @@ our $cgi = new CGI;
  our $version = "++GIT_VERSION++";
  our $my_url = $cgi->url();
  our $my_uri = $cgi->url(-absolute => 1);
-our $rss_link = "";
  
  # core git executable to use
  # this can just be "git" if your webserver has a sensible PATH
@@ -86,8 +85,8 @@ if (defined $action) {
  }
  
  our $project = ($cgi->param('p') || $ENV{'PATH_INFO'});
-if (defined $project) {
-       $project =~ s|^/||; $project =~ s|/$||;
+$project =~ s|^/||; $project =~ s|/$||;
+if (defined $project && $project) {
         if (!validate_input($project)) {
                 die_error(undef, "Invalid project parameter");
         }
@@ -97,8 +96,6 @@ if (defined $project) {
         if (!(-e "$projectroot/$project/HEAD")) {
                 die_error(undef, "No such project");
         }
-       $rss_link = "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" .
-                   "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>";
         $ENV{'GIT_DIR'} = "$projectroot/$project";
  } else {
         git_project_list();
@@ -224,6 +221,20 @@ sub unquote {
         return $str;
  }
  
+# escape tabs (convert tabs to spaces)
+sub untabify {
+       my $line = shift;
+
+       while ((my $pos = index($line, "\t")) != -1) {
+               if (my $count = (8 - ($pos % 8))) {
+                       my $spaces = ' ' x $count;
+                       $line =~ s/\t/$spaces/;
+               }
+       }
+
+       return $line;
+}
+
  ## ----------------------------------------------------------------------
  ## HTML aware string manipulation
  
@@ -845,7 +856,7 @@ sub git_header_html {
         # 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
         # we have to do this because MSIE sometimes globs '*/*', pretending to
         # support xhtml+xml but choking when it gets what it asked for.
-       if ($cgi->http('HTTP_ACCEPT') =~ m/(,|;|\s|^)application\/xhtml\+xml(,|;|\s|$)/ && $cgi->Accept('application/xhtml+xml') != 0) {
+       if (defined $cgi->http('HTTP_ACCEPT') && $cgi->http('HTTP_ACCEPT') =~ m/(,|;|\s|^)application\/xhtml\+xml(,|;|\s|$)/ && $cgi->Accept('application/xhtml+xml') != 0) {
                 $content_type = 'application/xhtml+xml';
         } else {
                 $content_type = 'text/html';
@@ -862,11 +873,13 @@ sub git_header_html {
  <meta name="robots" content="index, nofollow"/>
  <title>$title</title>
  <link rel="stylesheet" type="text/css" href="$stylesheet"/>
-$rss_link
-</head>
-<body>
  EOF
-       print "<div class=\"page_header\">\n" .
+       print "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" .
+             "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>\n" .
+             "</head>\n";
+
+       print "<body>\n" .
+             "<div class=\"page_header\">\n" .
               "<a href=\"http://www.kernel.org/pub/software/scm/git/docs/\" title=\"git documentation\">" .
               "<img src=\"$logo\" width=\"72\" height=\"27\" alt=\"git\" style=\"float:right; border-width:0px;\"/>" .
               "</a>\n";
@@ -1238,12 +1251,7 @@ sub git_diff_print {
                                 # skip errors
                                 next;
                         }
-                       while ((my $pos = index($line, "\t")) != -1) {
-                               if (my $count = (8 - (($pos-1) % 8))) {
-                                       my $spaces = ' ' x $count;
-                                       $line =~ s/\t/$spaces/;
-                               }
-                       }
+                       $line = untabify($line);
                         print "<div class=\"diff$diff_class\">" . esc_html($line) . "</div>\n";
                 }
         }
@@ -1583,13 +1591,8 @@ HTML
                 $age_class  = age_class($age);
                 $author     = esc_html ($author);
                 $author     =~ s/ /&nbsp;/g;
-               # escape tabs
-               while ((my $pos = index($data, "\t")) != -1) {
-                       if (my $count = (8 - ($pos % 8))) {
-                               my $spaces = ' ' x $count;
-                               $data =~ s/\t/$spaces/;
-                       }
-               }
+
+               $data = untabify($data);
                 $data = esc_html ($data);
  
                 print <<HTML;
@@ -1712,12 +1715,7 @@ sub git_blob {
         while (my $line = <$fd>) {
                 chomp $line;
                 $nr++;
-               while ((my $pos = index($line, "\t")) != -1) {
-                       if (my $count = (8 - ($pos % 8))) {
-                               my $spaces = ' ' x $count;
-                               $line =~ s/\t/$spaces/;
-                       }
-               }
+               $line = untabify($line);
                 printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line);
         }
         close $fd or print "Reading blob failed.\n";