Add support for --no-verify-rpm to gurpmi

1 files changed, 17 insertions, 1 deletions

diff --git a/gurpmi.pm b/gurpmi.pm
index 410602f6..489cc8a6 100644
--- a/gurpmi.pm
+++ b/gurpmi.pm
@@ -20,7 +20,7 @@ use strict;
 
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(usage fatal but quit add_button_box new_label);
+our @EXPORT = qw(fatal but quit add_button_box new_label);
 
 sub usage () {
     print STDERR <<USAGE;
@@ -34,6 +34,22 @@ USAGE
 #- fatal gurpmi initialisation error (*not* fatal urpmi errors)
 sub fatal { print STDERR "$_[0]\n"; exit 1 }
 
+#- Parse command line
+#- puts options in %gurpmi::options
+sub parse_command_line {
+    my @all_rpms;
+    our %options;
+    foreach (@ARGV) {
+	if (/^-/) {
+	    $_ eq '--no-verify-rpm' and $options{'no-verify-rpm'} = 1;
+	    /^--?[hv?]/ and usage();
+	    fatal(N("Unknown option %s", $_));
+	}
+	push @all_rpms, $_;
+    }
+    return @all_rpms or fatal(N("No packages specified"));
+}
+
 sub but ($) { "    $_[0]    " }
 
 sub quit () { Gtk2->main_quit }