diff options
Diffstat (limited to 'urpmi.addmedia')
| -rwxr-xr-x | urpmi.addmedia | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/urpmi.addmedia b/urpmi.addmedia index d31307b3..0ef150bf 100755 --- a/urpmi.addmedia +++ b/urpmi.addmedia @@ -20,27 +20,36 @@ #use strict qw(subs vars refs); use urpm; +# for i18n +use POSIX; +use Locale::GetText; + +setlocale (LC_ALL, ""); +Locale::GetText::textdomain ("urpmi"); + +import Locale::GetText I_; +*_ = *I_; sub main { my ($name, $url, $with, $relative_hdlist) = @_; - my $usage = -"usage: urpmi.addmedia <name> <url> + my $usage = sprintf( +_("usage: urpmi.addmedia <name> <url> where <url> is one of file://<path> ftp://<login>:<password>@<host>/<path> with <relative filename of hdlist> ftp://<host>/<path> with <relative filename of hdlist> http://<host>/<path> with <relative filename of hdlist> - removable_<device>://<path> -"; + removable_<device>_<number>://<path> +")); $name or die $usage; my ($type, $dev) = $url =~ m,^(file|ftp|http|removable_(\w+)(?:_\d+)?)://, or die $usage; if ($type eq "removable") { - $dev && -e "/dev/$dev" or die "$usage device `$dev' do not exist\n"; + $dev && -e "/dev/$dev" or die( sprintf _( "$usage device `$dev' do not exist\n")); } elsif ($with eq "with") { - $relative_hdlist or die "$usage <relative path of hdlist> missing\n"; + $relative_hdlist or die( sprintf _( "$usage <relative path of hdlist> missing\n")); } elsif ($with) { - $with eq "with" or die "$usage `with' missing for ftp media\n"; + $with eq "with" or die( sprintf _( "$usage `with' missing for ftp media\n")); } my $urpm = new urpm; |