From 57a0282de4dc245e67a58e221bcbe40fdaf2540a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Per=20=C3=98yvind=20Karlsen?= <peroyvind@mandriva.org>
Date: Thu, 10 Jul 2008 00:44:50 +0000
Subject: adjust tabbing to pixel's taste

---
 urpm/download.pm | 78 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 39 insertions(+), 39 deletions(-)

(limited to 'urpm/download.pm')

diff --git a/urpm/download.pm b/urpm/download.pm
index d7e62e24..e8401f84 100644
--- a/urpm/download.pm
+++ b/urpm/download.pm
@@ -612,11 +612,11 @@ sub sync_aria2 {
     my ($buf, $total, $file) = ('', undef, undef);
     my @files;
     for(my $i = 0; $i < @_; $i++){
-        my $metalinkfile = @_[$i];
-        $metalinkfile =~ s/metalink:.*/metalink/;
-        if ( not grep { $_ eq $metalinkfile } @files){
-            push(@files, $metalinkfile);
-        }
+	my $metalinkfile = @_[$i];
+	$metalinkfile =~ s/metalink:.*/metalink/;
+	if ( not grep { $_ eq $metalinkfile } @files){
+    	    push(@files, $metalinkfile);
+	}
     }
 
     my $aria2c_command = join(" ", map { "'$_'" }
@@ -823,7 +823,7 @@ sub _sync_webfetch_raw {
     }
     if ($files{ftp} || $files{http} || $files{https}) {
 
-    #- If metalink is used, only aria2 is available as other downloaders doesn't support metalink
+	#- If metalink is used, only aria2 is available as other downloaders doesn't support metalink
 	my @available = ($options->{metalink} ? urpm::download::available_metalink_downloaders() : urpm::download::available_ftp_http_downloaders());
 
 	#- first downloader of @available is the default one
@@ -840,10 +840,10 @@ sub _sync_webfetch_raw {
 	my $sync = $urpm::download::{"sync_$preferred"} or die N("no webfetch found, supported webfetch are: %s\n", join(", ", urpm::download::ftp_http_downloaders()));
 	my @l = (@{$files{ftp} || []}, @{$files{http} || []}, @{$files{https} || []});
 
-    # FIXME: This is rather crude and should probably be done some better place.
-    if($options->{metalink}){
-        _create_metalink_($urpm, \@l, $options);
-    }
+	# FIXME: This is rather crude and should probably be done some better place.
+	if($options->{metalink}){
+	    _create_metalink_($urpm, \@l, $options);
+	}
 	while (@l) {
 	    my $half_MAX_ARG = 131072 / 2;
 	    # restrict the number of elements so that it fits on cmdline of curl/wget/proz/aria2c
@@ -870,14 +870,14 @@ sub _create_metalink_ {
     my ($urpm, $files, $options) = @_;
     # Don't create a metalink when downloading mirror list
     if(! $options->{media}){
-        return;
+    	return;
     }
     my $mirrors;
     foreach my $medium (@{$urpm->{media} || []}){
-        if($medium->{name} eq $options->{media}){
-            my $mirrorlist = $medium->{mirrorlist};
-            $mirrors = $urpm->{mirrors_cache}->{$mirrorlist};
-        }
+	if($medium->{name} eq $options->{media}){
+    	    my $mirrorlist = $medium->{mirrorlist};
+	    $mirrors = $urpm->{mirrors_cache}->{$mirrorlist};
+	}
     }
     
     my $metalinkfile = "$urpm->{cachedir}/$options->{media}.metalink";
@@ -887,30 +887,30 @@ sub _create_metalink_ {
     $metalink .= "<files>\n";
 
     foreach my $append (@$files) {
-        $append =~ s/$mirrors->{chosen}//;
-        $metalink .= "\t<file name=\"".basename($append)."\">\n";
-        $metalink .= "\t\t<resources>\n";
-
-        my $i = 0; foreach my $mirror (@{$mirrors->{list}}) { $i++;
-            my $type = $mirror->{url};
-            $type =~ s/:\/\/.*//;
-            my $preference = 100-$i;
-            # If more than 100 mirrors, give all the remaining mirrors a priority of 0
-            my $preference = max(0, 100 - $i);
-            $metalink .= "\t\t\t<url type=\"$type\" preference=\"$preference\"";
-            # Not supported in metalinks
-            #if(@$list[$i]->{bw}){
-            #    $metalink .= " bandwidth=\"".@$list[$i]->{bw}."\" ";
-            #       }
-            # Supported in metalinks, but no longer used in mirror list..?
-            if($mirror->{connections}){
-                $metalink .= " maxconnections=\"".$mirror->{connections}."\"";
-            }
-            $metalink .= " location=\"".lc($mirror->{zone})."\">".$mirror->{url}.$append."</url>\n";
-        }
-        $metalink .= "\t\t</resources>\n";
-        $metalink .= "\t</file>\n";
-        $append = "$metalinkfile:$append";
+	$append =~ s/$mirrors->{chosen}//;
+	$metalink .= "\t<file name=\"".basename($append)."\">\n";
+	$metalink .= "\t\t<resources>\n";
+
+	my $i = 0; foreach my $mirror (@{$mirrors->{list}}) { $i++;
+	    my $type = $mirror->{url};
+	    $type =~ s/:\/\/.*//;
+	    my $preference = 100-$i;
+	    # If more than 100 mirrors, give all the remaining mirrors a priority of 0
+	    my $preference = max(0, 100 - $i);
+	    $metalink .= "\t\t\t<url type=\"$type\" preference=\"$preference\"";
+	    # Not supported in metalinks
+ 	    #if(@$list[$i]->{bw}){
+	    #    $metalink .= " bandwidth=\"".@$list[$i]->{bw}."\" ";
+	    #       }
+	    # Supported in metalinks, but no longer used in mirror list..?
+	    if($mirror->{connections}){
+    		    $metalink .= " maxconnections=\"".$mirror->{connections}."\"";
+	    }
+	    $metalink .= " location=\"".lc($mirror->{zone})."\">".$mirror->{url}.$append."</url>\n";
+	}
+    $metalink .= "\t\t</resources>\n";
+    $metalink .= "\t</file>\n";
+    $append = "$metalinkfile:$append";
     }
     $metalink .= "</files>\n</metalink>\n";
     
-- 
cgit v1.2.1