[devscripts] 01/01: debsnap: Add --list option
Osamu Aoki
osamu at moszumanska.debian.org
Mon Mar 7 12:21:31 UTC 2016
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 <osamu at debian.org>
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
More information about the devscripts-devel
mailing list