This is an automated email from the git hooks/post-receive script. osamu pushed a commit to branch master in repository devscripts.
commit 067f70ec34df6a1058cef74126a7f97bd4719504 Author: Osamu Aoki <[email protected]> Date: Sun Mar 6 23:36:31 2016 +0900 debsnap: Add --list option Closes: #816910 --- debian/changelog | 2 ++ scripts/debsnap.1 | 4 ++++ scripts/debsnap.pl | 15 +++++++++++++-- 3 files changed, 19 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index be32bfe..93a4215 100644 --- a/debian/changelog +++ b/debian/changelog @@ -10,6 +10,8 @@ devscripts (2.16.2) UNRELEASED; urgency=medium + Always use uscan_warn and uscan_die. * test_uscan: + Fix non-{Debian,Ubuntu} cases. Closes: #816645 + * debsnap: + + Add --list option. Closes: #816910 [ Dominique Dumont ] * licensecheck: diff --git a/scripts/debsnap.1 b/scripts/debsnap.1 index 217c1ac..306b4e8 100644 --- a/scripts/debsnap.1 +++ b/scripts/debsnap.1 @@ -45,6 +45,10 @@ Report on the \fBdebsnap\fP configuration being used and progress during the download operation. Please always use this option when reporting bugs. .TP +.BR \-\-list +Don't dwnload but just list versions. + +.TP .BR \-\-binary Download binary packages instead of source packages. diff --git a/scripts/debsnap.pl b/scripts/debsnap.pl index 50749fb..b40a9f7 100755 --- a/scripts/debsnap.pl +++ b/scripts/debsnap.pl @@ -84,6 +84,7 @@ The following options are supported: Default is ./source-<package name> -f, --force Force overwriting an existing destdir + --list Don't download but just list versions --binary Download binary packages instead of source packages -a <architecture>, @@ -216,7 +217,7 @@ sub keep_version($) read_conf(@ARGV); Getopt::Long::Configure('gnu_compat'); Getopt::Long::Configure('no_ignore_case'); -GetOptions(\%opt, 'verbose|v', 'destdir|d=s', 'force|f', 'help|h', 'version', 'first=s', 'last=s', 'binary', 'architecture|a=s@') || usage(1); +GetOptions(\%opt, 'verbose|v', 'destdir|d=s', 'force|f', 'help|h', 'version', 'first=s', 'last=s', 'list', 'binary', 'architecture|a=s@') || usage(1); usage(0) if $opt{help}; usage(1) unless @ARGV; @@ -277,7 +278,17 @@ unless (@versions) { warn "$progname: No matching versions found for $package\n"; $warnings++; } -if ($opt{binary}) { +if ($opt{list}) { + foreach my $version (@versions) { + if ($opt{binary}) { + print "$version->{binary_version}\n"; + } + else { + print "$version->{version}\n"; + } + } +} +elsif ($opt{binary}) { foreach my $version (@versions) { my $src_json = fetch_json_page("$opt{baseurl}/mr/package/$version->{source}/$version->{version}/binfiles/$version->{name}/$version->{binary_version}?fileinfo=1"); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git _______________________________________________ devscripts-devel mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel
