diff options
| -rwxr-xr-x | urpmi.removemedia | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/urpmi.removemedia b/urpmi.removemedia new file mode 100755 index 00000000..3f19faca --- /dev/null +++ b/urpmi.removemedia @@ -0,0 +1,46 @@ +#!/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 (@toremoves, %options); + + foreach (@_) { + /^--?a/ and $options{all} = 1, next; + /^-/ and die "unknown options \"$_\"\n"; + push @toremoves, $_; + } + + my $urpm = new urpm; $urpm->read_config; + my @entries = map { $_->{name} } @{$urpm->{media}}; + + if ($options{all}) { + @toremoves = @entries; + @toremoves == 0 and die "nothing to remove (use urpmi.addmedia to add a media)\n"; + } + @toremoves == 0 and die "missing the entry to remove\n(one of " . join(", ", @entries) . ")\n"; + + $urpm->remove_media(@toremoves); + $urpm->update_media; +} + +main(@ARGV); |