From ceba0d48c851f98f007befe43a26306285a75294 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Sun, 29 Jun 2014 22:45:15 +0200 Subject: start porting edit-urpm-sources.pl to YUI --- modules/rpmdragora/edit-urpm-sources.pl | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'modules') diff --git a/modules/rpmdragora/edit-urpm-sources.pl b/modules/rpmdragora/edit-urpm-sources.pl index 42b095f9..5f6bb65b 100755 --- a/modules/rpmdragora/edit-urpm-sources.pl +++ b/modules/rpmdragora/edit-urpm-sources.pl @@ -23,17 +23,24 @@ # $Id: edit-urpm-sources.pl 244763 2008-09-04 16:12:52Z tv $ use strict; -use lib qw(/usr/lib/libDrakX); use AdminPanel::Rpmdragora::init; -use standalone; use AdminPanel::rpmdragora; -use common; +use common qw(N); use AdminPanel::Rpmdragora::edit_urpm_sources; +use AdminPanel::Privileges; -require_root_capability(); +if (AdminPanel::Privileges::require_root_capability()) { + require AdminPanel::Shared::GUI; + my $sh_gui = AdminPanel::Shared::GUI->new(); + $sh_gui->warningMsgBox({ + title => "gurpmi.addmedia", + text => N("root privileges required"), + }); + exit (-1); +} -readconf(); +AdminPanel::rpmdragora::readconf(); -run(); +AdminPanel::Rpmdragora::edit_urpm_sources::run(); -myexit 0; +AdminPanel::rpmdragora::myexit 0; -- cgit v1.2.1