diff options
| -rwxr-xr-x | urpmi.update | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/urpmi.update b/urpmi.update new file mode 100755 index 00000000..b1a77ae6 --- /dev/null +++ b/urpmi.update @@ -0,0 +1,53 @@ +#!/usr/bin/perl + +#- Copyright (C) 2000 MandrakeSoft (fpons@mandrakesoft.com) +#- +#- This program is free software; you can redistribute it and/or modify +#- it under the terms of the GNU General Public License as published by +#- the Free Software Foundation; either version 2, or (at your option) +#- any later version. +#- +#- This program is distributed in the hope that it will be useful, +#- but WITHOUT ANY WARRANTY; without even the implied warranty of +#- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +#- GNU General Public License for more details. +#- +#- You should have received a copy of the GNU General Public License +#- along with this program; if not, write to the Free Software +#- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +#- this program is based upon old urpmi.addmedia + +#use strict qw(subs vars refs); +use urpm; + +sub main { + my (@toupdates, %options); + + foreach (@_) { + /^--?a/ and $options{all} = 1, next; + /^--?f/ and $options{force} = 1, next; + /^--?noa/ and next; #- default, keeped for compability. + /^-/ and die "unknown options \"$_\"\n"; + push @toupdates, $_; + } + + my $urpm = new urpm; $urpm->read_config; + my @entries = map { $_->{name} } @{$urpm->{media}}; + + if ($options{all}) { + @entries == 0 and die "nothing to update (use urpmi.addmedia to add a media)\n"; + } else { + @toupdates == 0 and die "missing the entry to update\n(one of " . join(", ", @entries) . ")\n"; + $urpm->select_media(@toupdates); + + #- force ignored media to be returned alive. + foreach (@{$urpm->{media}}) { + $_->{modified} and delete $_->{ignore}; + } + } + + $urpm->update_media(%options); +} + +main(@ARGV); |