[PATCH 3/6] gitweb.perl : added ability to DEBUG progression through "git archive"

[Jim Klimov]

---
 gitweb/gitweb.perl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index c715472..fc5b62d 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -891,6 +891,7 @@ sub evaluate_query_params {
 # now read PATH_INFO and update the parameter list for missing parameters
 sub evaluate_path_info {
        return if defined $input_params{'project'};
+       printf STDERR "path_info='$path_info'\n" if $DEBUG;
        return if !$path_info;
        $path_info =~ s,^/+,,;
        return if !$path_info;
@@ -7336,6 +7337,24 @@ sub git_snapshot {
        if (!@snapshot_fmts) {
                die_error(403, "Snapshots not allowed");
        }
+
+       if ($DEBUG) {
+               my $v; my $i;
+               printf STDERR "path_info='".$path_info."'\n";
+               printf STDERR "input_params: { ";
+               foreach $i (keys (%input_params)) {
+                       $v = $input_params{$i};
+                       if (defined ($v)) {
+                               if ($i eq "extra_options" ) {
+                                       printf STDERR "  '$i' => [".@{$v}."] ; 
";
+                               } else {
+                               printf STDERR "  '$i' => '$v' ; ";
+                               }
+                       }
+               }
+               printf STDERR "} \n";
+       }
+
        # default to first supported snapshot format
        $format ||= $snapshot_fmts[0];
        if ($format !~ m/^[a-z0-9]+$/) {
@@ -7367,6 +7386,13 @@ sub git_snapshot {
        my ($name, $prefix) = snapshot_name($project, $hash);
        my $filename = "$name$known_snapshot_formats{$format}{'suffix'}";
 
+       if ($DEBUG) {
+               # name of the tarball to generate
+               if (defined $filename)  { printf STDERR 
"filename='$filename'\n"; }
+               # value of the 'f=' URL parameter
+               if (defined $file_name) { printf STDERR 
"file_name='$file_name'\n"; }
+       }
+
        my %co = parse_commit($hash);
        exit_if_unmodified_since($co{'committer_epoch'}) if %co;
 
@@ -7398,12 +7424,15 @@ sub git_snapshot {
                %co ? (-last_modified => $latest_date{'rfc2822'}) : (),
                -status => '200 OK');
 
+       printf STDERR "Starting git-archive: $cmd\n" if $DEBUG;
        open my $fd, "-|", $cmd
                or die_error(500, "Execute git-archive failed");
+       printf STDERR "Started git-archive...\n" if $DEBUG;
        binmode STDOUT, ':raw';
        print <$fd>;
        binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
        close $fd;
+       printf STDERR "Finished posting output of git-archive...\n" if $DEBUG;
 }
 
 sub git_log_generic {
-- 
2.1.4

--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majord...@vger.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html