Tags: + patch Hi,
I'm attaching a very basic patch that adds git support to watch files. With this patch a watch file of the form: version=3 git://anongit.kde.org/bomber.git tags/v([\d.]+) Would get the version status from the tags (thanks to git ls-remote command) and could fetch the corresponding tar.gz (thanks to the --remote option of git archive, this requires that the repository has upload-archive enabled). Both git commands act on the remote repository directly and don't need/nor use the local repository, if any. Thanks, -- "pi seconds is a nanocentury" -- Tom Duff Saludos /\/\ /\ >< `/
commit fdbef655d1af464dcd8af9f49712263230f13539
Author: Maximiliano Curia <m...@gnuservers.com.ar>
Date: Fri Apr 19 13:00:44 2013 +0200
Basic git:// support
diff --git a/scripts/uscan.pl b/scripts/uscan.pl
index 1010f7c..03f2ea4 100755
--- a/scripts/uscan.pl
+++ b/scripts/uscan.pl
@@ -982,8 +982,64 @@ sub process_watchline ($$$$$$)
warn "$progname warning: In $watchfile,\n no matching hrefs for watch line\n $line\n";
return 1;
}
- }
- else {
+ } elsif ($site =~ m%^git://%) {
+ # TODO: check if there is a git command
+ # sanitize $base
+ open(REFS, "git ls-remote $base |");
+ my (@refs, $line, $ref, $version);
+ while (<REFS>) {
+ chomp;
+ $line = $_;
+ foreach my $_pattern (@patterns) {
+ if ($line =~
+ m&^([^[:space:]]+)[[:space:]]+(?:refs\/)?$_pattern$&) {
+ $ref = $1; $version = $2;
+
+ $version = join(".", map { $_ if defined($_) }
+ $version);
+ foreach my $_p (@{$options{'uversionmangle'}}) {
+ if (! safe_replace(\$version, $_p)) {
+ warn "$progname: In $watchfile, potentially"
+ . " unsafe or malformed uversionmangle"
+ . " pattern:\n '$_p'"
+ . " found. Skipping watchline\n"
+ . " $line\n";
+ return 1;
+ }
+ }
+ push @refs, [$version, $ref];
+ }
+ }
+ }
+ if (@refs) {
+ if ($verbose) {
+ print "-- Found the following matching refs:\n";
+ foreach my $ref (@refs) {
+ print " $$ref[1] ($$ref[0])\n";
+ }
+ }
+ if (defined $download_version) {
+ my @vrefs = grep { $$_[0] eq $download_version } @refs;
+ if (@vrefs) {
+ ($newversion, $newfile) = @{$vrefs[0]};
+ } else {
+ warn "$progname warning: In $watchfile no matching"
+ . " refs for version $download_version"
+ . " in watch line\n $line\n";
+ return 1;
+ }
+
+ } else {
+ @refs = Devscripts::Versort::versort(@refs);
+ ($newversion, $newfile) = @{$refs[0]};
+ }
+ } else {
+ warn "$progname warning: In $watchfile,\n" .
+ " no matching refs for watch line\n" .
+ " $line\n";
+ return 1;
+ }
+ } else {
# Better be an FTP site
if ($site !~ m%^ftp://%) {
warn "$progname warning: Unknown protocol in $watchfile, skipping:\n $site\n";
@@ -1124,6 +1180,14 @@ EOF
$newfile_base = "$pkg-$newversion.download";
}
}
+ # Default name for git archive
+ if ($site =~ m%^git://%) {
+ my $ext = "tar.xz";
+ if ($repack) {
+ $ext = "tar.gz";
+ }
+ $newfile_base = "$pkg-$newversion.$ext";
+ }
# So what have we got to report now?
my $upstream_url;
@@ -1200,8 +1264,9 @@ EOF
}
}
}
- }
- else {
+ } elsif ($site =~ m%^git://%) {
+ $upstream_url = "$base $newfile";
+ } else {
# FTP site
$upstream_url = "$base$newfile";
}
@@ -1328,8 +1393,24 @@ EOF
}
return 1;
}
- }
- else {
+ } elsif ($upstream_url =~ m%^git://%) {
+ my $ext = 'tar.xz';
+ if ($repack) {
+ $ext = "tar.gz";
+ }
+
+ my @cmd = ('git', 'archive', '--format=tar',
+ "--prefix=$pkg-$newversion/",'--remote');
+ print "$upstream_url\n";
+ my @upstream_ref = split /[[:space:]]+/, $upstream_url, 2;
+ push @cmd, @upstream_ref;
+ my (undef, $fname) = tempfile(UNLINK => 1);
+ spawn(exec => \@cmd, to_file => $fname, wait_child => 1);
+ spawn(exec => ['xz', '-c'],
+ from_file => $fname,
+ to_file => "$destdir/$newfile_base",
+ wait_child => 1);
+ } else {
# FTP site
if (exists $options{'pasv'}) {
$ENV{'FTP_PASSIVE'}=$options{'pasv'};
@@ -1599,6 +1680,10 @@ sub newest_dir ($$$$$) {
warn "$progname warning: In $watchfile,\n no matching hrefs for pattern\n $site$dir$pattern";
return 1;
}
+ } elsif ($site =~ m%^git://%) {
+ # Unsupported
+ die "$progname: git transport doesn't support recursive lookups";
+ return 1;
}
else {
# Better be an FTP site
signature.asc
Description: This is a digitally signed message part.
