From fc9772f1f03684e8dab50ff77d2c46c5e0309c7b Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 16 Mar 2015 18:16:50 +0100 Subject: Moved to namespace to ManaTools --- modules/rpmdragora/dragora-urpm-addmedia | 44 +++++++++++------------ modules/rpmdragora/dragora-urpm-sources.pl | 24 ++++++------- modules/rpmdragora/dragoraUpdate | 46 ++++++++++++------------ modules/rpmdragora/rpmdragora | 58 +++++++++++++++--------------- 4 files changed, 86 insertions(+), 86 deletions(-) (limited to 'modules/rpmdragora') diff --git a/modules/rpmdragora/dragora-urpm-addmedia b/modules/rpmdragora/dragora-urpm-addmedia index 136c5067..4d3c8704 100755 --- a/modules/rpmdragora/dragora-urpm-addmedia +++ b/modules/rpmdragora/dragora-urpm-addmedia @@ -44,23 +44,23 @@ and [options] are from exit(0); }; } -use AdminPanel::Rpmdragora::init; -use AdminPanel::rpmdragora; -use AdminPanel::Rpmdragora::open_db; -use AdminPanel::Rpmdragora::formatting; -use AdminPanel::Shared::Locales; -use AdminPanel::Privileges; +use ManaTools::Rpmdragora::init; +use ManaTools::rpmdragora; +use ManaTools::Rpmdragora::open_db; +use ManaTools::Rpmdragora::formatting; +use ManaTools::Shared::Locales; +use ManaTools::Privileges; use urpm::media; use MDK::Common::File qw(cat_); -my $loc = AdminPanel::rpmdragora::locale(); +my $loc = ManaTools::rpmdragora::locale(); # -if (AdminPanel::Privileges::is_root_capability_required()) { - require AdminPanel::Shared::GUI; - my $sh_gui = AdminPanel::Shared::GUI->new(); +if (ManaTools::Privileges::is_root_capability_required()) { + require ManaTools::Shared::GUI; + my $sh_gui = ManaTools::Shared::GUI->new(); $sh_gui->warningMsgBox({ title => "gurpmi.addmedia", text => $loc->N("root privileges required"), @@ -68,13 +68,13 @@ if (AdminPanel::Privileges::is_root_capability_required()) { exit (-1); } -use AdminPanel::rpmdragora; +use ManaTools::rpmdragora; use Getopt::Long; ## TODO remove as soon as possible $::isStandalone = 1; -AdminPanel::rpmdragora::readconf(); +ManaTools::rpmdragora::readconf(); my $fromfile; if (@ARGV == 1 && $ARGV[0] =~ /\.urpmi-media$/) { @@ -110,10 +110,10 @@ while (@ARGV) { } elsif ($distrib) { ($name, $url) = ('', $name); } elsif ($url !~ m,^(([^:]*):/)?/,) { - AdminPanel::rpmdragora::interactive_msg('gurpmi.addmedia', - AdminPanel::Rpmdragora::formatting::escape_text_for_TextView_markup_format( + ManaTools::rpmdragora::interactive_msg('gurpmi.addmedia', + ManaTools::Rpmdragora::formatting::escape_text_for_TextView_markup_format( $loc->N("bad (for local directory, the path must be absolute)") . "\n\n$url")); - AdminPanel::rpmdragora::myexit(-1); + ManaTools::rpmdragora::myexit(-1); } push @addmedia_args, [ $name, $url ]; push @names, $name; @@ -125,7 +125,7 @@ if ($mirrorlist && $distrib && !@addmedia_args) { } $fromfile and do { - AdminPanel::rpmdragora::interactive_msg('gurpmi.addmedia', + ManaTools::rpmdragora::interactive_msg('gurpmi.addmedia', $loc->N("%s Is it ok to continue?", @@ -141,14 +141,14 @@ to your system from these new media.", join ", ", @names) That means you will be able to add new software packages to your system from that new medium.", $names[0]) ), - yesno => 1) or AdminPanel::rpmdragora::myexit(-1); + yesno => 1) or ManaTools::rpmdragora::myexit(-1); }; -my $urpm = AdminPanel::Rpmdragora::open_db::fast_open_urpmi_db(); +my $urpm = ManaTools::Rpmdragora::open_db::fast_open_urpmi_db(); my $success = 1; foreach (@addmedia_args) { #- NB: that short circuits - $success = $success && AdminPanel::rpmdragora::add_medium_and_check( + $success = $success && ManaTools::rpmdragora::add_medium_and_check( $urpm, { distrib => $distrib }, $_->[0], @@ -165,8 +165,8 @@ if ($success) { : @names > 1 ? $loc->N("Successfully added media %s.", join ", ", @names) : $loc->N("Successfully added medium `%s'.", $names[0]); - AdminPanel::rpmdragora::interactive_msg('gurpmi.addmedia', $message) if !$silent_success; - AdminPanel::rpmdragora::myexit(0); + ManaTools::rpmdragora::interactive_msg('gurpmi.addmedia', $message) if !$silent_success; + ManaTools::rpmdragora::myexit(0); } else { - AdminPanel::rpmdragora::myexit(-1); + ManaTools::rpmdragora::myexit(-1); } diff --git a/modules/rpmdragora/dragora-urpm-sources.pl b/modules/rpmdragora/dragora-urpm-sources.pl index adf127b9..a0895ff1 100755 --- a/modules/rpmdragora/dragora-urpm-sources.pl +++ b/modules/rpmdragora/dragora-urpm-sources.pl @@ -23,17 +23,17 @@ # $Id: edit-urpm-sources.pl 244763 2008-09-04 16:12:52Z tv $ -use AdminPanel::Rpmdragora::init; -use AdminPanel::rpmdragora; -use AdminPanel::Rpmdragora::edit_urpm_sources qw(run); -use AdminPanel::Privileges; -use AdminPanel::Shared::Locales; +use ManaTools::Rpmdragora::init; +use ManaTools::rpmdragora; +use ManaTools::Rpmdragora::edit_urpm_sources qw(run); +use ManaTools::Privileges; +use ManaTools::Shared::Locales; -my $loc = AdminPanel::rpmdragora::locale(); +my $loc = ManaTools::rpmdragora::locale(); -if (AdminPanel::Privileges::is_root_capability_required()) { - require AdminPanel::Shared::GUI; - my $sh_gui = AdminPanel::Shared::GUI->new(); +if (ManaTools::Privileges::is_root_capability_required()) { + require ManaTools::Shared::GUI; + my $sh_gui = ManaTools::Shared::GUI->new(); $sh_gui->warningMsgBox({ title => $loc->N("Configure media"), text => $loc->N("root privileges required"), @@ -41,8 +41,8 @@ if (AdminPanel::Privileges::is_root_capability_required()) { exit (-1); } -AdminPanel::rpmdragora::readconf(); +ManaTools::rpmdragora::readconf(); -AdminPanel::Rpmdragora::edit_urpm_sources::run(); +ManaTools::Rpmdragora::edit_urpm_sources::run(); -AdminPanel::rpmdragora::myexit 0; +ManaTools::rpmdragora::myexit 0; diff --git a/modules/rpmdragora/dragoraUpdate b/modules/rpmdragora/dragoraUpdate index 8b84af52..ca7b415e 100755 --- a/modules/rpmdragora/dragoraUpdate +++ b/modules/rpmdragora/dragoraUpdate @@ -30,15 +30,15 @@ use strict; use MDK::Common::Func 'any'; use File::ShareDir ':ALL'; -use AdminPanel::Rpmdragora::init; +use ManaTools::Rpmdragora::init; -use AdminPanel::rpmdragora; -use AdminPanel::Rpmdragora::gui; -use AdminPanel::Rpmdragora::rpmnew; -use AdminPanel::Rpmdragora::formatting; -use AdminPanel::Rpmdragora::pkg; -use AdminPanel::Shared::Locales; -use AdminPanel::Shared::GUI; +use ManaTools::rpmdragora; +use ManaTools::Rpmdragora::gui; +use ManaTools::Rpmdragora::rpmnew; +use ManaTools::Rpmdragora::formatting; +use ManaTools::Rpmdragora::pkg; +use ManaTools::Shared::Locales; +use ManaTools::Shared::GUI; use yui; @@ -59,7 +59,7 @@ use yui; our $w; # TODO try to see if we can Moosify all! our $statusbar; -my $loc = AdminPanel::rpmdragora::locale(); +my $loc = ManaTools::rpmdragora::locale(); warn_about_user_mode(); @@ -114,7 +114,7 @@ sub _refresh_packages_list { if ($importance) { my $update_label = ""; if (yui::YUI::app()->hasImageSupport()) { - $icon = File::ShareDir::dist_file(AdminPanel::Shared::distName(), $update_icons{$importance}->{icon}); + $icon = File::ShareDir::dist_file(ManaTools::Shared::distName(), $update_icons{$importance}->{icon}); } else { # For ncurses set a label @@ -244,7 +244,7 @@ sub run_treeview_dialog { my $hbox_iconbar = $factory->createHBox($vbox); my $head_align_left = $factory->createLeft($hbox_iconbar); $hbox_iconbar = $factory->createHBox($head_align_left); - my $wm_icon = File::ShareDir::dist_file(AdminPanel::Shared::distName(), $update_icons{'title'}->{icon}); + my $wm_icon = File::ShareDir::dist_file(ManaTools::Shared::distName(), $update_icons{'title'}->{icon}); $factory->createImage($hbox_iconbar, $wm_icon); $factory->createHeading($hbox_iconbar, $update_icons{'title'}->{text}); @@ -287,7 +287,7 @@ sub run_treeview_dialog { $statusbar = $factory->createBusyIndicator($vbox, "" ); $statusbar->setWeight(0, 1); - $AdminPanel::Rpmdragora::pkg::probe_only_for_updates = 1; # faster startup + $ManaTools::Rpmdragora::pkg::probe_only_for_updates = 1; # faster startup pkgs_provider('all_updates', pure_updates => 1); # default mode @@ -299,7 +299,7 @@ sub run_treeview_dialog { my $item = $packageTbl->selectedItem(); if ($item) { my $pkg = $data{$item->index()}{fullname}; - AdminPanel::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); + ManaTools::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); } my $info_options = {}; @@ -317,14 +317,14 @@ sub run_treeview_dialog { if (!$item) { #URL emitted or at least a ref into RichText widget my $url = yui::toYMenuEvent($event)->id (); - if (AdminPanel::Rpmdragora::gui::info_details($url, $info_options) ) { + if (ManaTools::Rpmdragora::gui::info_details($url, $info_options) ) { $item = $packageTbl->selectedItem(); my $pkg = $data{$item->index()}{fullname}; - AdminPanel::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox, $info_options); + ManaTools::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox, $info_options); } else { # default it's really a URL - AdminPanel::Rpmdragora::gui::run_browser($url); + ManaTools::Rpmdragora::gui::run_browser($url); } } } @@ -339,7 +339,7 @@ sub run_treeview_dialog { my $translators = $loc->N("_: Translator(s) name(s) & email(s)\n"); $translators =~ s/\/\>\;/g; - my $sh_gui = AdminPanel::Shared::GUI->new(); + my $sh_gui = ManaTools::Shared::GUI->new(); $sh_gui->AboutDialog({ name => "dragoraUpdate", version => $VERSION, @@ -361,7 +361,7 @@ sub run_treeview_dialog { if ($item) { my $pkg = $data{$item->index()}{fullname}; $info_options = {}; - AdminPanel::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); + ManaTools::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); } my $wEvent = yui::toYWidgetEvent($event); if ($wEvent->reason() == $yui::YEvent::ValueChanged) { @@ -396,7 +396,7 @@ sub run_treeview_dialog { $item = $packageTbl->selectedItem(); if ($item) { my $pkg = $data{$item->index()}{fullname}; - AdminPanel::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); + ManaTools::Rpmdragora::gui::setInfoOnWidget($pkg, $infoBox); } } } @@ -408,7 +408,7 @@ sub run_treeview_dialog { } if (!$num_pkgs) { - AdminPanel::rpmdragora::interactive_msg( + ManaTools::rpmdragora::interactive_msg( $loc->N("rpmdragora update"), $loc->N("The list of updates is empty. This means that either there is no available update for the packages installed on your computer, or you already installed all of them."), scroll => 1, @@ -424,13 +424,13 @@ sub run_treeview_dialog { } # -=-=-=---=-=-=---=-=-=-- main -=-=-=---=-=-=---=-=-=- -AdminPanel::Rpmdragora::rpmnew::do_merge_if_needed(); +ManaTools::Rpmdragora::rpmnew::do_merge_if_needed(); -AdminPanel::rpmdragora::readconf(); +ManaTools::rpmdragora::readconf(); init(); run_treeview_dialog(\&perform_installation); -AdminPanel::rpmdragora::writeconf(); +ManaTools::rpmdragora::writeconf(); # myexit(0); diff --git a/modules/rpmdragora/rpmdragora b/modules/rpmdragora/rpmdragora index ccfc2246..938eb207 100755 --- a/modules/rpmdragora/rpmdragora +++ b/modules/rpmdragora/rpmdragora @@ -38,15 +38,15 @@ use MDK::Common::System qw(arch); use urpm::media; use urpm::msg; -use AdminPanel::Rpmdragora::init; -use AdminPanel::rpmdragora; -use AdminPanel::Shared; -use AdminPanel::Shared::Locales; -use AdminPanel::Rpmdragora::open_db; -use AdminPanel::Rpmdragora::gui; -use AdminPanel::Rpmdragora::rpmnew; -use AdminPanel::Rpmdragora::formatting; -use AdminPanel::Rpmdragora::pkg; +use ManaTools::Rpmdragora::init; +use ManaTools::rpmdragora; +use ManaTools::Shared; +use ManaTools::Shared::Locales; +use ManaTools::Rpmdragora::open_db; +use ManaTools::Rpmdragora::gui; +use ManaTools::Rpmdragora::rpmnew; +use ManaTools::Rpmdragora::formatting; +use ManaTools::Rpmdragora::pkg; use yui; @@ -69,7 +69,7 @@ my @itemsToBeInstalled; our $w; our $statusbar; -my $loc = AdminPanel::rpmdragora::locale(); +my $loc = ManaTools::rpmdragora::locale(); my %elems; @@ -202,7 +202,7 @@ sub _detaillist_callback { $info->setValue(""); return if( ref $selection ne "yui::YItem"); - AdminPanel::Rpmdragora::gui::setInfoOnWidget($options->{table_item_list}[$selection->index()], $info, $show_options); + ManaTools::Rpmdragora::gui::setInfoOnWidget($options->{table_item_list}[$selection->index()], $info, $show_options); } sub _do_search($$$$$$) { @@ -303,7 +303,7 @@ sub _do_search($$$$$$) { ($current_search_type eq 'files' ? 'files' : 'info'), undef, sub { - $gurpm ||= AdminPanel::Rpmdragora::gurpm->new( + $gurpm ||= ManaTools::Rpmdragora::gurpm->new( text => $loc->N("Please wait"), main_dialog => $searchw, parent => $replace_pnt, @@ -375,7 +375,7 @@ sub _do_search($$$$$$) { $elems{$results_ok} = [ map { [ $_, $results_ok ] } @search_results ]; # $iter = $options->{add_parent}->($tree, $results_ok); - AdminPanel::Rpmdragora::gui::add_tree_item($tree, $results_ok, 1); + ManaTools::Rpmdragora::gui::add_tree_item($tree, $results_ok, 1); $options->{add_nodes}->(map { [ $_, $results_ok . ($options->{tree_mode} eq 'by_presence' ? '|' . ($pkgs->{$_}{pkg}->flag_installed ? $loc->N("Upgradable") : $loc->N("Addable")) : ($options->{tree_mode} eq 'by_selection' @@ -383,7 +383,7 @@ sub _do_search($$$$$$) { : '')) ] } @search_results); } else { - AdminPanel::Rpmdragora::gui::add_tree_item($tree, $results_none, 1); + ManaTools::Rpmdragora::gui::add_tree_item($tree, $results_none, 1); # $iter = $options->{add_parent}->($tree, $results_none); # clear package list: $options->{add_nodes}->(); @@ -632,12 +632,12 @@ sub _run_treeview_dialog { $find_entry = $factory->createInputField($hbox_top, ""); - my $icon_file = File::ShareDir::dist_file(AdminPanel::Shared::distName(), "images/manalog.png"); + my $icon_file = File::ShareDir::dist_file(ManaTools::Shared::distName(), "images/manalog.png"); my $find_button = $factory->createIconButton($hbox_top, $icon_file, $loc->N("Search")); $find_button->setWeight(0,6); $my_win->setDefaultButton($find_button); - $icon_file = File::ShareDir::dist_file(AdminPanel::Shared::distName(), "images/rpmdragora/clear_22x22.png"); + $icon_file = File::ShareDir::dist_file(ManaTools::Shared::distName(), "images/rpmdragora/clear_22x22.png"); my $reset_search_button = $factory->createIconButton($hbox_top, $icon_file, $loc->N("Reset")); $reset_search_button->setWeight(0,7); $find_entry->setWeight(0,10); @@ -678,8 +678,8 @@ sub _run_treeview_dialog { my $reload_db_and_clear_all = sub { slow_func(sub { $force_rebuild = 1; - AdminPanel::Rpmdragora::gui::pkgs_provider($options->{tree_mode}, skip_updating_mu => 1); - AdminPanel::Rpmdragora::gui::reset_search(); + ManaTools::Rpmdragora::gui::pkgs_provider($options->{tree_mode}, skip_updating_mu => 1); + ManaTools::Rpmdragora::gui::reset_search(); $size_selected = 0; $options->{rebuild_tree}->(); $find_callback->(); @@ -821,8 +821,8 @@ sub _run_treeview_dialog { }, undef, '' ], [ $loc->N("/_Options") . $loc->N("/_Media Manager"), undef, sub { - require AdminPanel::Rpmdragora::edit_urpm_sources; - AdminPanel::Rpmdragora::edit_urpm_sources::run() && $reload_db_and_clear_all->(); + require ManaTools::Rpmdragora::edit_urpm_sources; + ManaTools::Rpmdragora::edit_urpm_sources::run() && $reload_db_and_clear_all->(); }, undef, '' ], [ $loc->N("/_Options") . $loc->N("/_Show automatically selected packages"), undef, sub { $dont_show_selections->[0] = !$checkbox_show_autoselect->get_active; @@ -850,12 +850,12 @@ sub _run_treeview_dialog { } qw(flat by_group by_leaves by_presence by_selection by_size by_source)), [ $loc->N("/_Help"), undef, undef, undef, '' ], [ $loc->N("/_Help") . $loc->N("/_Report Bug"), undef, sub { run_drakbug('rpmdragora') }, undef, '' ], - [ $loc->N("/_Help") . $loc->N("/_Help"), undef, sub { AdminPanel::rpmdragora::open_help('') }, undef, '' ], + [ $loc->N("/_Help") . $loc->N("/_Help"), undef, sub { ManaTools::rpmdragora::open_help('') }, undef, '' ], [ $loc->N("/_Help") . $loc->N("/_About..."), undef, sub { my $license = formatAlaTeX(translate($::license)); $license =~ s/\n/\n\n/sg; # nicer formatting my $w = gtknew('AboutDialog', name => $loc->N("Rpmdragora"), - version => $AdminPanel::Rpmdragora::init::version, + version => $ManaTools::Rpmdragora::init::version, copyright => $loc->N("Copyright (C) %s by Mandriva", '2002-2009')."\n".$loc->N("Copyright (C) %s by Mageia.Org", '2010-2013'), license => $license, wrap_license => 1, comments => $loc->N("Rpmdragora is the Mageia package management tool."), @@ -1039,13 +1039,13 @@ sub _run_treeview_dialog { if (!$item) { #URL emitted or at least a ref into RichText widget my $url = yui::toYMenuEvent($event)->id (); - if (AdminPanel::Rpmdragora::gui::info_details($url, $info_options) ) { + if (ManaTools::Rpmdragora::gui::info_details($url, $info_options) ) { $item = $detail_list->selectedItem(); _detaillist_callback($item, $info, \%$options, $info_options); } else { # default it's really a URL - AdminPanel::Rpmdragora::gui::run_browser($url); + ManaTools::Rpmdragora::gui::run_browser($url); } } else { @@ -1080,8 +1080,8 @@ print "Menu " . $menuLabel . " chosen\n"; $reload_db_and_clear_all->(); } elsif ($menuLabel eq $settingsMenuLabel{media_manager}) { - require AdminPanel::Rpmdragora::edit_urpm_sources; - AdminPanel::Rpmdragora::edit_urpm_sources::run() && $reload_db_and_clear_all->(); + require ManaTools::Rpmdragora::edit_urpm_sources; + ManaTools::Rpmdragora::edit_urpm_sources::run() && $reload_db_and_clear_all->(); } elsif ($menuLabel eq $settingsMenuLabel{options}) { } @@ -1089,7 +1089,7 @@ print "Menu " . $menuLabel . " chosen\n"; my $translators = $loc->N("_: Translator(s) name(s) & email(s)\n"); $translators =~ s/\/\>\;/g; - my $sh_gui = AdminPanel::Shared::GUI->new(); + my $sh_gui = ManaTools::Shared::GUI->new(); $sh_gui->AboutDialog({ name => "Rpmdragora", version => $VERSION, credits => $loc->N("Copyright (C) %s Mageia community", '2013-2014'), @@ -1182,7 +1182,7 @@ print "Menu " . $menuLabel . " chosen\n"; # -=-=-=---=-=-=---=-=-=-- main -=-=-=---=-=-=---=-=-=- -if (my $pid = AdminPanel::Shared::isProcessRunning('rpmdragora')) { +if (my $pid = ManaTools::Shared::isProcessRunning('rpmdragora')) { interactive_msg($loc->N("Warning"), $loc->N("rpmdragora is already running (pid: %s)", $pid), yesno => [ $loc->N("Quit") ]); exit(0); } @@ -1206,7 +1206,7 @@ $my_win = $factory->createMainDialog; readconf(); -AdminPanel::Rpmdragora::rpmnew::do_merge_if_needed(); +ManaTools::Rpmdragora::rpmnew::do_merge_if_needed(); init(); -- cgit v1.2.1