diff options
author | Francois Pons <fpons@mandriva.com> | 2003-01-23 14:30:04 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-01-23 14:30:04 +0000 |
commit | b4e830357171338fbc62616ac87217e6ab3af4ba (patch) | |
tree | 5808859f973478e961aec5f83c19a026117c79ae | |
parent | 17acff9a4f8873d3c754af9e1c8cc4fa5bff2dd5 (diff) | |
download | urpmi-b4e830357171338fbc62616ac87217e6ab3af4ba.tar urpmi-b4e830357171338fbc62616ac87217e6ab3af4ba.tar.gz urpmi-b4e830357171338fbc62616ac87217e6ab3af4ba.tar.bz2 urpmi-b4e830357171338fbc62616ac87217e6ab3af4ba.tar.xz urpmi-b4e830357171338fbc62616ac87217e6ab3af4ba.zip |
4.2-10mdk
-rw-r--r-- | urpm.pm | 58 | ||||
-rwxr-xr-x | urpmi | 11 | ||||
-rw-r--r-- | urpmi.spec | 6 |
3 files changed, 63 insertions, 12 deletions
@@ -348,11 +348,30 @@ sub sync_rsync { foreach (@_) { my $count = 10; #- retry count on error (if file exists). my $basename = (/^.*\/([^\/]*)$/ && $1) || $_; + my ($file) = /^rsync:\/\/(.*)/ or next; + ref $options && $options->{callback} and $options->{callback}('start', $file); do { - /^rsync:\/\/(.*)/ or next; - system "/usr/bin/rsync", (ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)), - qw(--partial --no-whole-file), $1, (ref $options ? $options->{dir} : $options); + local (*RSYNC, $_); + my $buf = ''; + open RSYNC, "-|", "/usr/bin/rsync", (ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)), + qw(--partial --no-whole-file), $file, (ref $options ? $options->{dir} : $options); + local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!). + while (<RSYNC>) { + $buf .= $_; + if ($_ eq "\r" || $_ eq "\n") { + if (ref $options && $options->{callback}) { + if (my ($percent, $speed) = $buf =~ /^\s*\d+\s+(\d+)%\s+(\S+)\s+/) { + $options->{callback}('progress', $file, $percent, undef, undef, $speed); + } + } else { + print STDERR $_; + } + $buf = ''; + } + } + close RSYNC; } while ($? != 0 && --$count > 0 && (-e (ref $options ? $options->{dir} : $options) . "/$basename")); + ref $options && $options->{callback} and $options->{callback}('end', $file); } $? == 0 or die _("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127); } @@ -360,13 +379,32 @@ sub sync_ssh { -x "/usr/bin/rsync" or die _("rsync is missing\n"); -x "/usr/bin/ssh" or die _("ssh is missing\n"); my $options = shift @_; - foreach (@_) { + foreach my $file (@_) { my $count = 10; #- retry count on error (if file exists). - my $basename = (/^.*\/([^\/]*)$/ && $1) || $_; + my $basename = ($file =~ /^.*\/([^\/]*)$/ && $1) || $file; + ref $options && $options->{callback} and $options->{callback}('start', $file); do { - system "/usr/bin/rsync", (ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)), qw(--partial -e ssh), - $_, (ref $options ? $options->{dir} : $options); + local (*RSYNC, $_); + my $buf = ''; + open RSYNC, "-|", "/usr/bin/rsync", (ref $options && $options->{quiet} ? qw(-q) : qw(--progress -v)), + qw(--partial -e ssh), $file, (ref $options ? $options->{dir} : $options); + local $/ = \1; #- read input by only one char, this is slow but very nice (and it works!). + while (<RSYNC>) { + $buf .= $_; + if ($_ eq "\r" || $_ eq "\n") { + if (ref $options && $options->{callback}) { + if (my ($percent, $speed) = $buf =~ /^\s*\d+\s+(\d+)%\s+(\S+)\s+/) { + $options->{callback}('progress', $file, $percent, undef, undef, $speed); + } + } else { + print STDERR $_; + } + $buf = ''; + } + } + close RSYNC; } while ($? != 0 && --$count > 0 && (-e (ref $options ? $options->{dir} : $options) . "/$basename")); + ref $options && $options->{callback} and $options->{callback}('end', $file); } $? == 0 or die _("rsync failed: exited with %d or signal %d\n", $? >> 8, $? & 127); } @@ -377,7 +415,11 @@ sub sync_logger { $file =~ s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; #- if needed... print STDERR " $file\n"; } elsif ($mode eq 'progress') { - print STDERR _(" %s%% of %s, ETA = %s, speed = %s", $percent, $total, $eta, $speed) . "\r"; + if (defined $total && defined $eta) { + print STDERR _(" %s%% of %s completed, ETA = %s, speed = %s", $percent, $total, $eta, $speed) . "\r"; + } else { + print STDERR _(" %s%% completed, speed = %s", $percent, $speed) . "\r"; + } } elsif ($mode eq 'end') { print STDERR (" "x79)."\r"; } @@ -488,10 +488,15 @@ my %sources = $urpm->download_source_packages($local_sources, $list, my ($mode, $file, $percent, $total, $eta, $speed) = @_; if ($mode eq 'start') { $file =~ s|([^:]*://[^/:\@]*:)[^/:\@]*(\@.*)|$1xxxx$2|; #- if needed... - print SAVEERR " $file\n"; + print STDERR " $file\n"; #- allow pass-protected url to be logged. } elsif ($mode eq 'progress') { - print SAVEERR _(" %s%% of %s, ETA = %s, speed = %s", - $percent, $total, $eta, $speed) . "\r"; + if (defined $total && defined $eta) { + print SAVEERR _(" %s%% of %s completed, ETA = %s, speed = %s", + $percent, $total, $eta, $speed) . "\r"; + } else { + print SAVEERR _(" %s%% completed, speed = %s", + $percent, $speed) . "\r"; + } } elsif ($mode eq 'end') { print SAVEERR (" "x79)."\r"; } @@ -2,7 +2,7 @@ Name: urpmi Version: 4.2 -Release: 9mdk +Release: 10mdk License: GPL Source0: %{name}.tar.bz2 Source1: %{name}.logrotate @@ -205,6 +205,10 @@ fi %changelog +* Thu Jan 23 2003 Fran�ois Pons <fpons@mandrakesoft.com> 4.2-10mdk +- added download log support for rsync and ssh protocol. +- make log not visible in log file instead url. + * Thu Jan 23 2003 Fran�ois Pons <fpons@mandrakesoft.com> 4.2-9mdk - fix bug 994 according to Gerard Patel. - added download log for urpmi.addmedia and urpmi.update. |