summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-23 13:12:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-23 13:12:01 +0000
commitc8ad0b363a3c21434f73e8fd921e41637a83d26b (patch)
treefd1755e7823b3e9ea721cfab760a5ef164126629 /urpm
parent522e8aaf3e22382d50d7a6a1fcc488c4dba7ec43 (diff)
downloadurpmi-c8ad0b363a3c21434f73e8fd921e41637a83d26b.tar
urpmi-c8ad0b363a3c21434f73e8fd921e41637a83d26b.tar.gz
urpmi-c8ad0b363a3c21434f73e8fd921e41637a83d26b.tar.bz2
urpmi-c8ad0b363a3c21434f73e8fd921e41637a83d26b.tar.xz
urpmi-c8ad0b363a3c21434f73e8fd921e41637a83d26b.zip
help debugging aria2
Diffstat (limited to 'urpm')
-rw-r--r--urpm/download.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/urpm/download.pm b/urpm/download.pm
index 3ded06d6..8ae9e7f4 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -653,7 +653,7 @@ sub sync_aria2 {
my $stat_file = ($< ? $ENV{HOME} : '/root') . '/.aria2-adaptive-stats';
my $aria2c_command = join(" ", map { "'$_'" }
- "/usr/bin/aria2c",
+ "/usr/bin/aria2c", $options->{debug} ? ('--log', "$options->{dir}/.aria2.log") : (),
"--auto-file-renaming=false",
"--follow-metalink=mem",
'--metalink-enable-unique-protocol=false', # so that it can try both ftp and http access on the same server. aria2 will only do this on first calls
@@ -683,14 +683,14 @@ sub sync_aria2 {
local $_;
while (<$aria2>) {
- $buf .= $_;
if ($_ eq "\r" || $_ eq "\n") {
+ $options->{debug}("aria2c: $buf") if $options->{debug};
if ($options->{callback}) {
if (!defined($file) && @urls_text) {
$file = shift @urls_text;
propagate_sync_callback($options, 'start', $file);
}
- if ($buf =~ m!^\[#\d*\s+\S+:([\d\.]+\w*).([\d\.]+\w*)\S([\d]+)\S+\s+\S+\s*([\d\.]+)\s\w*:([\d\.]+\w*/\w)\s\w*:(\d+\w*)\][\r\n]$!) {
+ if ($buf =~ m!^\[#\d*\s+\S+:([\d\.]+\w*).([\d\.]+\w*)\S([\d]+)\S+\s+\S+\s*([\d\.]+)\s\w*:([\d\.]+\w*/\w)\s\w*:(\d+\w*)\]$!) {
my ($total, $percent, $speed, $eta) = ($2, $3, $5, $6);
#- $1 = current downloaded size, $4 = connections
if (propagate_sync_callback($options, 'progress', $file, $percent, $total, $eta, $speed) eq 'canceled') {
@@ -703,14 +703,14 @@ sub sync_aria2 {
propagate_sync_callback($options, 'end', $file);
$file = undef;
} elsif ($buf =~ /ERR\|/) {
- local $/ = "\n";
- chomp $buf;
propagate_sync_callback($options, 'error', $file, $buf);
}
} else {
- $options->{quiet} or print STDERR $buf;
+ $options->{quiet} or print STDERR "$buf\n";
}
$buf = '';
+ } else {
+ $buf .= $_;
}
}
chdir $cwd;