Pacman update and mirrorlist

Question

With the upgrade to pacman-3.2.1-2, we have split the mirrorlist into the pacman-mirrorlist package. This will allow us to push more frequent updates to the mirrorlist, instead of only updating it with pacman releases.  As part of this upgrade, your current /etc/pacman.d/mirrorlist file will be saved as mirrorlist.pacorig and the default mirrorlist put in its place.  Remember to merge these files in order to keep using your mirror(s) of choice.

Answer 1

This is somewhat less generic than what I had in mind because I realized that the order of the mirrors need to be preserved. Anyway, the script does the following:
read in uncommented mirrors from mirrorlist.pacorig
check them against the new mirrorlist
for each one that's not in the new list, ask if the user would like to keep it
create a new file with the previously selected mirrors appended to the top followed by the complete new mirrorlist with the server lines commented out
usage:
merge_pacorig_mirrors.pl /path/to/output_file
Check the output file then move it to /etc/pacman.d/mirrorlist if you're happy with it. The script will not overwrite your mirrorlists (unless you specify them as the output file, but I do not recommend that).
#!/usr/bin/perl
use strict;
use warnings;
sub read_file
my $file = shift;
my $text;
open(my $fh,'<',$file) or die "unable to open $file: $!\n";
local $/;
$text = <$fh>;
close $fh;
return $text;
sub save_file
my ($file,$text) = @_;
open(my $fh,'>',$file) or die "unable to open $file: $!\n";
print $fh $text;
close $fh;
sub confirm
my ($question,$default_answer) = @_;
print "$question ";
if (defined($default_answer) and $default_answer eq 'y')
print '[Y/n] ';
elsif (defined($default_answer) and $default_answer eq 'n')
print '[y/N] ';
else
print '[y/n] ';
my $answer = lc(<STDIN>);
chomp $answer;
$answer = $default_answer if (defined($default_answer) and $answer eq '');
while ($answer ne 'y' and $answer ne 'n')
print "Please enter 'y' or 'n': ";
$answer = lc(<STDIN>);
chomp $answer;
return ($answer eq 'y') ? 1 : 0;
my $output = shift @ARGV;
die "Please specify an output file.\n" if (not defined($output));
my $new = &read_file('/etc/pacman.d/mirrorlist');
my $orig = &read_file('/etc/pacman.d/mirrorlist.pacorig');
my @new_servers = map {/^Server\s*=\s*(.+)\s*$/} grep {/^[#\s]*Server/} split "\n",$new;
my @orig_servers = map {/^Server\s*=\s*(.+)\s*$/} grep {/^Server/} split "\n",$orig;
my %servers = ();
foreach my $server(@new_servers,@orig_servers)
$servers{$server}++;
my $mirrorlist = '';
foreach my $server (@orig_servers)
if ($servers{$server}>1)
$mirrorlist .= "Server = $server\n";
else
print "The following server is no longer in the mirror list:\n\t$server\n";
if (&confirm("Would you like to remove it?", "y"))
next;
else
$mirrorlist .= "Server = $server\n";
$mirrorlist .= "\n\n";
$new =~ s/^Server/#Server/gm;
$mirrorlist .= $new;
&save_file($output,$mirrorlist);
Last edited by Xyne (2008-12-23 21:07:20)