gitweb: check given hash before trying to create snapshot

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 03900fa1d82a9b3a65baa7b9e5449aacff85cac29d70434ebd3e2ad8c215eefc..7e1e27a35e3b0352183c4ea4f5a3a1be0e11d9b2077b8baaa3a2d99a288b7199 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -5375,8 +5375,11 @@ sub git_snapshot {
                die_error(403, "Unsupported snapshot format");
        }
 
                die_error(403, "Unsupported snapshot format");
        }
 

-       if (!defined $hash) {
-               $hash = git_get_head_hash($project);
+       my $type = git_get_type("$hash^{}");
+       if (!$type) {
+               die_error(404, 'Object does not exist');
+       }  elsif ($type eq 'blob') {
+               die_error(400, 'Object is not a tree-ish');

        }
 
        my $name = $project;
        }
 
        my $name = $project;