The following commit has been merged in the master branch:
commit 870cced73e128ec38691e71bc718ca332cd65b34
Author: James Vega <[email protected]>
Date: Mon Apr 12 08:10:02 2010 -0400
Point debsnap to snapshot.debian.org.
Signed-off-by: James Vega <[email protected]>
diff --git a/debian/changelog b/debian/changelog
index 34582d5..c209459 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,7 +13,7 @@ devscripts (2.10.63) UNRELEASED; urgency=low
new Perl API.
[ David Paleino ]
- * debsnap: rewritten from scratch in Perl, use snapshot-dev.debian.org
+ * debsnap: rewritten from scratch in Perl, use snapshot.debian.org
and its JSON API (Closes: #530416)
-- Christoph Berg <[email protected]> Fri, 09 Apr 2010 21:31:24 +0200
diff --git a/scripts/debsnap.1 b/scripts/debsnap.1
index cae8597..f7e59fe 100644
--- a/scripts/debsnap.1
+++ b/scripts/debsnap.1
@@ -16,7 +16,7 @@ debsnap \- retrieve old snapshots of Debian packages
a daily archive repository.
The only publicly available snapshot archive is currently located at
-\fIhttp://snapshot.debian.net\fP
+\fIhttp://snapshot.debian.org\fP
By default, debsnap will download all the available versions for \fIpackage\fP
that are found in the snapshot archive. If a \fIversion\fP is specified, only
@@ -73,7 +73,7 @@ Set a default path for the destination directory. If unset
.B DEBSNAP_BASE_URL
The base url for the snapshots archive.
-If unset this defaults to \fIhttp://snapshot-dev.debian.org\fP
+If unset this defaults to \fIhttp://snapshot.debian.org\fP
.SH EXIT STATUS
\fBdebsnap\fP will return an exit status of 0 if all operations succeeded,
diff --git a/scripts/debsnap.pl b/scripts/debsnap.pl
index d015e6d..3fe0738 100755
--- a/scripts/debsnap.pl
+++ b/scripts/debsnap.pl
@@ -54,7 +54,7 @@ sub usage
print <<"EOF";
$progname [options] <package name> [package version]
-Automatically downloads packages from snapshot.debian.net
+Automatically downloads packages from snapshot.debian.org
The following options are supported:
-h, --help Shows this help message
@@ -96,7 +96,7 @@ sub read_conf
%config_vars = (
'DEBSNAP_VERBOSE' => 'no',
'DEBSNAP_DESTDIR' => '',
- 'DEBSNAP_BASE_URL' => 'http://snapshot-dev.debian.org',
+ 'DEBSNAP_BASE_URL' => 'http://snapshot.debian.org',
);
my %config_default = %config_vars;
@@ -236,11 +236,11 @@ eval {
next if $version->{version} ne $pkgversion;
}
- my $src_json =
fetch_json_page("http://snapshot-dev.debian.org/mr/package/$package/$version->{version}/srcfiles");
+ my $src_json =
fetch_json_page("http://snapshot.debian.org/mr/package/$package/$version->{version}/srcfiles");
foreach my $file(@{$src_json->{result}}){
my $hash = $file->{hash};
- my $file =
fetch_json_page("http://snapshot-dev.debian.org/mr/file/$hash/info";)->{result}[0];
+ my $file =
fetch_json_page("http://snapshot.debian.org/mr/file/$hash/info";)->{result}[0];
#my %file_hash = ();
#$file_hash{path} = $file->{path};
@@ -251,7 +251,7 @@ eval {
# print "$k => $v\n";
#}
- my $file_url = "http://snapshot-dev.debian.org/file/$hash";;
+ my $file_url = "http://snapshot.debian.org/file/$hash";;
verbose "Getting file $file->{name}: $file_url";
eval {
getstore($file_url, "$destdir/$file->{name}");
--
Git repository for devscripts
--
To unsubscribe, send mail to [email protected].
