X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=xmlrtorrent.pm;h=a33919ff539b32ff4e4d3600be7c11ac905faa77;hb=dd358d09eb0bc6496f3778049e6fe1fb6201003d;hp=d50d5ace19edc74dc6bfd5072e10988e7107cce7;hpb=8d2a3eb8a869670b3b80896a687dbf733c671170;p=xmlrtorrent.git

diff --git a/xmlrtorrent.pm b/xmlrtorrent.pm
index d50d5ac..a33919f 100644
--- a/xmlrtorrent.pm
+++ b/xmlrtorrent.pm
@@ -10,6 +10,35 @@ sub new {
     return bless($self, $class);
 }
 
+# This is shamelessly stolen from pythons urlgrabber
+sub _format_number {
+    my $number = shift;
+    my $SI = shift || 0;
+    my @symbols = ('', 'k', 'M', 'G', 'T', 'P', 'E', 'Z', 'Y');
+    my $step = $SI?1000:1024;
+    my $thresh = 999;
+    my $depth = 0;
+    my $max_depth = $#symbols;
+    my $format;
+
+    while (($number > $thresh) and ($depth < $max_depth)) {
+        $depth += 1;
+        $number /= $step;
+    }
+
+    if ($number =~ /^[+-]?\d+$/) {
+        # Integer.
+        $format = '%i%s';
+    } elsif ($number < 9.95) {
+        $format = '%.1f%s';
+    } else {
+        $format = '%.0f%s';
+    }
+    return sprintf($format, $number, $symbols[$depth]);
+}
+
+
+
 sub load_start {
     my $self = shift;
     my $talker = shift;
@@ -52,7 +81,20 @@ sub download_list {
         return undef;
     }
 
-    return $res->value();
+    my @ret = ();
+    foreach (@{$res->value()}) {
+	push @ret,
+	{
+	    'NAME'       => $_->[0]->value(),
+	    'SIZE_BYTES' => _format_number($_->[1]->value()),
+	    'BYTES_DONE' => _format_number($_->[2]->value()),
+	    'UP_RATE'    => _format_number($_->[3]->value()),
+	    'DOWN_RATE'  => _format_number($_->[4]->value()),
+	    'ACTIVE'     => $_->[5]->value(),
+	};
+    }
+
+    return \@ret;
 }
 
 sub errstr {