From 966c3455e83e8421f9e76b73502477af2d5397b2 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 24 Jan 2005 16:15:29 +0000
Subject: Add support for --no-verify-rpm to gurpmi

---
 gurpmi.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to 'gurpmi.pm')

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 }
-- 
cgit v1.2.1