diff options
author | Francois Pons <fpons@mandriva.com> | 2001-02-16 13:01:02 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2001-02-16 13:01:02 +0000 |
commit | a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd (patch) | |
tree | 0865be280c28fac5d5c0c4df70030cd06cba5a00 /urpmi.addmedia | |
parent | ec45c9cfff35dd390422a2b0ea40dc60cf9f2bc0 (diff) | |
download | urpmi-a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd.tar urpmi-a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd.tar.gz urpmi-a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd.tar.bz2 urpmi-a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd.tar.xz urpmi-a73a3e74e32ec5360b62c68f8a80b55a4b79bfdd.zip |
*** empty log message ***
Diffstat (limited to 'urpmi.addmedia')
-rwxr-xr-x | urpmi.addmedia | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/urpmi.addmedia b/urpmi.addmedia index 0ef150bf..8917a945 100755 --- a/urpmi.addmedia +++ b/urpmi.addmedia @@ -35,21 +35,21 @@ sub main { 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>_<number>://<path> + 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> ")); $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( sprintf _( "$usage device `$dev' do not exist\n")); + $dev && -e "/dev/$dev" or die(sprintf _("%s\ndevice `%s' do not exist\n"), $usage, $dev); } elsif ($with eq "with") { - $relative_hdlist or die( sprintf _( "$usage <relative path of hdlist> missing\n")); + $relative_hdlist or die(sprintf _("%s\n<relative path of hdlist> missing\n"), $usage); } elsif ($with) { - $with eq "with" or die( sprintf _( "$usage `with' missing for ftp media\n")); + $with eq "with" or die(sprintf _("%s\n`with' missing for ftp media\n"), $usage); } my $urpm = new urpm; |