From f273ccb172bd159522a4c1fbfde226b0c36b3f90 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 7 Dec 2001 18:27:45 +0000 Subject: --headers of urpmq with synthesis only. --- urpmq | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'urpmq') diff --git a/urpmq b/urpmq index 74cb09e1..baf1408b 100755 --- a/urpmq +++ b/urpmq @@ -144,9 +144,15 @@ if ($query->{headers} || $query->{sources}) { map { /(.*)\/([^\/]*)-([^-]*)-([^-]*)\.([^\.]*)\.rpm/ and "$2-$3-$4.$5" } values %{$list->[$_]}); @headers > 0 or next; - require packdrake; - my $packer = new packdrake("$urpm->{statedir}/$urpm->{media}[$_]{hdlist}"); - $packer->extract_archive(undef, @headers); + if (-s "$urpm->{statedir}/$urpm->{media}[$_]{hdlist}") { + require packdrake; + my $packer = new packdrake("$urpm->{statedir}/$urpm->{media}[$_]{hdlist}"); + $packer->extract_archive(undef, @headers); + } else { + #- fallback to retrieve rpm package before, so that --headers will be ok. + my %uploads = $urpm->upload_source_packages({}, $list, '', undef); + system "rpm2header", values %uploads; + } } } else { print join "\n", values %$local_sources; values %$local_sources and print "\n"; -- cgit v1.2.1