From d789a6e2f30d7cad425570e59f656d7a5fdeacea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 14 Nov 2006 12:32:28 +0000
Subject: create cachedir_hdlist() and use it

---
 urpm.pm | 36 ++++++++++++++++++++----------------
 1 file changed, 20 insertions(+), 16 deletions(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 27a6a77b..aef450ee 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -392,6 +392,10 @@ sub statedir_synthesis {
     my ($urpm, $medium) = @_;
     "$urpm->{statedir}/synthesis.$medium->{hdlist}";
 }
+sub cachedir_hdlist {
+    my ($urpm, $medium) = @_;
+    "$urpm->{cachedir}/partial/$medium->{hdlist}";
+}
 
 sub name2medium {
     my ($urpm, $name) = @_;
@@ -1331,28 +1335,28 @@ this could happen if you mounted manually the directory when creating the medium
 
 	    #- if the source hdlist is present and we are not forcing using rpm files
 	    if ($options->{force} < 2 && -e $with_hdlist_dir) {
-		unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
+		unlink cachedir_hdlist($urpm, $medium);
 		$urpm->{log}(N("copying source hdlist (or synthesis) of \"%s\"...", $medium->{name}));
 		$options->{callback} and $options->{callback}('copy', $medium->{name});
-		if (urpm::util::copy($with_hdlist_dir, "$urpm->{cachedir}/partial/$medium->{hdlist}")) {
+		if (urpm::util::copy($with_hdlist_dir, cachedir_hdlist($urpm, $medium))) {
 		    $options->{callback} and $options->{callback}('done', $medium->{name});
 		    $urpm->{log}(N("...copying done"));
-		    chown 0, 0, "$urpm->{cachedir}/partial/$medium->{hdlist}";
+		    chown 0, 0, cachedir_hdlist($urpm, $medium);
 		} else {
 		    $options->{callback} and $options->{callback}('failed', $medium->{name});
 		    #- force error, reported afterwards
-		    unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
+		    unlink cachedir_hdlist($urpm, $medium);
 		}
 	    }
 
-	    file_size("$urpm->{cachedir}/partial/$medium->{hdlist}") > 32 or
+	    file_size(cachedir_hdlist($urpm, $medium)) > 32 or
 	      $error = 1, $urpm->{error}(N("copy of [%s] failed (file is suspiciously small)",
-					   "$urpm->{cachedir}/partial/$medium->{hdlist}"));
+					   cachedir_hdlist($urpm, $medium)));
 
 	    #- keep checking md5sum of file just copied ! (especially on nfs or removable device).
 	    if (!$error && $$retrieved_md5sum) {
 		$urpm->{log}(N("computing md5sum of copied source hdlist (or synthesis)"));
-		md5sum("$urpm->{cachedir}/partial/$medium->{hdlist}") eq $$retrieved_md5sum or
+		md5sum(cachedir_hdlist($urpm, $medium)) eq $$retrieved_md5sum or
 		  $error = 1, $urpm->{error}(N("copy of [%s] failed (md5sum mismatch)", $with_hdlist_dir));
 	    }
 
@@ -1637,7 +1641,7 @@ sub _update_medium_first_pass {
 	    }
 
 	    #- the files are different, update local copy.
-	    rename("$urpm->{cachedir}/partial/$basename", "$urpm->{cachedir}/partial/$medium->{hdlist}");
+	    rename("$urpm->{cachedir}/partial/$basename", cachedir_hdlist($urpm, $medium));
 
 	    #- retrieval of hdlist or synthesis has been successful,
 	    #- check whether a list file is available.
@@ -1658,7 +1662,7 @@ sub _update_medium_first_pass {
     }
 
     #- build list file according to hdlist.
-    unless ($medium->{headers} || file_size("$urpm->{cachedir}/partial/$medium->{hdlist}") > 32) {
+    unless ($medium->{headers} || file_size(cachedir_hdlist($urpm, $medium)) > 32) {
 	$error = 1;
 	$urpm->{error}(N("no hdlist file found for medium \"%s\"", $medium->{name}));
     }
@@ -1683,20 +1687,20 @@ sub _update_medium_first_pass {
 	    $options{callback} and $options{callback}('parse', $medium->{name});
 	    my @unresolved_before = grep { ! defined $urpm->{provides}{$_} } keys %{$urpm->{provides} || {}};
 	    if (!$medium->{synthesis}
-		  || file_size("$urpm->{cachedir}/partial/$medium->{hdlist}") > 262144) {
-		_parse_hdlist($urpm, $medium, "$urpm->{cachedir}/partial/$medium->{hdlist}");
+		  || file_size(cachedir_hdlist($urpm, $medium)) > 262144) {
+		_parse_hdlist($urpm, $medium, cachedir_hdlist($urpm, $medium));
 		if (is_valid_medium($medium)) {
 		    delete $medium->{synthesis};
 		} else {
-		    _parse_synthesis($urpm, $medium, "$urpm->{cachedir}/partial/$medium->{hdlist}");
+		    _parse_synthesis($urpm, $medium, cachedir_hdlist($urpm, $medium));
 		    is_valid_medium($medium) and $medium->{synthesis} = 1;
 		}
 	    } else {
-		_parse_synthesis($urpm, $medium, "$urpm->{cachedir}/partial/$medium->{hdlist}");
+		_parse_synthesis($urpm, $medium, cachedir_hdlist($urpm, $medium));
 		if (is_valid_medium($medium)) {
 		    $medium->{synthesis} = 1;
 		} else {
-		    _parse_hdlist($urpm, $medium, "$urpm->{cachedir}/partial/$medium->{hdlist}");
+		    _parse_hdlist($urpm, $medium, cachedir_hdlist($urpm, $medium));
 		    is_valid_medium($medium) and delete $medium->{synthesis};
 		}
 	    }
@@ -1788,7 +1792,7 @@ sub _update_medium_first_pass {
     unless ($medium->{virtual}) {
 	if ($error) {
 	    #- an error has occured for updating the medium, we have to remove temporary files.
-	    unlink "$urpm->{cachedir}/partial/$medium->{hdlist}";
+	    unlink cachedir_hdlist($urpm, $medium);
 	    $medium->{list} and unlink "$urpm->{cachedir}/partial/$medium->{list}";
 	    #- read default synthesis (we have to make sure nothing get out of depslist).
 	    _parse_synthesis($urpm, $medium, statedir_synthesis($urpm, $medium));
@@ -1808,7 +1812,7 @@ sub _update_medium_first_pass {
 	    unless ($medium->{headers}) {
 		unlink statedir_synthesis($urpm, $medium);
 		unlink statedir_hdlist($urpm, $medium);
-		urpm::util::move("$urpm->{cachedir}/partial/$medium->{hdlist}",
+		urpm::util::move(cachedir_hdlist($urpm, $medium),
 				 $medium->{synthesis}
 				   ? statedir_synthesis($urpm, $medium)
 				     : statedir_hdlist($urpm, $medium)
-- 
cgit v1.2.1