Package: debmirror
Version: 1:2.4.5
Severity: minor
Tags: patch

Hi,
I've just started to use debmirror git head on stable again, and noticed
some issues.
This bug concerns the printout of packages. They were doing this:
Release gpg signature does not verify.
[  0%] Getting: dists/squeeze/main/binary-i386/Packages.gzok
[ 21%] Getting: dists/squeeze/main/binary-i386/Releaseok
[ 21%] Getting: dists/squeeze/main/binary-amd64/Packages.gzok
[ 42%] Getting: dists/squeeze/main/binary-amd64/Releaseok
[ 42%] Getting: dists/squeeze/main/binary-mipsel/Packages.gzok

Hunk one of the patch adds back in the '... ' in front of the ok.

Hunk two removes the repeating of the filename when an error occurs.
Instead of this:
[100%] Getting: 
dists/squeeze-proposed-updates/contrib/binary-i386/Packages.diff/2011-08-01-1412.56.gz
 ... 
dists/squeeze-proposed-updates/contrib/binary-i386/Packages.diff/2011-08-01-1412.56.gz
 failed 404 Not Found
dists/squeeze-proposed-updates/contrib/binary-i386/Packages.diff/2011-08-01-1412.56.gz
 failed sha1sum check, removing

We wind up with this:
[100%] Getting: 
dists/squeeze-proposed-updates/contrib/binary-i386/Packages.diff/2011-08-01-1412.56.gz...
 failed 404 Not Found
dists/squeeze-proposed-updates/contrib/binary-i386/Packages.diff/2011-08-01-1412.56.gz
 failed sha1sum check, removing

Hope this doesn't cause regressions on anything != stable.
thanks,
kk

-- System Information:
Debian Release: 6.0.3
  APT prefers stable
  APT policy: (990, 'stable')
Architecture: i386 (i686)

Kernel: Linux 2.6.32-5-686-bigmem (SMP w/2 CPU cores)
Locale: LANG=en_AU.utf8, LC_CTYPE=en_AU.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages debmirror depends on:
ii  bzip2                  1.0.5-6           high-quality block-sorting file co
pn  libcompress-zlib-perl  <none>            (no description available)
ii  libdigest-sha1-perl    2.13-1            NIST SHA-1 message digest algorith
ii  liblockfile-simple-per 0.207-1           Simple advisory file locking
ii  libwww-perl            5.836-1           Perl HTTP/WWW client/server librar
ii  perl [libdigest-md5-pe 5.10.1-17squeeze2 Larry Wall's Practical Extraction 
ii  perl-modules [libnet-p 5.10.1-17squeeze2 Core Perl modules
ii  rsync                  3.0.7-2           fast remote file copy program (lik

Versions of packages debmirror recommends:
ii  ed                            1.4-3      The classic UNIX line editor
ii  gpgv                          1.4.10-4   GNU privacy guard - signature veri
ii  patch                         2.6-2      Apply a diff file to an original

Versions of packages debmirror suggests:
ii  gnupg                         1.4.10-4   GNU privacy guard - a free PGP rep

-- no debconf information
diff --git a/debmirror b/debmirror
index 83c1417..48582ed 100755
--- a/debmirror
+++ b/debmirror
@@ -1597,7 +1597,7 @@ sub http_get {
   my $ret=1;
 
   print "$url => " if ($debug);
-  print_percent "Getting: $file" if $progress or $verbose;
+  print_percent "Getting: $file... " if $progress or $verbose;
   print "\t #" if $progress;
   if (! $do_dry_run) {
     unlink($file) if (-f $file);
@@ -1605,7 +1605,7 @@ sub http_get {
     print $ret->status_line . "\n" if ($debug);
     if ($ret->is_error) {
       $files{$file} = -1;
-      warn "$file failed " . $ret->status_line . "\n" if ($progress or $verbose);
+      warn "failed " . $ret->status_line . "\n" if ($progress or $verbose);
       push (@errlog,"Download of $file failed: ".$ret->status_line."\n");
       $num_errors++;
     } elsif ($progress || $verbose) {

Reply via email to