Moved to namespace to ManaTools

37 files changed, 479 insertions, 479 deletions

diff --git a/lib/AdminPanel/Category.pm b/lib/AdminPanel/Category.pm
index 5448f1a..4ef7fa7 100644
--- a/lib/AdminPanel/Category.pm
+++ b/lib/AdminPanel/Category.pm
@@ -1,24 +1,24 @@
 # vim: set et ts=4 sw=4:
 #    Copyright 2012 Steven Tucker
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 
 #Class Category
-package AdminPanel::Category;
+package ManaTools::Category;
 
 use strict;
 use warnings;
@@ -56,7 +56,7 @@ sub new {
         icon    => 0,
         modules => [],
     };
-    bless $self, 'AdminPanel::Category';
+    bless $self, 'ManaTools::Category';
 
     $self->{name} = $newName;
     $self->{icon} = $newIcon;
diff --git a/lib/AdminPanel/ConfigReader.pm b/lib/AdminPanel/ConfigReader.pm
index 1c905c9..792dc0e 100644
--- a/lib/AdminPanel/ConfigReader.pm
+++ b/lib/AdminPanel/ConfigReader.pm
@@ -1,24 +1,24 @@
 # vim: set et ts=4 sw=4:
 #    Copyright 2012 Steven Tucker
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 
 #Class ConfigReader
-package AdminPanel::ConfigReader;
+package ManaTools::ConfigReader;
 
 use strict;
 use warnings;
@@ -28,7 +28,7 @@ use Data::Dumper;
 
 sub new {
     my ($class, $fileName) = @_;
-    
+
     my $self = {
         data        => 0,
         catLen      => 0,
@@ -37,8 +37,8 @@ sub new {
         currMod     => 0,
         placeHolder => 0,
     };
-    bless $self, 'AdminPanel::ConfigReader';
-    
+    bless $self, 'ManaTools::ConfigReader';
+
     my $xml = new XML::Simple (KeyAttr=>[]);
     $self->{data} = $xml->XMLin($fileName);
     if (ref($self->{data}->{category}) eq "HASH") {
@@ -50,7 +50,7 @@ sub new {
     }
     $self->{catLen} = scalar(@{$self->{data}->{category}});
     $self->{currCat} = -1;
-    
+
     if(ref(@{$self->{data}->{category}}[0]->{module}) eq "ARRAY") {
         $self->{modLen} = scalar(@{@{$self->{data}->{category}}[0]->{module}});
     } else {
@@ -63,7 +63,7 @@ sub new {
 
 sub hasNextCat {
     my ($self) = @_;
-    
+
     if($self->{currCat} + 1 >= $self->{catLen}) {
         return 0;
     }
@@ -72,12 +72,12 @@ sub hasNextCat {
 
 sub getNextCat {
     my ($self) = @_;
-    
+
     $self->{currCat}++;
     if($self->{currCat} >= $self->{catLen}) {
         return 0;
     }
-    
+
     # Reset the Module Count and Mod length for new Category
     $self->{currMod} = -1;
     if(ref(@{$self->{data}->{category}}[$self->{currCat}]->{module}) eq "ARRAY") {
@@ -87,7 +87,7 @@ sub getNextCat {
     }
 
     my $tmp = @{$self->{data}->{category}}[$self->{currCat}];
-    
+
     return $tmp;
 }
 
diff --git a/lib/AdminPanel/MainDisplay.pm b/lib/AdminPanel/MainDisplay.pm
index f7c959b..19d0a7f 100644
--- a/lib/AdminPanel/MainDisplay.pm
+++ b/lib/AdminPanel/MainDisplay.pm
@@ -1,32 +1,32 @@
 # vim: set et ts=4 sw=4:
 #    Copyright 2012 Steven Tucker
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 
-package AdminPanel::MainDisplay;
+package ManaTools::MainDisplay;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::MainDisplay - class for AdminPaneol main window
+ManaTools::MainDisplay - class for AdminPaneol main window
 
 =head1 SYNOPSIS
 
-       $mainDisplay = new AdminPanel::MainDisplay();
+       $mainDisplay = new ManaTools::MainDisplay();
        $mainDisplay->start();
        $mainDisplay->destroy();
 
@@ -44,7 +44,7 @@ exported
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::MainDisplay
+perldoc ManaTools::MainDisplay
 
 =head1 SEE ALSO
 
@@ -59,18 +59,18 @@ Steven Tucker
 Copyright (C) 2012, Steven Tucker
 Copyright (C) 2014, Angelo Naselli.
 
-AdminPanel is free software: you can redistribute it and/or modify
+ManaTools is free software: you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation, either version 2 of the License, or
 (at your option) any later version.
 
-AdminPanel is distributed in the hope that it will be useful,
+ManaTools is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 =head1 FUNCTIONS
 
@@ -89,13 +89,13 @@ our $VERSION = '1.0.0';
 use strict;
 use warnings;
 use diagnostics;
-use AdminPanel::SettingsReader;
-use AdminPanel::ConfigReader;
-use AdminPanel::Category;
-use AdminPanel::Module;
-use AdminPanel::Shared;
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
+use ManaTools::SettingsReader;
+use ManaTools::ConfigReader;
+use ManaTools::Category;
+use ManaTools::Module;
+use ManaTools::Shared;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
 use File::ShareDir ':ALL';
 
 use yui;
@@ -137,10 +137,10 @@ sub new {
         loc          => 0,
         replacePoint => 0,
     };
-    bless $self, 'AdminPanel::MainDisplay';
+    bless $self, 'ManaTools::MainDisplay';
 
 ## Default values
-    $self->{name} =     "Administration panel";
+    $self->{name} =     "Mana-tools panel";
     $self->{categories} = [];
     $self->{confDir}    = "/etc/mpan",
     $self->{title}      = "mpan",
@@ -164,7 +164,7 @@ sub new {
     }
 
     # TODO localize
-    $self->{loc} = AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone');
+    $self->{loc} = ManaTools::Shared::Locales->new(domain_name => 'libDrakX-standalone');
     $self->setupGui();
 
     return $self;
@@ -177,12 +177,12 @@ sub _showAboutDialog {
     my $translators = $self->{loc}->N("_: Translator(s) name(s) & email(s)\n");
     $translators =~ s/\</\&lt\;/g;
     $translators =~ s/\>/\&gt\;/g;
-    my $sh_gui = AdminPanel::Shared::GUI->new();
+    my $sh_gui = ManaTools::Shared::GUI->new();
     $sh_gui->AboutDialog({ name => $self->{name},
-        version => $AdminPanel::MainDisplay::VERSION,
+        version => $ManaTools::MainDisplay::VERSION,
         credits => $self->{loc}->N("Copyright (C) %s Mageia community", '2013-2015'),
         license => $self->{loc}->N("GPLv2"),
-        description => $self->{loc}->N("mpan is the administration panel that collects all the utilities."),
+        description => $self->{loc}->N("mpan is the mana-tools panel that collects all the utilities."),
         authors => $self->{loc}->N("<h3>Developers</h3>
                                     <ul><li>%s</li>
                                         <li>%s</li>
@@ -311,7 +311,7 @@ sub setupGui {
     yui::YUI::app()->setApplicationTitle($self->{name});
     my $icon = defined($self->{settings}->{icon}) ?
                $self->{settings}->{icon} :
-               File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/mageia.png');
+               File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/mageia.png');
 
     yui::YUI::app()->setApplicationIcon($icon);
 
@@ -363,7 +363,7 @@ sub setupGui {
     #logo from settings
     my $logofile = defined($self->{settings}->{logo}) ?
                $self->{settings}->{logo} :
-               File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/logo_mageia.png');
+               File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/logo_mageia.png');
 
     my $logo = $self->{factory}->createImage($self->{leftPane}, $logofile);
     $logo->setAutoScale(1);
@@ -378,7 +378,7 @@ sub setupGui {
     $self->{aboutButton}->setStretchable(0, 1);
 
     $self->{exitButton}  = $self->{factory}->createPushButton($self->{leftPane}, "&Quit");
-    my $quitIcon = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/quit.png');
+    my $quitIcon = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/quit.png');
     $self->{exitButton}->setIcon($quitIcon);
     $self->{exitButton}->setStretchable(0, 1);
 }
@@ -446,7 +446,7 @@ sub _loadSettings {
     my $fileName = "$self->{confDir}/settings.conf";
     die "Configuration file missing" if (! -e $fileName);
     if (!$self->{settings} || $force_load) {
-        $self->{settings} = new AdminPanel::SettingsReader($fileName);
+        $self->{settings} = new ManaTools::SettingsReader($fileName);
     }
 }
 
@@ -567,7 +567,7 @@ sub _loadCategories {
     my $currCategory;
 
     foreach $fileName (@categoryFiles) {
-        my $inFile = new AdminPanel::ConfigReader($fileName);
+        my $inFile = new ManaTools::ConfigReader($fileName);
         my $tmpCat;
         my $tmp;
         my $hasNextCat = $inFile->hasNextCat();
@@ -575,7 +575,7 @@ sub _loadCategories {
             $tmp = $inFile->getNextCat();
             $tmpCat = $self->_getCategory($tmp->{title});
             if (!$tmpCat) {
-                $tmpCat = new AdminPanel::Category($tmp->{title}, $tmp->{icon});
+                $tmpCat = new ManaTools::Category($tmp->{title}, $tmp->{icon});
             }
             $self->_loadCategory($tmpCat);
             $hasNextCat  = $inFile->hasNextCat();
@@ -589,7 +589,7 @@ sub _loadCategories {
 
                 if (exists $tmp->{title}) {
                     if (not $currCategory->moduleLoaded($tmp->{title})) {
-                        $tmpMod = AdminPanel::Module->create(name => $tmp->{title},
+                        $tmpMod = ManaTools::Module->create(name => $tmp->{title},
                                                              icon => $tmp->{icon},
                                                              launch => $tmp->{launcher}
                         );
@@ -597,7 +597,7 @@ sub _loadCategories {
                 }
                 elsif (exists $tmp->{class}) {
                     if (not $currCategory->moduleLoaded(-CLASS => $tmp->{class})) {
-                        $tmpMod = AdminPanel::Module->create(-CLASS => $tmp->{class});
+                        $tmpMod = ManaTools::Module->create(-CLASS => $tmp->{class});
                     }
                 }
                 if ($tmpMod) {
diff --git a/lib/AdminPanel/Module.pm b/lib/AdminPanel/Module.pm
index cd8c64e..1e13d92 100644
--- a/lib/AdminPanel/Module.pm
+++ b/lib/AdminPanel/Module.pm
@@ -1,24 +1,24 @@
 # vim: set et ts=4 sw=4:
 #    Copyright 2012 Steven Tucker
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 
 #Class Module
-package AdminPanel::Module;
+package ManaTools::Module;
 
 use Moose;
 
@@ -48,7 +48,7 @@ sub create {
     my $obj;
     if ( exists $params{-CLASS} ) {
         my $driver = $params{-CLASS};
-        
+
         eval {
             my $pkg = $driver;
             $pkg =~ s/::/\//g;
@@ -62,7 +62,7 @@ sub create {
         }
     }
     else {
-        $obj = new AdminPanel::Module(@_);
+        $obj = new ManaTools::Module(@_);
     }
     return $obj;
 }
@@ -153,7 +153,7 @@ sub start {
         my $err = yui::YUI::app()->runInTerminal( $self->{launch} . " --ncurses");
         if ($err == -1) {
             system($self->{launch});
-        }   
+        }
     }
 }
 
diff --git a/lib/AdminPanel/Module/AdminMouse.pm b/lib/AdminPanel/Module/AdminMouse.pm
index 071a8f3..279fb76 100644
--- a/lib/AdminPanel/Module/AdminMouse.pm
+++ b/lib/AdminPanel/Module/AdminMouse.pm
@@ -1,27 +1,27 @@
 # vim: set et ts=4 sw=4:
 #*****************************************************************************
-# 
+#
 #  Copyright (c) 2013 - 2015 Angelo Naselli <anaselli@linux.it>
 #  from drakx services
-# 
+#
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License version 2, as
 #  published by the Free Software Foundation.
-# 
+#
 #  This program is distributed in the hope that it will be useful,
 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #  GNU General Public License for more details.
-# 
+#
 #  You should have received a copy of the GNU General Public License
 #  along with this program; if not, write to the Free Software
 #  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# 
+#
 #*****************************************************************************
 
 # NOTE this module has not been ported and does not work
 # TODO porting it if it is really needed nowadays
-package AdminPanel::Module::AdminMouse;
+package ManaTools::Module::AdminMouse;
 
 #leaving them atm
 use lib qw(/usr/lib/libDrakX);
@@ -34,19 +34,19 @@ use modules;
 use mouse;
 use c;
 
-use AdminPanel::Shared;
+use ManaTools::Shared;
 
 use yui;
 use Moose;
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 has '+icon' => (
     default => "/usr/share/mcc/themes/default/mousedrake-mdk.png",
 );
 
 has '+name' => (
-    default => N("AdminMouse"), 
+    default => N("AdminMouse"),
 );
 
 sub start {
@@ -57,7 +57,7 @@ sub start {
 
 sub _getUntranslatedName {
     my ($self, $name, $list) = @_;
-    
+
     foreach my $n (@{$list}) {
         my @names  = split(/\|/, $n);
         for (my $lev=0; $lev < scalar(@names); $lev++) {
@@ -73,23 +73,23 @@ sub _getUntranslatedName {
 
 sub _adminMouseDialog {
     my $self = shift;
-     
+
     my $datavalue = "TEST";
-    
+
     my $appTitle = yui::YUI::app()->applicationTitle();
-    
+
     ## set new title to get it in dialog
     yui::YUI::app()->setApplicationTitle($self->name);
     ## set icon if not already set by external launcher
     yui::YUI::app()->setApplicationIcon($self->icon);
 
     my $factory      = yui::YUI::widgetFactory;
-    
+
     my $dialog     = $factory->createMainDialog;
     my $vbox       = $factory->createVBox( $dialog );
     my $frame      = $factory->createFrame ($vbox, N("Please choose your type of mouse."));
     my $treeWidget = $factory->createTree($frame, "");
-    
+
     my $modules_conf = modules::any_conf->read;
 
     my $mouse = mouse::read();
@@ -98,17 +98,17 @@ sub _adminMouseDialog {
         my $probed_mouse = mouse::detect($modules_conf);
         $mouse = $probed_mouse if !$mouse->{Protocol} || !$probed_mouse->{unsafe};
     }
-    
+
     if (!$mouse || !$::auto) {
         $mouse ||= mouse::fullname2mouse('Universal|Any PS/2 & USB mice');
-        
+
         my $prev = my $fullname = $mouse->{type} . '|' . $mouse->{name};
         my $selected = $mouse->{name};
-        
-        my $fullList = { list => [ mouse::_fullnames() ], items => [], separator => '|', val => \$fullname, 
+
+        my $fullList = { list => [ mouse::_fullnames() ], items => [], separator => '|', val => \$fullname,
                      format => sub { join('|', map { translate($_) } split('\|', $_[0])) } } ;
-        my $i;             
-        
+        my $i;
+
         my $itemColl = new yui::YItemCollection;
         my @items;
         for ($i=0; $i<scalar(@{$fullList->{list}}); $i++) {
@@ -118,37 +118,37 @@ sub _adminMouseDialog {
             }
             if ($i == 0 || $names[0] ne $items[0]->{label}) {
                 if ($i != 0) {
-                    $itemColl->push($items[0]->{item}); 
+                    $itemColl->push($items[0]->{item});
                     push @{$fullList->{items}}, $items[-1]->{item};;
                 }
-                @items = undef;                
+                @items = undef;
                 my $item = new yui::YTreeItem ($names[0]);
-         
+
                 if ($selected eq $self->_getUntranslatedName($item->label(), $fullList->{list})) {
                     $item->setSelected(1) ;
                     $item->setOpen(1);
-                    my $parent = $item;  
+                    my $parent = $item;
                     while($parent = $parent->parent()) {
-                        $parent->setOpen(1);                                
+                        $parent->setOpen(1);
                     }
                 }
                 $item->DISOWN();
                 @items = ({item => $item, label => $names[0], level => 0});
                 for (my $lev=1; $lev < scalar(@names); $lev++) {
                     $item = new yui::YTreeItem ($items[$lev-1]->{item}, $names[$lev]);
-                    
+
                     if ($selected eq $self->_getUntranslatedName($item->label(), $fullList->{list})) {
                         $item->setSelected(1) ;
                         $item->setOpen(1);
-                        my $parent = $item;  
+                        my $parent = $item;
                         while($parent = $parent->parent()) {
-                            $parent->setOpen(1);                                
+                            $parent->setOpen(1);
                         }
                     }
                     $item->DISOWN();
                     if ($lev < scalar(@names)-1) {
                         push @items, {item => $item, label => $names[$lev], level => $lev};
-                    }                    
+                    }
                 }
             }
             else {
@@ -159,7 +159,7 @@ sub _adminMouseDialog {
                         if ($items[$it]->{label} eq $names[$lev] && $items[$it]->{level} == $lev) {
                             $prevItem = $it;
                             last;
-                        }                        
+                        }
                     }
                     if ($it == scalar(@items)) {
                         my $item = new yui::YTreeItem ($items[$prevItem]->{item}, $names[$lev]);
@@ -167,13 +167,13 @@ sub _adminMouseDialog {
                         if ($selected eq $self->_getUntranslatedName($item->label(), $fullList->{list})) {
                             $item->setSelected(1) ;
                             $item->setOpen(1);
-                            my $parent = $item;  
+                            my $parent = $item;
                             while($parent = $parent->parent()) {
-                                $parent->setOpen(1);                                
+                                $parent->setOpen(1);
                             }
                         }
                         $item->DISOWN();
-                        push @items, {item => $item, label => $names[$lev], level => $lev};                        
+                        push @items, {item => $item, label => $names[$lev], level => $lev};
                     }
                 }
             }
@@ -193,7 +193,7 @@ sub _adminMouseDialog {
         while(1) {
             my $event     = $dialog->waitForEvent();
             my $eventType = $event->eventType();
-            
+
             #event type checking
             if ($eventType == $yui::YEvent::CancelEvent) {
                 last;
@@ -206,12 +206,12 @@ sub _adminMouseDialog {
                     last;
                 }
                 elsif ($widget == $aboutButton) {
-                    my $license = translate($AdminPanel::Shared::License);
-                    AdminPanel::Shared::AboutDialog(
+                    my $license = translate($ManaTools::Shared::License);
+                    ManaTools::Shared::AboutDialog(
                           { name => N("AdminMouse"),
-                            version => $self->VERSION, 
+                            version => $self->VERSION,
                             copyright => N("Copyright (C) %s Mageia community", '2014'),
-                            license => $license, 
+                            license => $license,
                             comments => N("AdminMouse is the Mageia mouse management tool \n(from the original idea of Mandriva mousedrake)."),
                             website => 'http://www.mageia.org',
                             website_label => N("Mageia"),
@@ -224,13 +224,13 @@ sub _adminMouseDialog {
                 elsif ($widget == $okButton) {
                     my $continue = 1;
                     my $selectedItem = $treeWidget->selectedItem();
-                    
+
                     my $it=$selectedItem;
                     my $fullname = $self->_getUntranslatedName($it->label(), $fullList->{list});
                     while($it = yui::toYTreeItem($it)->parent()) {
                         $fullname = join("|", $self->_getUntranslatedName($it->label(), $fullList->{list}), $fullname);
                     }
-                    
+
                     if ($fullname ne $prev) {
                         my $mouse_ = mouse::fullname2mouse($fullname, device => $mouse->{device});
                         if ($fullname =~ /evdev/) {
@@ -238,16 +238,16 @@ sub _adminMouseDialog {
                         }
                         %$mouse = %$mouse_;
                     }
-                    
+
                     if ($mouse->{nbuttons} < 3 ) {
-                        $mouse->{Emulate3Buttons} = AdminPanel::Shared::ask_YesOrNo('', N("Emulate third button?"));
+                        $mouse->{Emulate3Buttons} = ManaTools::Shared::ask_YesOrNo('', N("Emulate third button?"));
                     }
                     if ($mouse->{type} eq 'serial') {
                         my @list = ();
                         foreach (detect_devices::serialPorts()) {
                             push @list, detect_devices::serialPort2text($_);
                         }
-                        my $choice = AdminPanel::Shared::ask_fromList(N("Mouse Port"), 
+                        my $choice = ManaTools::Shared::ask_fromList(N("Mouse Port"),
                                                          N("Please choose which serial port your mouse is connected to."),
                                                          \@list);
                         if ( !$choice ) {
@@ -257,24 +257,24 @@ sub _adminMouseDialog {
                             $mouse->{device} = $choice;
                         }
                     }
-                    
+
                     if ($continue) {
                         last;
                     }
                 }
             }
         }
-        
+
     }
 
  #  TODO manage write conf without interactive things
  #  mouse::write_conf($in->do_pkgs, $modules_conf, $mouse, 1);
     system('systemctl', 'try-restart', 'gpm.service') if -e '/usr/lib/systemd/system/gpm.service';
-   
-    AdminPanel::Shared::infoMsgBox(N("Not implemented yet: configuration is not changed"));
-    
+
+    ManaTools::Shared::infoMsgBox(N("Not implemented yet: configuration is not changed"));
+
     $dialog->destroy();
-    
+
     #restore old application title
     yui::YUI::app()->setApplicationTitle($appTitle);
 }
diff --git a/lib/AdminPanel/Module/Clock.pm b/lib/AdminPanel/Module/Clock.pm
index 22fa059..f2bb5c0 100644
--- a/lib/AdminPanel/Module/Clock.pm
+++ b/lib/AdminPanel/Module/Clock.pm
@@ -1,14 +1,14 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Module::Clock;
+package ManaTools::Module::Clock;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Module::Clock - This module aims to configure system clock and time
+ManaTools::Module::Clock - This module aims to configure system clock and time
 
 =head1 SYNOPSIS
 
-    my $clockSettings = AdminPanel::Module::Clock->new();
+    my $clockSettings = ManaTools::Module::Clock->new();
     $clockSettings->start();
 
 =head1 DESCRIPTION
@@ -19,7 +19,7 @@ Long_description
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Module::Clock
+perldoc ManaTools::Module::Clock
 
 =head1 SEE ALSO
 
@@ -54,15 +54,15 @@ use Moose;
 
 use diagnostics;
 
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::TimeZone;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::TimeZone;
 
 use Time::Piece;
 
 use yui;
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 ### TODO icon
 has '+icon' => (
@@ -79,7 +79,7 @@ sub _localeInitialize {
     my $self = shift;
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -93,7 +93,7 @@ has 'sh_gui' => (
 sub _SharedGUIInitialize {
     my $self = shift;
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 has 'sh_tz' => (
@@ -105,7 +105,7 @@ has 'sh_tz' => (
 sub _SharedTimeZoneInitialize {
     my $self = shift;
 
-    $self->sh_tz(AdminPanel::Shared::TimeZone->new() );
+    $self->sh_tz(ManaTools::Shared::TimeZone->new() );
 }
 
 
diff --git a/lib/AdminPanel/Module/DisplayManager.pm b/lib/AdminPanel/Module/DisplayManager.pm
index 1f6c054..39aa617 100644
--- a/lib/AdminPanel/Module/DisplayManager.pm
+++ b/lib/AdminPanel/Module/DisplayManager.pm
@@ -18,7 +18,7 @@
 #
 #*****************************************************************************
 
-package AdminPanel::Module::DisplayManager;
+package ManaTools::Module::DisplayManager;
 
 use Modern::Perl '2011';
 use autodie;
@@ -28,9 +28,9 @@ use English;
 use utf8;
 
 use yui;
-use AdminPanel::Shared qw(trim apcat);
-use AdminPanel::Shared::GUI;
-# use AdminPanel::Shared::DisplayManager;
+use ManaTools::Shared qw(trim apcat);
+use ManaTools::Shared::GUI;
+# use ManaTools::Shared::DisplayManager;
 
 # TODROP but provides network::network
 use lib qw(/usr/lib/libDrakX);
@@ -38,7 +38,7 @@ use network::network;
 use MDK::Common::System qw(getVarsFromSh addVarsInSh);
 use MDK::Common::Func qw(find);
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 
 has '+icon' => (
@@ -120,14 +120,14 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'drakdm') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'drakdm') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui( AdminPanel::Shared::GUI->new() );
+    $self->sh_gui( ManaTools::Shared::GUI->new() );
 }
 
 #=============================================================
@@ -189,7 +189,7 @@ sub ask_for_X_restart {
 sub _manageProxyDialog {
     my $self = shift;
 
-    ## TODO fix for adminpanel
+    ## TODO fix for manatools
     my $appTitle = yui::YUI::app()->applicationTitle();
     my $appIcon = yui::YUI::app()->applicationIcon();
     ## set new title to get it in dialog
@@ -280,7 +280,7 @@ sub _manageProxyDialog {
                     }
                 );
             }elsif ($widget == $okButton) {
-                my $current_choice = AdminPanel::Shared::trim($rb_group->currentButton()->label());
+                my $current_choice = ManaTools::Shared::trim($rb_group->currentButton()->label());
                 $current_choice =~s/\&//g;
                 addVarsInSh($self->conffile, { DISPLAYMANAGER => lc($current_choice) } );
                 $self->ask_for_X_restart();
diff --git a/lib/AdminPanel/Module/Firewall.pm b/lib/AdminPanel/Module/Firewall.pm
index 8158dc2..2ac56a5 100644
--- a/lib/AdminPanel/Module/Firewall.pm
+++ b/lib/AdminPanel/Module/Firewall.pm
@@ -18,7 +18,7 @@
 #
 #*****************************************************************************
 
-package AdminPanel::Module::Firewall;
+package ManaTools::Module::Firewall;
 
 use Modern::Perl '2011';
 use autodie;
@@ -27,11 +27,11 @@ use Moose::Autobox;
 use utf8;
 
 use yui;
-use AdminPanel::Shared qw(trim);
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Firewall;
-use AdminPanel::Shared::Shorewall;
-use AdminPanel::Shared::Services;
+use ManaTools::Shared qw(trim);
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Firewall;
+use ManaTools::Shared::Shorewall;
+use ManaTools::Shared::Services;
 
 use MDK::Common::Func qw(if_ partition);
 use MDK::Common::System qw(getVarsFromSh);
@@ -42,7 +42,7 @@ use MDK::Common::File qw(substInFile output_with_perm);
 use List::Util qw(any);
 use List::MoreUtils qw(uniq);
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 has '+icon' => (
     default => "/usr/share/icons/manawall.png",
@@ -147,14 +147,14 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'drakx-net') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'drakx-net') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 sub _initAllServers {
@@ -441,8 +441,8 @@ sub get_conf {
     my $self = shift();
     my ($disabled, $o_ports) = @_;
     my $possible_servers = undef;
-    my $conf = AdminPanel::Shared::Shorewall::read_();
-    my $shorewall = (AdminPanel::Shared::Shorewall::get_config_file('zones', '') && $conf);
+    my $conf = ManaTools::Shared::Shorewall::read_();
+    my $shorewall = (ManaTools::Shared::Shorewall::get_config_file('zones', '') && $conf);
 
     if ($o_ports) {
         return ($disabled, $self->from_ports($o_ports));
@@ -477,7 +477,7 @@ sub set_ifw {
     my ($enabled, $rules, $ports) = @_;
     if ($enabled)
     {
-        my $ports_by_proto = AdminPanel::Shared::Shorewall::ports_by_proto($ports);
+        my $ports_by_proto = ManaTools::Shared::Shorewall::ports_by_proto($ports);
         output_with_perm("$::prefix/etc/ifw/rules", 0644,
             (map { ". /etc/ifw/rules.d/$_\n" } @$rules),
              map {
@@ -493,8 +493,8 @@ sub set_ifw {
     substInFile {
             undef $_ if m!^INCLUDE /etc/ifw/rules|^iptables -I INPUT 2 -j Ifw!;
     } "$::prefix/etc/shorewall/start";
-    AdminPanel::Shared::Shorewall::set_in_file('start', $enabled, "INCLUDE /etc/ifw/start", "INCLUDE /etc/ifw/rules", "iptables -I INPUT 1 -j Ifw");
-    AdminPanel::Shared::Shorewall::set_in_file('stop', $enabled, "iptables -D INPUT -j Ifw", "INCLUDE /etc/ifw/stop");
+    ManaTools::Shared::Shorewall::set_in_file('start', $enabled, "INCLUDE /etc/ifw/start", "INCLUDE /etc/ifw/rules", "iptables -I INPUT 1 -j Ifw");
+    ManaTools::Shared::Shorewall::set_in_file('stop', $enabled, "iptables -D INPUT -j Ifw", "INCLUDE /etc/ifw/stop");
 }
 
 #=============================================================
@@ -972,7 +972,7 @@ Have a look at /etc/services for information.");
                     $self->unlisted([]);
                 }
                 my $invalid_ports = check_ports_syntax($txtPortsList->value());
-                if(AdminPanel::Shared::trim($invalid_ports) eq '')
+                if(ManaTools::Shared::trim($invalid_ports) eq '')
                 {
                     if($txtPortsList->value() =~m/\s+/g)
                     {
@@ -984,9 +984,9 @@ Have a look at /etc/services for information.");
                     }
                     else
                     {
-                        if(AdminPanel::Shared::trim($txtPortsList->value()) ne '')
+                        if(ManaTools::Shared::trim($txtPortsList->value()) ne '')
                         {
-                            push(@{$self->unlisted()}, AdminPanel::Shared::trim($txtPortsList->value()));
+                            push(@{$self->unlisted()}, ManaTools::Shared::trim($txtPortsList->value()));
                         }
                     }
                     $retval = 1;
@@ -1021,12 +1021,12 @@ sub get_zones {
     my $confref = shift();
     my $disabled = shift();
     my $conf = ${$confref};
-    my $interfacesfile = AdminPanel::Shared::Shorewall::get_config_file('interfaces', $conf->{version} || '');
+    my $interfacesfile = ManaTools::Shared::Shorewall::get_config_file('interfaces', $conf->{version} || '');
     network::network::read_net_conf($self->net());
     #- find all interfaces but alias interfaces
     my @all_intf = grep { !/:/ } uniq(keys(%{$self->net()->{ifcfg}}), detect_devices::get_net_interfaces());
     my %net_zone = map { $_ => undef } @all_intf;
-    $net_zone{$_} = 1 foreach AdminPanel::Shared::Shorewall::get_net_zone_interfaces($interfacesfile, $self->net(), \@all_intf);
+    $net_zone{$_} = 1 foreach ManaTools::Shared::Shorewall::get_net_zone_interfaces($interfacesfile, $self->net(), \@all_intf);
 
     # if firewall/shorewall is not disabled (i.e. everything has been allowed)
     # then ask for network interfaces to protect
@@ -1099,13 +1099,13 @@ sub set_ports {
 
     if (!$disabled || -x "$::prefix/sbin/shorewall") {
         # $do_pkgs->ensure_files_are_installed([ [ qw(shorewall shorewall) ], [ qw(shorewall-ipv6 shorewall6) ] ], $::isInstall) or return;
-        my $conf = AdminPanel::Shared::Shorewall::read_();
+        my $conf = ManaTools::Shared::Shorewall::read_();
         if(!$self->get_zones(\$conf,$disabled))
         {
             # Cancel button has been pressed, aborting
             return 0;
         }
-        my $shorewall = (AdminPanel::Shared::Shorewall::get_config_file('zones', '') && $conf);
+        my $shorewall = (ManaTools::Shared::Shorewall::get_config_file('zones', '') && $conf);
         if (!$shorewall) {
             print ("unable to read shorewall configuration, skipping installation");
             return 0;
@@ -1118,7 +1118,7 @@ sub set_ports {
         print ($disabled ? "disabling shorewall" : "configuring shorewall to allow ports: $ports");
 
         # NOTE: the 2nd param is undef in this case!
-        if(!AdminPanel::Shared::Shorewall::write_($shorewall))
+        if(!ManaTools::Shared::Shorewall::write_($shorewall))
         {
             # user action request
             my $action = $self->sh_gui->ask_fromList({
@@ -1129,7 +1129,7 @@ sub set_ports {
             list => [ "keep", "drop"],
             default => "keep",
             });
-            AdminPanel::Shared::Shorewall::write_($shorewall,$action);
+            ManaTools::Shared::Shorewall::write_($shorewall,$action);
             return 1;
         }
     }
@@ -1189,7 +1189,7 @@ sub start {
     $self->set_ports($disabled, $ports, $self->log_net_drop()) or return;
 
     # restart mandi
-    my $services = AdminPanel::Shared::Services->new();
+    my $services = ManaTools::Shared::Services->new();
     $services->is_service_running("mandi") and $services->restart("mandi");
 
     # restarting services if needed
diff --git a/lib/AdminPanel/Module/Hosts.pm b/lib/AdminPanel/Module/Hosts.pm
index 90aa452..faae3f0 100644
--- a/lib/AdminPanel/Module/Hosts.pm
+++ b/lib/AdminPanel/Module/Hosts.pm
@@ -18,7 +18,7 @@
 #
 #*****************************************************************************
 
-package AdminPanel::Module::Hosts;
+package ManaTools::Module::Hosts;
 
 use Modern::Perl '2011';
 use autodie;
@@ -28,11 +28,11 @@ use utf8;
 
 use Glib;
 use yui;
-use AdminPanel::Shared qw(trim);
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Hosts;
+use ManaTools::Shared qw(trim);
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Hosts;
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 
 has '+icon' => (
@@ -82,14 +82,14 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'drakx-net') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'drakx-net') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 #=============================================================
@@ -293,7 +293,7 @@ sub _manipulateHostDialog {
                 my $res = undef;
                 my @hosts_toadd;
                 push @hosts_toadd, $textHostName->value();
-                if(AdminPanel::Shared::trim($textHostAlias->value()) ne ""){
+                if(ManaTools::Shared::trim($textHostAlias->value()) ne ""){
                     push @hosts_toadd, $textHostAlias->value();
                 }
                 if($boolEdit == 0){
@@ -405,7 +405,7 @@ sub setupTable {
 sub _manageHostsDialog {
     my $self = shift;
 
-    ## TODO fix for adminpanel
+    ## TODO fix for manatools
     my $appTitle = yui::YUI::app()->applicationTitle();
     my $appIcon = yui::YUI::app()->applicationIcon();
     ## set new title to get it in dialog
@@ -439,7 +439,7 @@ sub _manageHostsDialog {
     $self->table($factory->createTable($leftContent,$tableHeader));
 
     # initialize Config::Hosts
-    $self->cfgHosts(AdminPanel::Shared::Hosts->new());
+    $self->cfgHosts(ManaTools::Shared::Hosts->new());
     $self->setupTable();
 
     my $rightContent = $factory->createRight($hbox_content);
diff --git a/lib/AdminPanel/Module/LogViewer.pm b/lib/AdminPanel/Module/LogViewer.pm
index 130bef3..e009c1c 100644
--- a/lib/AdminPanel/Module/LogViewer.pm
+++ b/lib/AdminPanel/Module/LogViewer.pm
@@ -1,14 +1,14 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Module::LogViewer;
+package ManaTools::Module::LogViewer;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Module::LogViewer - Log viewer
+ManaTools::Module::LogViewer - Log viewer
 
 =head1 SYNOPSIS
 
-my $logViewer = AdminPanel::Module::LogViewer->new();
+my $logViewer = ManaTools::Module::LogViewer->new();
 $logViewer->start();
 
 =head1 DESCRIPTION
@@ -21,7 +21,7 @@ file.
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Module::::LogViewer
+perldoc ManaTools::Module::::LogViewer
 
 =head1 AUTHOR
 
@@ -53,10 +53,10 @@ use Moose;
 use diagnostics;
 use open OUT => ':utf8';
 
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::Services;
-use AdminPanel::Shared::JournalCtl;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::Services;
+use ManaTools::Shared::JournalCtl;
 
 
 use POSIX qw/strftime floor/;
@@ -66,7 +66,7 @@ use File::HomeDir qw(home);
 
 use yui;
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 ### TODO icon
 has '+icon' => (
@@ -83,7 +83,7 @@ sub _localeInitialize {
     my $self = shift;
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -96,7 +96,7 @@ has 'sh_gui' => (
 sub _SharedUGUIInitialize {
     my $self = shift;
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 =head1 VERSION
@@ -261,7 +261,7 @@ sub _logViewerPanel {
     my $itemCollection = new yui::YItemCollection;
 
     yui::YUI::app()->busyCursor();
-    my $serv = AdminPanel::Shared::Services->new();
+    my $serv = ManaTools::Shared::Services->new();
     my ($l, $active_services) = $serv->services();
 
     foreach (@{$active_services}) {
@@ -510,7 +510,7 @@ sub _save {
 sub _search {
     my ($self, $log_opts) = @_;
 
-    my $log = AdminPanel::Shared::JournalCtl->new(%{$log_opts});
+    my $log = ManaTools::Shared::JournalCtl->new(%{$log_opts});
     my $all = $log->getLog();
 
     return $all;
diff --git a/lib/AdminPanel/Module/Proxy.pm b/lib/AdminPanel/Module/Proxy.pm
index 5d0165c..ff2af3e 100644
--- a/lib/AdminPanel/Module/Proxy.pm
+++ b/lib/AdminPanel/Module/Proxy.pm
@@ -18,7 +18,7 @@
 #
 #*****************************************************************************
 
-package AdminPanel::Module::Proxy;
+package ManaTools::Module::Proxy;
 
 use Modern::Perl '2011';
 use autodie;
@@ -28,16 +28,16 @@ use English;
 use utf8;
 
 use yui;
-use AdminPanel::Shared qw(trim);
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Proxy;
+use ManaTools::Shared qw(trim);
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Proxy;
 
 # TODROP but provides network::network
 use lib qw(/usr/lib/libDrakX);
 use network::network;
 use MDK::Common::System qw(getVarsFromSh);
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 
 has '+icon' => (
@@ -89,14 +89,14 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'drakx-net') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'drakx-net') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui( AdminPanel::Shared::GUI->new() );
+    $self->sh_gui( ManaTools::Shared::GUI->new() );
 }
 
 #=============================================================
@@ -243,7 +243,7 @@ sub validate {
 sub _manageProxyDialog {
     my $self = shift;
 
-    ## TODO fix for adminpanel
+    ## TODO fix for manatools
     my $appTitle = yui::YUI::app()->applicationTitle();
     my $appIcon = yui::YUI::app()->applicationIcon();
     ## set new title to get it in dialog
diff --git a/lib/AdminPanel/Module/Services.pm b/lib/AdminPanel/Module/Services.pm
index 53c3aae..dca0c0c 100644
--- a/lib/AdminPanel/Module/Services.pm
+++ b/lib/AdminPanel/Module/Services.pm
@@ -1,17 +1,17 @@
 # vim: set et ts=4 sw=4:
 
-package AdminPanel::Module::Services;
+package ManaTools::Module::Services;
 
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Module::Services - This module aims to manage service
+ManaTools::Module::Services - This module aims to manage service
                                with GUI
 
 =head1 SYNOPSIS
 
-    my $serviceMan = AdminPanel::Module::Services->new();
+    my $serviceMan = ManaTools::Module::Services->new();
     $serviceMan->start();
 
 =head1 DESCRIPTION
@@ -26,11 +26,11 @@ AdminPanel::Module::Services - This module aims to manage service
 
     You can find documentation for this module with the perldoc command:
 
-    perldoc AdminPanel::Module::Services
+    perldoc ManaTools::Module::Services
 
 =head1 SEE ALSO
 
-   AdminPanel::Module
+   ManaTools::Module
 
 =head1 AUTHOR
 
@@ -64,14 +64,14 @@ use MDK::Common::String qw(formatAlaTeX);
 use MDK::Common::DataStructure qw(member);
 
 use yui;
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::Services;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::Services;
 
 
 use File::Basename;
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 has '+icon' => (
     default => "/usr/share/mcc/themes/default/service-mdk.png",
@@ -132,7 +132,7 @@ has 'sh_gui' => (
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 has 'sh_services' => (
@@ -145,7 +145,7 @@ has 'sh_services' => (
 sub _SharedServicesInitialize {
     my $self = shift();
 
-    $self->sh_services(AdminPanel::Shared::Services->new() );
+    $self->sh_services(ManaTools::Shared::Services->new() );
 }
 
 
@@ -159,7 +159,7 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
diff --git a/lib/AdminPanel/Module/Users.pm b/lib/AdminPanel/Module/Users.pm
index 1be39d1..2ef9066 100644
--- a/lib/AdminPanel/Module/Users.pm
+++ b/lib/AdminPanel/Module/Users.pm
@@ -1,17 +1,17 @@
 # vim: set et ts=4 sw=4:
 
-package AdminPanel::Module::Users;
+package ManaTools::Module::Users;
 
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Module::Users - This module aims to manage service
+ManaTools::Module::Users - This module aims to manage service
                                with GUI
 
 =head1 SYNOPSIS
 
-    my $userManager = AdminPanel::Module::Users->new();
+    my $userManager = ManaTools::Module::Users->new();
     $userManager->start();
 
 =head1 DESCRIPTION
@@ -24,11 +24,11 @@ AdminPanel::Module::Users - This module aims to manage service
 
     You can find documentation for this module with the perldoc command:
 
-    perldoc AdminPanel::Module::Users
+    perldoc ManaTools::Module::Users
 
 =head1 SEE ALSO
 
-   AdminPanel::Module
+   ManaTools::Module
 
 =head1 AUTHOR
 
@@ -77,14 +77,14 @@ use Sys::Syslog;
 use Glib;
 use English;
 use yui;
-use AdminPanel::Shared;
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::Users;
+use ManaTools::Shared;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::Users;
 use MDK::Common::DataStructure qw(member);
 use feature 'state';
 
-extends qw( AdminPanel::Module );
+extends qw( ManaTools::Module );
 
 has '+icon' => (
     default => "/usr/share/icons/userdrake.png",
@@ -146,7 +146,7 @@ has 'sh_users' => (
 sub _SharedUsersInitialize {
     my $self = shift();
 
-    $self->sh_users(AdminPanel::Shared::Users->new() );
+    $self->sh_users(ManaTools::Shared::Users->new() );
 }
 
 has 'sh_gui' => (
@@ -158,7 +158,7 @@ has 'sh_gui' => (
 sub _SharedUGUIInitialize {
     my $self = shift();
 
-    $self->sh_gui(AdminPanel::Shared::GUI->new() );
+    $self->sh_gui(ManaTools::Shared::GUI->new() );
 }
 
 has 'loc' => (
@@ -172,7 +172,7 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'userdrake') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'userdrake') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -714,7 +714,7 @@ sub _buildUserData {
     my $weakness = undef;
     if (yui::YUI::app()->hasImageSupport()) {
         $factory->createHSpacing($hbox, 2.0);
-        my $file = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Blank16x16.png');
+        my $file = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Blank16x16.png');
         $weakness = $factory->createImage($hbox, $file);
     }
     else {
@@ -1954,9 +1954,9 @@ sub _checkWeaknessPassword {
 
     my $strongp = $self->sh_users->strongPassword($password);
     if (yui::YUI::app()->hasImageSupport()) {
-        my $file = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Warning_Shield_Grey16x16.png');
+        my $file = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Warning_Shield_Grey16x16.png');
         if ($strongp) {
-            $file =  File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Checked_Shield_Green16x16.png');
+            $file =  File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Checked_Shield_Green16x16.png');
         }
         $weakness_widget->setImage($file);
     }
@@ -2381,7 +2381,7 @@ sub _manageUsersDialog {
         return;
     }
 
-    ## TODO fix for adminpanel
+    ## TODO fix for manatools
     my $pixdir = '/usr/share/userdrake/pixmaps/';
     ## push application title
     my $appTitle = yui::YUI::app()->applicationTitle();
diff --git a/lib/AdminPanel/Privileges.pm b/lib/AdminPanel/Privileges.pm
index 4352c5c..5833900 100644
--- a/lib/AdminPanel/Privileges.pm
+++ b/lib/AdminPanel/Privileges.pm
@@ -1,22 +1,22 @@
 # vim: set et ts=4 sw=4:
 #    Copyright 2012-2015 Matteo Pasotti
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
-package AdminPanel::Privileges;
+package ManaTools::Privileges;
 
 use strict;
 use warnings;
diff --git a/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm b/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
index 741525b..c756964 100644
--- a/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
+++ b/lib/AdminPanel/Rpmdragora/edit_urpm_sources.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::edit_urpm_sources;
+package ManaTools::Rpmdragora::edit_urpm_sources;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -35,13 +35,13 @@ use MDK::Common::File qw(cat_ output);
 use MDK::Common::DataStructure qw(member put_in_hash uniq);
 use MDK::Common::Various qw(to_bool);
 
-use AdminPanel::Shared;
-use AdminPanel::Shared::Locales;
-use AdminPanel::rpmdragora;
-use AdminPanel::Rpmdragora::init;
-use AdminPanel::Rpmdragora::open_db;
-use AdminPanel::Rpmdragora::formatting;
-use AdminPanel::Shared::GUI;
+use ManaTools::Shared;
+use ManaTools::Shared::Locales;
+use ManaTools::rpmdragora;
+use ManaTools::Rpmdragora::init;
+use ManaTools::Rpmdragora::open_db;
+use ManaTools::Rpmdragora::formatting;
+use ManaTools::Shared::GUI;
 use URPM::Signature;
 use urpm::media;
 use urpm::download;
@@ -65,7 +65,7 @@ my %col = (
     },
 );
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 sub get_medium_type {
     my ($medium) = @_;
@@ -142,7 +142,7 @@ sub easy_add_callback_with_mirror() {
     #- cooker and community don't have update sources
     my $want_base_distro = _want_base_distro();
     defined $want_base_distro or return 0;
-    my $distro = $AdminPanel::rpmdragora::mageia_release;
+    my $distro = $ManaTools::rpmdragora::mageia_release;
     my ($mirror) = choose_mirror($urpm, message =>
         $loc->N("This will attempt to install all official sources corresponding to your
 distribution (%s).\n
@@ -1302,7 +1302,7 @@ sub keys_callback() {
     };
 
     my $add_key = sub {
-        my $sh_gui = AdminPanel::Shared::GUI->new();
+        my $sh_gui = ManaTools::Shared::GUI->new();
         my $item = $mediaTbl->selectedItem();
         if ($item) {
             $current_medium = $item->label();
@@ -1331,7 +1331,7 @@ sub keys_callback() {
     };
 
     my $remove_key = sub {
-        my $sh_gui = AdminPanel::Shared::GUI->new();
+        my $sh_gui = ManaTools::Shared::GUI->new();
         my $keyItem   = $keyTbl->selectedItem();
         my $mediaItem = $mediaTbl->selectedItem();
         if ($keyItem && $mediaItem) {
@@ -1467,7 +1467,7 @@ sub readMedia {
         ## NOTE anaselli: next lines add check icon to cells, but they are 8x8, a dimension should
         ##      be evaluated by font size, so disabled atm
 #         my $cell = $item->cell(0); # Checked
-#         my $checkedIcon = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Check_8x8.png');
+#         my $checkedIcon = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Check_8x8.png');
 #
 #         $cell->setIconName($checkedIcon) if (!$_->{ignore});
 #         $cell    = $item->cell(1); # Updates
@@ -1675,8 +1675,8 @@ sub mainwindow() {
 
     $hbox = $factory->createHBox( $vbox_commands );
     ## TODO icon and label for ncurses
-    my $upIcon     = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Up_16x16.png');
-    my $downIcon   = File::ShareDir::dist_file(AdminPanel::Shared::distName(), 'images/Down_16x16.png');
+    my $upIcon     = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Up_16x16.png');
+    my $downIcon   = File::ShareDir::dist_file(ManaTools::Shared::distName(), 'images/Down_16x16.png');
     my $upButton   = $factory->createPushButton($factory->createHBox($hbox), $loc->N("Up"));
     my $downButton = $factory->createPushButton($factory->createHBox($hbox), $loc->N("Down"));
     $upButton->setIcon($upIcon);
@@ -1725,7 +1725,7 @@ sub mainwindow() {
                 my $translators = $loc->N("_: Translator(s) name(s) & email(s)\n");
                 $translators =~ s/\</\&lt\;/g;
                 $translators =~ s/\>/\&gt\;/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'),
diff --git a/lib/AdminPanel/Rpmdragora/formatting.pm b/lib/AdminPanel/Rpmdragora/formatting.pm
index da429a5..83a960a 100644
--- a/lib/AdminPanel/Rpmdragora/formatting.pm
+++ b/lib/AdminPanel/Rpmdragora/formatting.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::formatting;
+package ManaTools::Rpmdragora::formatting;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -30,8 +30,8 @@ use strict;
 use utf8;
 use POSIX qw(strftime);
 use MDK::Common::Various qw(internal_error);
-use AdminPanel::Shared::Locales;
-use AdminPanel::rpmdragora;
+use ManaTools::Shared::Locales;
+use ManaTools::rpmdragora;
 use urpm::msg;
 
 
@@ -56,7 +56,7 @@ our @EXPORT = qw(
                     urpm_name
             );
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 sub escape_text_for_TextView_markup_format {
     my ($str) = @_;
diff --git a/lib/AdminPanel/Rpmdragora/gui.pm b/lib/AdminPanel/Rpmdragora/gui.pm
index b244c95..0cf0882 100644
--- a/lib/AdminPanel/Rpmdragora/gui.pm
+++ b/lib/AdminPanel/Rpmdragora/gui.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::gui;
+package ManaTools::Rpmdragora::gui;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -42,16 +42,16 @@ use MDK::Common::String qw(formatAlaTeX);
 use MDK::Common::Math qw(sum);
 use MDK::Common::System qw(list_passwd);
 
-use AdminPanel::rpmdragora;
-use AdminPanel::Rpmdragora::open_db;
-use AdminPanel::Rpmdragora::formatting;
-use AdminPanel::Rpmdragora::init;
-use AdminPanel::Rpmdragora::icon qw(get_icon_path);
-use AdminPanel::Rpmdragora::pkg;
-use AdminPanel::Shared;
-use AdminPanel::Shared::GUI;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::RunProgram qw(get_stdout raw);
+use ManaTools::rpmdragora;
+use ManaTools::Rpmdragora::open_db;
+use ManaTools::Rpmdragora::formatting;
+use ManaTools::Rpmdragora::init;
+use ManaTools::Rpmdragora::icon qw(get_icon_path);
+use ManaTools::Rpmdragora::pkg;
+use ManaTools::Shared;
+use ManaTools::Shared::GUI;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::RunProgram qw(get_stdout raw);
 use yui;
 use feature 'state';
 use Carp;
@@ -97,8 +97,8 @@ our @EXPORT = qw(
                     setInfoOnWidget
             );
 
-my $loc        = AdminPanel::rpmdragora::locale();
-my $shared_gui = AdminPanel::Shared::GUI->new() ;
+my $loc        = ManaTools::rpmdragora::locale();
+my $shared_gui = ManaTools::Shared::GUI->new() ;
 
 our ($descriptions, %filters, @filtered_pkgs, %filter_methods, $force_displaying_group, $force_rebuild, @initial_selection, $pkgs, $size_free, $size_selected, $urpm);
 our ($results_ok, $results_none) = ($loc->N("Search results"), $loc->N("Search results (none)"));
@@ -340,21 +340,21 @@ sub _format_pkg_simplifiedinfo {
     #push @$s, [ build_expander($pkg, $loc->N("Files:"), 'files', sub { files_format($pkg->{files}) }) ];
     my $files_link = format_link(format_field($loc->N("Files:")), $hidden_info{files} );
     if ($options->{files}) {
-        my $wait = AdminPanel::rpmdragora::wait_msg();
+        my $wait = ManaTools::rpmdragora::wait_msg();
         if (!$pkg->{files}) {
             extract_header($pkg, $urpm, 'files', $installed_version);
         }
         my $files = $pkg->{files} ? files_format($pkg->{files}) : $loc->N("(Not available)");
         utf8::encode($files);
         $files_link .= "\n\n" . $files;
-        AdminPanel::rpmdragora::remove_wait_msg($wait);
+        ManaTools::rpmdragora::remove_wait_msg($wait);
     }
     push @$s, join("\n", $files_link, "\n");
 
     #push @$s, [ build_expander($pkg, $loc->N("Changelog:"), 'changelog',  sub { $pkg->{changelog} }, $installed_version) ];
     my $changelog_link = format_link(format_field($loc->N("Changelog:")), $hidden_info{changelog} );
     if ($options->{changelog}) {
-        my $wait = AdminPanel::rpmdragora::wait_msg();
+        my $wait = ManaTools::rpmdragora::wait_msg();
         my @changelog = $pkg->{changelog} ? @{$pkg->{changelog}} : ( $loc->N("(Not available)") );
         if (!$pkg->{changelog} || !scalar @{$pkg->{changelog}} ) {
             # my ($pkg, $label, $type, $get_data, $o_installed_version) = @_;
@@ -365,7 +365,7 @@ sub _format_pkg_simplifiedinfo {
 
         $changelog_link .=  "<br />&nbsp;&nbsp;&nbsp;" . join("<br />&nbsp;&nbsp;&nbsp;", @changelog);
         $changelog_link =~ s|\n||g;
-        AdminPanel::rpmdragora::remove_wait_msg($wait);
+        ManaTools::rpmdragora::remove_wait_msg($wait);
     }
     push @$s, join("\n\n", $changelog_link, "\n");
 
@@ -943,7 +943,7 @@ sub fast_toggle {
         interactive_msg($loc->N("Warning"), $loc->N("The \"%s\" package is in urpmi skip list.\nDo you want to select it anyway?", $name), yesno => 1) or return '';
         $urpm_obj->set_flag_skip(0);
     }
-    if ($AdminPanel::Rpmdragora::pkg::need_restart && !$priority_up_alread_warned) {
+    if ($ManaTools::Rpmdragora::pkg::need_restart && !$priority_up_alread_warned) {
         $priority_up_alread_warned = 1;
         interactive_msg($loc->N("Warning"), '<b>' . $loc->N("Rpmdragora or one of its priority dependencies needs to be updated first. Rpmdragora will then restart.") . '</b>' . "\n\n");
     }
@@ -1093,7 +1093,7 @@ sub pkgs_provider {
         },
         all_updates => sub {
             # potential "updates" from media not tagged as updates:
-            if (!$options{pure_updates} && !$AdminPanel::Rpmdragora::pkg::need_restart) {
+            if (!$options{pure_updates} && !$ManaTools::Rpmdragora::pkg::need_restart) {
                 [ @{$h->{updates}},
                   difference2([ grep { is_updatable($_) } @{$h->{installable}} ], $h->{backports}) ];
             } else {
@@ -1311,14 +1311,14 @@ sub deps_msg {
             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 = $pkgList->selectedItem();
                     my $pkg = $item->label();
-                    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);
                 }
             }
         }
@@ -1515,7 +1515,7 @@ sub do_action__real {
         $urpm->{fatal}(1, $loc->N("Error: %s appears to be mounted read-only.", $urpm::sys::mountpoint));
         return 1;
     }
-    if (!$AdminPanel::Rpmdragora::pkg::need_restart && !is_there_selected_packages()) {
+    if (!$ManaTools::Rpmdragora::pkg::need_restart && !is_there_selected_packages()) {
         interactive_msg($loc->N("You need to select some packages first."), $loc->N("You need to select some packages first."));
         return 1;
     }
@@ -1533,7 +1533,7 @@ Do you really want to install all the selected packages?"), yesno => 1)
     my $res = $callback_action->($urpm, $pkgs);
     if (!$res) {
         $force_rebuild = 1;
-        pkgs_provider($options->{tree_mode}, MDK::Common::Func::if_($AdminPanel::Rpmdragora::pkg::probe_only_for_updates, pure_updates => 1), skip_updating_mu => 1);
+        pkgs_provider($options->{tree_mode}, MDK::Common::Func::if_($ManaTools::Rpmdragora::pkg::probe_only_for_updates, pure_updates => 1), skip_updating_mu => 1);
         reset_search();
         $size_selected = 0;
         (undef, $size_free) = MDK::Common::System::df('/usr');
@@ -1583,7 +1583,7 @@ sub _build_tree {
         push @{$pkg_by_group_hash->{$grp}}, $pkg;
     }
 
-    my $tree_hash = AdminPanel::Shared::pathList2hash({
+    my $tree_hash = ManaTools::Shared::pathList2hash({
         paths => \@groups,
         separator => '|',
     });
@@ -1665,7 +1665,7 @@ or you already installed all of them."));
                 # inlining part of MDK::Common::Data::difference2():
                 my %l; @l{map { $_->[0] } @_} = ();
                 my @pkgs_times = ('rpm', '-q', '--qf', '%{name}-%{version}-%{release}.%{arch} %{installtime}\n',
-                map { chomp_($_) } AdminPanel::Shared::RunProgram::get_stdout('urpmi_rpm-find-leaves'));
+                map { chomp_($_) } ManaTools::Shared::RunProgram::get_stdout('urpmi_rpm-find-leaves'));
                 sort { $b->[1] <=> $a->[1] } grep { exists $l{$_->[0]} } map { chomp; [ split ] } run_rpm(@pkgs_times);
             },
             flat => sub { no locale; sort { uc($a->[0]) cmp uc($b->[0]) } @_ },
@@ -1736,7 +1736,7 @@ sub run_help_callback {
     my (undef, $url) = @_;
     my ($user) = grep { $_->[2] eq $ENV{USERHELPER_UID} } list_passwd();
     local $ENV{HOME} = $user->[7] if $user && $ENV{USERHELPER_UID};
-    AdminPanel::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'www-browser', $url);
+    ManaTools::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'www-browser', $url);
 }
 
 #=============================================================
@@ -1759,7 +1759,7 @@ sub run_browser {
 
     my ($user) = grep { $_->[2] eq $ENV{USERHELPER_UID} } MDK::Common::System::list_passwd();
     local $ENV{HOME} = $user->[7] if $user && $ENV{USERHELPER_UID};
-    AdminPanel::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'www-browser', $url);
+    ManaTools::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'www-browser', $url);
 }
 
 #=============================================================
diff --git a/lib/AdminPanel/Rpmdragora/gurpm.pm b/lib/AdminPanel/Rpmdragora/gurpm.pm
index 39a2b95..20cac6e 100644
--- a/lib/AdminPanel/Rpmdragora/gurpm.pm
+++ b/lib/AdminPanel/Rpmdragora/gurpm.pm
@@ -1,22 +1,22 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::gurpm;
+package ManaTools::Rpmdragora::gurpm;
 
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-    AdminPanel::Rpmdragora::gurpm - Module that shows the urpmi
+    ManaTools::Rpmdragora::gurpm - Module that shows the urpmi
                                     progress status
 
 =head1 SYNOPSIS
 
     my %option = (title => "Urpmi action ivoked", text => "Please wait", );
-    my $gurpmi = AdminPanel::Rpmdragora::gurpm->new(%option);
+    my $gurpmi = ManaTools::Rpmdragora::gurpm->new(%option);
     $gurpmi->progress(45);
 
     #add to an existing dialog
     %option = (title => "Urpmi action ivoked", text => "Please wait", main_dialog => $dialog, parent => $parent_container);
-    $gurpmi = AdminPanel::Rpmdragora::gurpm->new(%option);
+    $gurpmi = ManaTools::Rpmdragora::gurpm->new(%option);
     $gurpmi->progress(20);
 
 =head1 DESCRIPTION
@@ -29,12 +29,12 @@ package AdminPanel::Rpmdragora::gurpm;
 
     You can find documentation for this module with the perldoc command:
 
-    perldoc AdminPanel::Rpmdragora::gurpm
+    perldoc ManaTools::Rpmdragora::gurpm
 
 =head1 AUTHOR
 
     Angelo Naselli <anaselli@linux.it>
-    
+
     Matteo Pasotti <matteo.pasotti@gmail.com>
 
 =head1 COPYRIGHT and LICENSE
diff --git a/lib/AdminPanel/Rpmdragora/icon.pm b/lib/AdminPanel/Rpmdragora/icon.pm
index c253d67..6c3887d 100644
--- a/lib/AdminPanel/Rpmdragora/icon.pm
+++ b/lib/AdminPanel/Rpmdragora/icon.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::icon;
+package ManaTools::Rpmdragora::icon;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -28,10 +28,10 @@ package AdminPanel::Rpmdragora::icon;
 
 use strict;
 
-use AdminPanel::rpmdragora;
-use AdminPanel::Shared::Locales;
+use ManaTools::rpmdragora;
+use ManaTools::Shared::Locales;
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 use Exporter;
 our @ISA = qw(Exporter);
diff --git a/lib/AdminPanel/Rpmdragora/init.pm b/lib/AdminPanel/Rpmdragora/init.pm
index 7acdec6..f6d570d 100644
--- a/lib/AdminPanel/Rpmdragora/init.pm
+++ b/lib/AdminPanel/Rpmdragora/init.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::init;
+package ManaTools::Rpmdragora::init;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -33,8 +33,8 @@ BEGIN { $::no_global_argv_parsing = 1 }
 require urpm::args;
 use MDK::Common::Various qw(chomp_);
 
-use AdminPanel::Privileges;
-use AdminPanel::Shared::Locales;
+use ManaTools::Privileges;
+use ManaTools::Shared::Locales;
 
 use Exporter;
 our @ISA = qw(Exporter);
@@ -51,7 +51,7 @@ our @EXPORT = qw(init
 our @ARGV_copy =  @ARGV;
 
 BEGIN {  #- we want to run this code before the Gtk->init of the use-my_gtk
-    my $loc = AdminPanel::Shared::Locales->new(domain_name => 'rpmdrake');
+    my $loc = ManaTools::Shared::Locales->new(domain_name => 'rpmdrake');
 
     my $basename = sub { local $_ = shift; s|/*\s*$||; s|.*/||; $_ };
     any { /^--?h/ } @ARGV and do {
@@ -153,22 +153,22 @@ if ($MODE eq 'remove') {
     $default_list_mode = 'all_updates';
 }
 
-$MODE eq 'update' || $rpmdragora_options{'run-as-root'} and AdminPanel::Privileges::is_root_capability_required();
+$MODE eq 'update' || $rpmdragora_options{'run-as-root'} and ManaTools::Privileges::is_root_capability_required();
 $::noborderWhenEmbedded = 1;
 
-require AdminPanel::rpmdragora;
+require ManaTools::rpmdragora;
 
-our $changelog_first = $AdminPanel::rpmdragora::changelog_first_config->[0];
+our $changelog_first = $ManaTools::rpmdragora::changelog_first_config->[0];
 $changelog_first = 1 if $rpmdragora_options{'changelog-first'};
 
 sub warn_about_user_mode() {
-    my $loc = AdminPanel::Shared::Locales->new(domain_name => 'rpmdrake');
+    my $loc = ManaTools::Shared::Locales->new(domain_name => 'rpmdrake');
     my $title = $loc->N("Running in user mode");
     my $msg = $loc->N("You are launching this program as a normal user.\n".
                 "You will not be able to perform modifications on the system,\n".
                 "but you may still browse the existing database.");
 
-    if(($EUID != 0) and (!AdminPanel::rpmdragora::interactive_msg($title, $msg))) {
+    if(($EUID != 0) and (!ManaTools::rpmdragora::interactive_msg($title, $msg))) {
         return 0;
     }
     return 1;
diff --git a/lib/AdminPanel/Rpmdragora/open_db.pm b/lib/AdminPanel/Rpmdragora/open_db.pm
index ded4bfc..7bfa7bf 100644
--- a/lib/AdminPanel/Rpmdragora/open_db.pm
+++ b/lib/AdminPanel/Rpmdragora/open_db.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::open_db;
+package ManaTools::Rpmdragora::open_db;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -31,7 +31,7 @@ use Sys::Syslog;
 
 use MDK::Common::File qw(cat_ mkdir_p);
 use MDK::Common::Func;
-use AdminPanel::rpmdragora;
+use ManaTools::rpmdragora;
 use URPM;
 use urpm;
 use urpm::args;
@@ -51,7 +51,7 @@ our @EXPORT = qw(fast_open_urpmi_db
                  open_urpmi_db
             );
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 
 # because rpm blocks some signals when rpm DB is opened, we don't keep open around:
diff --git a/lib/AdminPanel/Rpmdragora/pkg.pm b/lib/AdminPanel/Rpmdragora/pkg.pm
index 16f2711..ba0b18b 100644
--- a/lib/AdminPanel/Rpmdragora/pkg.pm
+++ b/lib/AdminPanel/Rpmdragora/pkg.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::pkg;
+package ManaTools::Rpmdragora::pkg;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -38,13 +38,13 @@ use MDK::Common::Various qw(chomp_);
 use POSIX qw(_exit ceil);
 use URPM;
 use utf8;
-use AdminPanel::rpmdragora;
-use AdminPanel::Rpmdragora::open_db;
-use AdminPanel::Rpmdragora::gurpm;
-use AdminPanel::Rpmdragora::formatting;
-use AdminPanel::Rpmdragora::rpmnew;
-use AdminPanel::Shared::RunProgram qw(run get_stdout);
-use AdminPanel::rpmdragora;
+use ManaTools::rpmdragora;
+use ManaTools::Rpmdragora::open_db;
+use ManaTools::Rpmdragora::gurpm;
+use ManaTools::Rpmdragora::formatting;
+use ManaTools::Rpmdragora::rpmnew;
+use ManaTools::Shared::RunProgram qw(run get_stdout);
+use ManaTools::rpmdragora;
 use urpm;
 use urpm::lock;
 use urpm::install;
@@ -56,7 +56,7 @@ use urpm::args qw();
 use urpm::util;
 use Carp;
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 use Exporter;
 our @ISA = qw(Exporter);
@@ -94,7 +94,7 @@ sub run_rpm {
     foreach (qw(LANG LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT LC_IDENTIFICATION LC_ALL)) {
         local $ENV{$_} = $ENV{$_} . '.UTF-8' if $ENV{$_} && $ENV{$_} !~ /UTF-8/;
     }
-    my @l = map { ensure_utf8($_); $_ } AdminPanel::Shared::RunProgram::get_stdout(@_);
+    my @l = map { ensure_utf8($_); $_ } ManaTools::Shared::RunProgram::get_stdout(@_);
     wantarray() ? @l : join('', @l);
 }
 
@@ -143,7 +143,7 @@ sub extract_header {
             $bar_id = statusbar_msg($loc->N("Getting '%s' from XML meta-data...", $xml_info), 0);
             my $_gurpm_clean_guard = MDK::Common::Func::before_leaving { undef $gurpm };
             if (my $xml_info_file = eval { urpm::media::any_xml_info($urpm, $medium, $xml_info, undef, sub {
-                $gurpm ||= AdminPanel::Rpmdragora::gurpm->new(
+                $gurpm ||= ManaTools::Rpmdragora::gurpm->new(
                     text => $loc->N("Please wait"),
                 );
                 download_callback($gurpm, @_)
@@ -287,7 +287,7 @@ all of them are currently disabled. You should run the Software
 Media Manager to enable at least one (check it in the \"%s\"
 column).
 
-Then, restart \"%s\".", $loc->N("Enabled"), $AdminPanel::rpmdragora::myname_update));
+Then, restart \"%s\".", $loc->N("Enabled"), $ManaTools::rpmdragora::myname_update));
             return (-1);
         }
         my ($mirror) = choose_mirror($urpm, transient => $w->{real_window} || $::main_window,
@@ -305,7 +305,7 @@ $loc->N("You may also choose your desired mirror manually: to do so,
 launch the Software Media Manager, and then add a `Security
 updates' medium.
 
-Then, restart %s.", $AdminPanel::rpmdragora::myname_update)), return (-1);
+Then, restart %s.", $ManaTools::rpmdragora::myname_update)), return (-1);
         add_distrib_update_media($urpm, $mirror, only_updates => 0);
     }
     return 0;
@@ -407,7 +407,7 @@ sub get_updates_list {
     );
 
     my %common_opts = (
-        callback_choices => \&AdminPanel::Rpmdragora::gui::callback_choices,
+        callback_choices => \&ManaTools::Rpmdragora::gui::callback_choices,
         priority_upgrade => $urpm->{options}{'priority-upgrade'},
     );
 
@@ -428,7 +428,7 @@ sub get_updates_list {
     if ($probe_only_for_updates && !$need_restart) {
         @$requested_strict = sort map {
             urpm_name($_);
-        } $urpm->resolve_requested($db, $state, $requested, callback_choices => \&AdminPanel::Rpmdragora::gui::callback_choices);
+        } $urpm->resolve_requested($db, $state, $requested, callback_choices => \&ManaTools::Rpmdragora::gui::callback_choices);
 
         if (my @l = grep { $state->{selected}{$_->id} }
               urpm::select::_priority_upgrade_pkgs($urpm, $urpm->{options}{'priority-upgrade'})) {
@@ -459,7 +459,7 @@ sub get_pkgs {
 
     myexit (-1) if (warn_about_media($w, %options) == -1);
 
-    my $gurpm = AdminPanel::Rpmdragora::gurpm->new(
+    my $gurpm = ManaTools::Rpmdragora::gurpm->new(
         text => $loc->N("Please wait"),
     );
     my $_gurpm_clean_guard = MDK::Common::Func::before_leaving { undef $gurpm };
@@ -706,7 +706,7 @@ sub perform_parallel_install {
     my @pkgs = map { MDK::Common::Func::if_($_->flag_requested, urpm_name($_)) } @{$urpm->{depslist}};
 
     my @error_msgs;
-    my $res = !AdminPanel::Shared::RunProgram::run('urpmi', '2>', \@error_msgs, '-v', '--X', '--parallel', $group, @pkgs);
+    my $res = !ManaTools::Shared::RunProgram::run('urpmi', '2>', \@error_msgs, '-v', '--X', '--parallel', $group, @pkgs);
 
     if ($res) {
         $$statusbar_msg_id = statusbar_msg(
@@ -770,7 +770,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
     urpm::select::resolve_dependencies(
         $urpm, $state, $requested,
         rpmdb => $::env && "$::env/rpmdb.cz",
-        callback_choices => \&AdminPanel::Rpmdragora::gui::callback_choices,
+        callback_choices => \&ManaTools::Rpmdragora::gui::callback_choices,
     );
     statusbar_msg_remove($bar_id);
 
@@ -819,7 +819,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
     # select packages to uninstall for !update mode:
     perform_removal($urpm, { map { $_ => $pkgs->{$_} } @to_remove }) if !$probe_only_for_updates;
 
-    $gurpm = AdminPanel::Rpmdragora::gurpm->new(
+    $gurpm = ManaTools::Rpmdragora::gurpm->new(
         text => $loc->N("Please wait"),
         title => $loc->N("Initializing..."),
     );
@@ -993,7 +993,7 @@ you may now inspect some in order to take actions:"),
         #- added --previous-priority-upgrade to allow checking if yet if
         #-   priority-upgrade list has changed. and make sure we don't uselessly restart
         my @argv = ('--previous-priority-upgrade=' . $urpm->{options}{'priority-upgrade'},
-                grep { !/^--no-priority-upgrade$|--previous-priority-upgrade=/ } @AdminPanel::Rpmdragora::init::ARGV_copy);
+                grep { !/^--no-priority-upgrade$|--previous-priority-upgrade=/ } @ManaTools::Rpmdragora::init::ARGV_copy);
         # remove "--emmbedded <id>" from argv:
         my $i = 0;
         foreach (@argv) {
@@ -1032,7 +1032,7 @@ sub perform_removal {
     my ($urpm, $pkgs) = @_;
     my @toremove = map { MDK::Common::Func::if_($pkgs->{$_}{selected}, $pkgs->{$_}{urpm_name}) } keys %$pkgs;
     return if !@toremove;
-    my $gurpm = AdminPanel::Rpmdragora::gurpm->new(
+    my $gurpm = ManaTools::Rpmdragora::gurpm->new(
         text => $loc->N("Please wait")
     );
     my $_gurpm_clean_guard = MDK::Common::Func::before_leaving { undef $gurpm };
diff --git a/lib/AdminPanel/Rpmdragora/rpmnew.pm b/lib/AdminPanel/Rpmdragora/rpmnew.pm
index 8cc4576..659c0b2 100644
--- a/lib/AdminPanel/Rpmdragora/rpmnew.pm
+++ b/lib/AdminPanel/Rpmdragora/rpmnew.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Rpmdragora::rpmnew;
+package ManaTools::Rpmdragora::rpmnew;
 #*****************************************************************************
 #
 #  Copyright (c) 2002 Guillaume Cottenceau
@@ -32,11 +32,11 @@ use MDK::Common::Math qw(sum);
 use MDK::Common::File qw(renamef);
 use MDK::Common::Various qw(chomp_);
 
-use AdminPanel::rpmdragora;
-use AdminPanel::Rpmdragora::init;
-use AdminPanel::Rpmdragora::pkg;
-use AdminPanel::Rpmdragora::open_db;
-use AdminPanel::Rpmdragora::formatting;
+use ManaTools::rpmdragora;
+use ManaTools::Rpmdragora::init;
+use ManaTools::Rpmdragora::pkg;
+use ManaTools::Rpmdragora::open_db;
+use ManaTools::Rpmdragora::formatting;
 
 use yui;
 
@@ -44,7 +44,7 @@ use Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT = qw(rpmnew_dialog do_merge_if_needed);
 
-my $loc = AdminPanel::rpmdragora::locale();
+my $loc = ManaTools::rpmdragora::locale();
 
 # /var/lib/nfs/etab /var/lib/nfs/rmtab /var/lib/nfs/xtab /var/cache/man/whatis
 my %ignores_rpmnew = map { $_ => 1 } qw(
diff --git a/lib/AdminPanel/SettingsReader.pm b/lib/AdminPanel/SettingsReader.pm
index bb6203e..318aefd 100644
--- a/lib/AdminPanel/SettingsReader.pm
+++ b/lib/AdminPanel/SettingsReader.pm
@@ -1,16 +1,16 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::SettingsReader;
+package ManaTools::SettingsReader;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::SettingsReader - This module allows to load an XML configuration file
+ManaTools::SettingsReader - This module allows to load an XML configuration file
 
 =head1 SYNOPSIS
 
-    use AdminPanel::SettingsReader;
+    use ManaTools::SettingsReader;
 
-    my $settings = new AdminPanel::SettingsReader($fileName);
+    my $settings = new ManaTools::SettingsReader($fileName);
 
 =head1 DESCRIPTION
 
@@ -20,7 +20,7 @@ AdminPanel::SettingsReader - This module allows to load an XML configuration fil
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::SettingsReader
+perldoc ManaTools::SettingsReader
 
 =head1 SEE ALSO
 
@@ -34,20 +34,20 @@ perldoc AdminPanel::SettingsReader
 
     Copyright (C) 2012-2015, Angelo Naselli.
 
-   This file is part of AdminPanel
+   This file is part of ManaTools
 
-   AdminPanel is free software: you can redistribute it and/or modify
+   ManaTools is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 2 of the License, or
    (at your option) any later version.
 
-   AdminPanel is distributed in the hope that it will be useful,
+   ManaTools is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
-   along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+   along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
 =head1 FUNCTIONS
 
@@ -74,7 +74,7 @@ use Data::Dumper;
 
 =head3 DESCRIPTION
 
-    The constructor just loads the given files and return its representation 
+    The constructor just loads the given files and return its representation
     into a hash reference.
 
 =cut
@@ -87,7 +87,7 @@ sub new {
     my $self = {
         settings => 0,
     };
-    bless $self, 'AdminPanel::SettingsReader';
+    bless $self, 'ManaTools::SettingsReader';
 
     die "File " . $fileName . " not found" if (! -e $fileName);
 
diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm
index 6ff12a0..6a40539 100644
--- a/lib/AdminPanel/Shared.pm
+++ b/lib/AdminPanel/Shared.pm
@@ -2,27 +2,27 @@
 #    Copyright 2012-2015 Angelo Naselli <anaselli@linux.it>
 #    Copyright 2013-2015 Matteo Pasotti <matteo.pasotti@gmail.com>
 #
-#    This file is part of AdminPanel
+#    This file is part of ManaTools
 #
-#    AdminPanel is free software: you can redistribute it and/or modify
+#    ManaTools is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 2 of the License, or
 #    (at your option) any later version.
 #
-#    AdminPanel is distributed in the hope that it will be useful,
+#    ManaTools is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
-#    along with AdminPanel.  If not, see <http://www.gnu.org/licenses/>.
+#    along with ManaTools.  If not, see <http://www.gnu.org/licenses/>.
 
-package AdminPanel::Shared;
+package ManaTools::Shared;
 
 =head1 NAME
 
-AdminPanel::Shared - AdminPanel::Shared contains all the shared routines
-                     needed by AdminPanel and modules
+ManaTools::Shared - ManaTools::Shared contains all the shared routines
+                     needed by ManaTools and modules
 
 =head1 SYNOPSIS
 
@@ -30,7 +30,7 @@ AdminPanel::Shared - AdminPanel::Shared contains all the shared routines
 
 =head1 DESCRIPTION
 
-This module collects all the routines shared between AdminPanel and its modules.
+This module collects all the routines shared between ManaTools and its modules.
 
 =head1 EXPORT
 
@@ -48,7 +48,7 @@ This module collects all the routines shared between AdminPanel and its modules.
 
 You can find documentation for this module with the perldoc command:
 
-    perldoc AdminPanel::Shared
+    perldoc ManaTools::Shared
 
 =head1 AUTHOR
 
@@ -156,14 +156,14 @@ $distname: name of the distributed package
 
 This function return the distname, useful to retrieve data
 with File::ShareDir::dist_file and must be the same as into
-Makefile.PL (e.g. adminpanel)
+Makefile.PL (e.g. manatools)
 
 =cut
 
 #=============================================================
 
 sub distName {
-    return "adminpanel";
+    return "manatools";
 }
 
 
@@ -372,5 +372,5 @@ sub isProcessRunning {
     return;
 }
 
-1; # End of AdminPanel::Shared
+1; # End of ManaTools::Shared
 
diff --git a/lib/AdminPanel/Shared/Firewall.pm b/lib/AdminPanel/Shared/Firewall.pm
index 50e8a4f..f5a6c45 100644
--- a/lib/AdminPanel/Shared/Firewall.pm
+++ b/lib/AdminPanel/Shared/Firewall.pm
@@ -17,7 +17,7 @@
 #  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #
 #*****************************************************************************
-package AdminPanel::Shared::Firewall;
+package ManaTools::Shared::Firewall;
 
 use Moose;
 use diagnostics;
diff --git a/lib/AdminPanel/Shared/GUI.pm b/lib/AdminPanel/Shared/GUI.pm
index 9a67231..6c6144d 100644
--- a/lib/AdminPanel/Shared/GUI.pm
+++ b/lib/AdminPanel/Shared/GUI.pm
@@ -1,5 +1,5 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::GUI;
+package ManaTools::Shared::GUI;
 #============================================================= -*-perl-*-
 
 =head1 NAME
@@ -8,7 +8,7 @@ Shared::GUI - Shared graphic routines
 
 =head1 SYNOPSIS
 
-    my $gui = AdminPanel::Shared::GUI->new();
+    my $gui = ManaTools::Shared::GUI->new();
     my $yesPressed = $gui->ask_YesOrNo($title, $text);
 
 =head1 DESCRIPTION
@@ -59,9 +59,9 @@ use Moose;
 use diagnostics;
 use yui;
 
-use AdminPanel::Shared qw(pathList2hash);
+use ManaTools::Shared qw(pathList2hash);
 
-use AdminPanel::Shared::Locales;
+use ManaTools::Shared::Locales;
 
 has 'loc' => (
         is => 'rw',
@@ -73,7 +73,7 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -548,8 +548,8 @@ list is an array of hashes like this
         text => "descriptive text"
         val => reference to the boolean value
     }
-        
-            
+
+
 =head3 OUTPUT
 
     undef:          if Cancel button has been pressed
@@ -587,11 +587,11 @@ sub ask_multiple_fromList {
     my $layout = $factory->createVBox($dlg);
 
     my @ckbox_array = ();
-    
+
     for my $item(@{$info->{list}})
     {
         my $ckbox = $factory->createCheckBox(
-            $factory->createLeft($factory->createHBox($layout)), 
+            $factory->createLeft($factory->createHBox($layout)),
             $item->{text},
             ${$item->{val}}
         );
@@ -648,7 +648,7 @@ sub ask_multiple_fromList {
 
     #restore old application title
     yui::YUI::app()->setApplicationTitle($appTitle);
-    
+
     return $selections;
 }
 
@@ -905,7 +905,7 @@ sub ask_fromTreeList {
     my $list2Convert;
     $list2Convert->{paths} = $info->{list};
     $list2Convert->{separator} = $info->{item_separator} if $info->{item_separator};
-    $treeInfo->{hash_tree}    = AdminPanel::Shared::pathList2hash($list2Convert);
+    $treeInfo->{hash_tree}    = ManaTools::Shared::pathList2hash($list2Convert);
 
     $self->hashTreeToYItemCollection($treeInfo);
     $treeWidget->addItems($treeInfo->{collection});
diff --git a/lib/AdminPanel/Shared/Hosts.pm b/lib/AdminPanel/Shared/Hosts.pm
index def2b7c..d3b7fc9 100644
--- a/lib/AdminPanel/Shared/Hosts.pm
+++ b/lib/AdminPanel/Shared/Hosts.pm
@@ -17,7 +17,7 @@
 #  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 #
 #*****************************************************************************
-package AdminPanel::Shared::Hosts;
+package ManaTools::Shared::Hosts;
 
 use Moose;
 use diagnostics;
diff --git a/lib/AdminPanel/Shared/JournalCtl.pm b/lib/AdminPanel/Shared/JournalCtl.pm
index 5d11bcf..1194538 100644
--- a/lib/AdminPanel/Shared/JournalCtl.pm
+++ b/lib/AdminPanel/Shared/JournalCtl.pm
@@ -1,27 +1,27 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::JournalCtl;
+package ManaTools::Shared::JournalCtl;
 
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Shared::JournalCtl - journalctl perl wrapper
+ManaTools::Shared::JournalCtl - journalctl perl wrapper
 
 =head1 SYNOPSIS
 
-    my $log = AdminPanel::Shared::JournalCtl->new();
+    my $log = ManaTools::Shared::JournalCtl->new();
     my @log_content = $log->getLog();
 
 =head1 DESCRIPTION
 
-This module wraps journalctl allowing some running options and provides the 
+This module wraps journalctl allowing some running options and provides the
 output log content.
 
 =head1 SUPPORT
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Shared::JournalCtl
+perldoc ManaTools::Shared::JournalCtl
 
 
 =head1 AUTHOR
diff --git a/lib/AdminPanel/Shared/Locales.pm b/lib/AdminPanel/Shared/Locales.pm
index a1186ad..ec54614 100644
--- a/lib/AdminPanel/Shared/Locales.pm
+++ b/lib/AdminPanel/Shared/Locales.pm
@@ -1,16 +1,16 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::Locales;
+package ManaTools::Shared::Locales;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Shared::Locales - Class to manage locales
+ManaTools::Shared::Locales - Class to manage locales
 
 =head1 SYNOPSIS
 
-use AdminPanel::Shared::Locales;
+use ManaTools::Shared::Locales;
 
-my $obj = AdminPanel::Shared::Locales->new(domain_name => 'this_domain');
+my $obj = ManaTools::Shared::Locales->new(domain_name => 'this_domain');
 
 print $obj->N("test string %d", 1) . "\n";
 
@@ -23,7 +23,7 @@ This class wraps Locale::gettext to manage localization
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Shared::Locales
+perldoc ManaTools::Shared::Locales
 
 =head1 SEE ALSO
 
@@ -68,7 +68,7 @@ use Text::Iconv;
 
 =head3 INPUT
 
-    hash ref containing 
+    hash ref containing
         domain_name: gettext domain name (default mpan)
         dir_name:    gettext optional catalog directory (default undef)
         codeset:     gettext codeset (default UTF8)
@@ -88,16 +88,16 @@ has 'domain_name' => (
 
 has 'dir_name' => (
     is      => 'rw',
-    default => undef, 
+    default => undef,
 );
 
 has 'codeset' => (
     is      => 'rw',
-    default => 'UTF8', 
+    default => 'UTF8',
 );
 
 has 'domain' => (
-    is      => 'rw', 
+    is      => 'rw',
     init_arg  => undef,
 );
 
@@ -153,9 +153,9 @@ sub BUILD {
 =cut
 
 #=============================================================
-sub P {    
+sub P {
     my ($self, $s_singular, $s_plural, $nb, @para) = @_;
-    
+
     sprintf($self->domain->nget($s_singular, $s_plural, $nb), @para);
 }
 
@@ -167,7 +167,7 @@ sub P {
 
     $self : this object
     $s:     msg id
-    
+
 =head3 OUTPUT
 
     locale string
@@ -180,8 +180,8 @@ sub P {
 
 #=============================================================
 sub N {
-    my ($self, $s, @para) = @_; 
-    
+    my ($self, $s, @para) = @_;
+
     sprintf($self->domain->get($s), @para);
 }
 
@@ -193,7 +193,7 @@ sub N {
 
     $self : this object
     $s:     msg id
-    
+
 =head3 OUTPUT
 
     msg id
@@ -207,8 +207,8 @@ sub N {
 #=============================================================
 sub N_ {
     my $self = shift;
-    
-    $_[0]; 
+
+    $_[0];
 }
 
 
@@ -238,7 +238,7 @@ sub from_utf8 {
     my $converter = Text::Iconv->new("utf-8", undef);
     my $converted = $converter->convert($s);
 
-    return $converted; 
+    return $converted;
 }
 
 
@@ -262,13 +262,13 @@ sub from_utf8 {
 =cut
 
 #=============================================================
-sub to_utf8 { 
+sub to_utf8 {
     my ($self, $s) = @_;
 
     my $converter = Text::Iconv->new(undef, "utf-8");
     my $converted = $converter->convert($s);
 
-    return $converted; 
+    return $converted;
 }
 
 
diff --git a/lib/AdminPanel/Shared/Proxy.pm b/lib/AdminPanel/Shared/Proxy.pm
index 18360c8..6accbb7 100644
--- a/lib/AdminPanel/Shared/Proxy.pm
+++ b/lib/AdminPanel/Shared/Proxy.pm
@@ -1,23 +1,23 @@
 # vim: set et ts=4 sw=4:
 #*****************************************************************************
-# 
+#
 #  Copyright (c) 2013-2015 Matteo Pasotti <matteo.pasotti@gmail.com>
-# 
+#
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License version 2, as
 #  published by the Free Software Foundation.
-# 
+#
 #  This program is distributed in the hope that it will be useful,
 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #  GNU General Public License for more details.
-# 
+#
 #  You should have received a copy of the GNU General Public License
 #  along with this program; if not, write to the Free Software
 #  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# 
+#
 #*****************************************************************************
-package AdminPanel::Shared::Proxy; 
+package ManaTools::Shared::Proxy;
 
 use Moose;
 use diagnostics;
diff --git a/lib/AdminPanel/Shared/RunProgram.pm b/lib/AdminPanel/Shared/RunProgram.pm
index 4355fb9..042f559 100644
--- a/lib/AdminPanel/Shared/RunProgram.pm
+++ b/lib/AdminPanel/Shared/RunProgram.pm
@@ -1,4 +1,4 @@
-package AdminPanel::Shared::RunProgram;
+package ManaTools::Shared::RunProgram;
 
 use strict;
 use MDK::Common;
@@ -21,7 +21,7 @@ our @EXPORT_OK = qw(
 
 =head1 SYNOPSYS
 
-B<rAdminPanel::Shared::RunProgram> enables to:
+B<rManaTools::Shared::RunProgram> enables to:
 
 =over 4
 
@@ -192,9 +192,9 @@ eg:
 
 =over 4
 
-=item * C<< AdminPanel::Shared::RunProgram::raw({ root => $::prefix, sensitive_arguments => 1 }, "echo -e $user->{password} | cryptsetup luksFormat $device"); >>
+=item * C<< ManaTools::Shared::RunProgram::raw({ root => $::prefix, sensitive_arguments => 1 }, "echo -e $user->{password} | cryptsetup luksFormat $device"); >>
 
-=item * C<< AdminPanel::Shared::RunProgram::raw({ detach => 1 }, '/etc/rc.d/init.d/dm', '>', '/dev/null', '2>', '/dev/null', 'restart'); >>
+=item * C<< ManaTools::Shared::RunProgram::raw({ detach => 1 }, '/etc/rc.d/init.d/dm', '>', '/dev/null', '2>', '/dev/null', 'restart'); >>
 
 =back
 
@@ -308,15 +308,15 @@ sub raw {
         if ($stderr && $stderr eq 'STDERR') {
         } elsif ($stderr) {
             $stderr_mode =~ s/2//;
-            open STDERR, "$stderr_mode $stderr" or _die_exit("AdminPanel::Shared::RunProgram cannot output in $stderr (mode `$stderr_mode')");
+            open STDERR, "$stderr_mode $stderr" or _die_exit("ManaTools::Shared::RunProgram cannot output in $stderr (mode `$stderr_mode')");
         } elsif ($::isInstall) {
-            open STDERR, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or _die_exit("AdminPanel::Shared::RunProgram cannot log, give me access to /tmp/ddebug.log");
+            open STDERR, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or _die_exit("ManaTools::Shared::RunProgram cannot log, give me access to /tmp/ddebug.log");
         }
         if ($stdout && $stdout eq 'STDOUT') {
         } elsif ($stdout) {
-            open STDOUT, "$stdout_mode $stdout" or _die_exit("AdminPanel::Shared::RunProgram cannot output in $stdout (mode `$stdout_mode')");
+            open STDOUT, "$stdout_mode $stdout" or _die_exit("ManaTools::Shared::RunProgram cannot output in $stdout (mode `$stdout_mode')");
         } elsif ($::isInstall) {
-            open STDOUT, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or _die_exit("AdminPanel::Shared::RunProgram cannot log, give me access to /tmp/ddebug.log");
+            open STDOUT, ">> /tmp/ddebug.log" or open STDOUT, ">> /dev/tty7" or _die_exit("ManaTools::Shared::RunProgram cannot log, give me access to /tmp/ddebug.log");
         }
 
         $root and chroot $root;
diff --git a/lib/AdminPanel/Shared/Services.pm b/lib/AdminPanel/Shared/Services.pm
index b53ad92..abef8c3 100644
--- a/lib/AdminPanel/Shared/Services.pm
+++ b/lib/AdminPanel/Shared/Services.pm
@@ -1,16 +1,16 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::Services;
+package ManaTools::Shared::Services;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Shared::Services - shares the API to manage services
+ManaTools::Shared::Services - shares the API to manage services
 
 =head1 SYNOPSIS
 
-use AdminPanel::Shared::Services;
+use ManaTools::Shared::Services;
 
-my $serv = AdminPanel::Shared::Services->new();
+my $serv = ManaTools::Shared::Services->new();
 
 my ($l, $on_services) = $serv->services();
 
@@ -25,11 +25,11 @@ my ($l, $on_services) = $serv->services();
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Shared::Services
+perldoc ManaTools::Shared::Services
 
 =head1 SEE ALSO
 
-AdminPanel::Shared
+ManaTools::Shared
 
 =head1 AUTHOR
 
@@ -64,11 +64,11 @@ use Net::DBus;
 use Net::DBus::Annotation qw(:auth);
 use File::Basename;
 
-use AdminPanel::Shared::Locales;
+use ManaTools::Shared::Locales;
 use MDK::Common::Func qw(find);
 use MDK::Common::File;
 use MDK::Common::DataStructure qw(member);
-use AdminPanel::Shared::RunProgram qw(rooted);
+use ManaTools::Shared::RunProgram qw(rooted);
 
 has 'loc' => (
         is => 'rw',
@@ -81,7 +81,7 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -374,7 +374,7 @@ sub set_service {
 
     if (MDK::Common::DataStructure::member($service, @xinetd_services)) {
         $ENV{PATH} = "/usr/bin:/usr/sbin";
-        AdminPanel::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", $enable ? "--add" : "--del", $service);
+        ManaTools::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", $enable ? "--add" : "--del", $service);
     } elsif ($self->_running_systemd() || $self->_has_systemd()) {
         $service = $service . ".service";
         my $dbus_object = $self->dbus_systemd1_object;
@@ -389,11 +389,11 @@ sub set_service {
     } else {
         my $script = "/etc/rc.d/init.d/$service";
         $ENV{PATH} = "/usr/bin:/usr/sbin";
-        AdminPanel::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", $enable ? "--add" : "--del", $service);
+        ManaTools::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", $enable ? "--add" : "--del", $service);
         #- FIXME: handle services with no chkconfig line and with no Default-Start levels in LSB header
         if ($enable && MDK::Common::File::cat_("$script") =~ /^#\s+chkconfig:\s+-/m) {
             $ENV{PATH} = "/usr/bin:/usr/sbin";
-            AdminPanel::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", "--level", "35", $service, "on");
+            ManaTools::Shared::RunProgram::rooted("", "/usr/sbin/chkconfig", "--level", "35", $service, "on");
         }
     }
 }
@@ -415,7 +415,7 @@ sub _run_action {
         $self->_systemd_services(1);
     } else {
         $ENV{PATH} = "/usr/bin:/usr/sbin:/etc/rc.d/init.d/";
-        AdminPanel::Shared::RunProgram::rooted("", "/etc/rc.d/init.d/$service", $action);
+        ManaTools::Shared::RunProgram::rooted("", "/etc/rc.d/init.d/$service", $action);
     }
 }
 
@@ -423,14 +423,14 @@ sub _running_systemd {
     my $self = shift;
 
     $ENV{PATH} = "/usr/bin:/usr/sbin";
-    AdminPanel::Shared::RunProgram::rooted("", '/usr/bin/mountpoint', '-q', '/sys/fs/cgroup/systemd');
+    ManaTools::Shared::RunProgram::rooted("", '/usr/bin/mountpoint', '-q', '/sys/fs/cgroup/systemd');
 }
 
 sub _has_systemd {
     my $self = shift;
 
     $ENV{PATH} = "/usr/bin:/usr/sbin";
-    AdminPanel::Shared::RunProgram::rooted("", '/usr/bin/rpm', '-q', 'systemd');
+    ManaTools::Shared::RunProgram::rooted("", '/usr/bin/rpm', '-q', 'systemd');
 }
 
 #=============================================================
@@ -459,7 +459,7 @@ sub xinetd_services {
     if ($ser_info && $ser_info->{enabled} eq "1") {
         local $ENV{LANGUAGE} = 'C';
         $ENV{PATH} = "/usr/bin:/usr/sbin";
-        foreach (AdminPanel::Shared::RunProgram::rooted_get_stdout("", '/usr/sbin/chkconfig', '--list', '--type', 'xinetd')) {
+        foreach (ManaTools::Shared::RunProgram::rooted_get_stdout("", '/usr/sbin/chkconfig', '--list', '--type', 'xinetd')) {
             if (my ($xinetd_name, $on_off) = m!^\t(\S+):\s*(on|off)!) {
                 push @xinetd_services, [ $xinetd_name, $on_off eq 'on' ];
             }
@@ -530,7 +530,7 @@ sub _legacy_services {
     if (!$::isInstall) {
         $runlevel = (split " ", `/sbin/runlevel`)[1];
     }
-    foreach (AdminPanel::Shared::RunProgram::rooted_get_stdout("", '/sbin/chkconfig', '--list', '--type', 'sysv')) {
+    foreach (ManaTools::Shared::RunProgram::rooted_get_stdout("", '/sbin/chkconfig', '--list', '--type', 'sysv')) {
         if (my ($name, $l) = m!^(\S+)\s+(0:(on|off).*)!) {
             # If we expect to use systemd (i.e. installer) only show those
             # sysvinit scripts which are not masked by a native systemd unit.
@@ -767,7 +767,7 @@ sub is_service_running {
         $out = $ser_info->{active_state} eq 'active' if $ser_info->{active_state};
     } else {
         $ENV{PATH} = "/usr/bin:/usr/sbin";
-        $out = AdminPanel::Shared::RunProgram::rooted("", '/usr/sbin/service', $service, 'status');
+        $out = ManaTools::Shared::RunProgram::rooted("", '/usr/sbin/service', $service, 'status');
     }
     return $out;
 }
diff --git a/lib/AdminPanel/Shared/Shorewall.pm b/lib/AdminPanel/Shared/Shorewall.pm
index 0cd8ce2..f82c542 100644
--- a/lib/AdminPanel/Shared/Shorewall.pm
+++ b/lib/AdminPanel/Shared/Shorewall.pm
@@ -1,9 +1,9 @@
-package AdminPanel::Shared::Shorewall; # $Id: shorewall.pm 254244 2009-03-18 22:54:32Z eugeni $
+package ManaTools::Shared::Shorewall; # $Id: shorewall.pm 254244 2009-03-18 22:54:32Z eugeni $
 
 use detect_devices;
 use network::network;
-use AdminPanel::Shared::RunProgram;
-use AdminPanel::Shared::Services;
+use ManaTools::Shared::RunProgram;
+use ManaTools::Shared::Services;
 use MDK::Common::Func qw(if_ partition map_each);
 use MDK::Common::File qw(cat_ substInFile output_with_perm);
 use MDK::Common::Various qw(to_bool);
@@ -96,7 +96,7 @@ sub read_ {
     $ver = $o_ver if $o_ver;
     #- read old rules file if config is not moved to rules.drakx yet
     my @rules = get_config_file(-f "$::prefix${shorewall_root}${ver}/rules.drakx" ? 'rules.drakx' : 'rules', $ver);
-    my $services = AdminPanel::Shared::Services->new();
+    my $services = ManaTools::Shared::Services->new();
     my %conf = (disabled => !$services->starts_on_boot("shorewall${ver}"),
                 version => $ver,
                 ports => join(' ', map {
@@ -113,18 +113,18 @@ sub read_ {
 
     my @policy = get_config_file('policy', $ver);
     $conf{log_net_drop} = @policy ? (any { $_->[0] eq 'net' && $_->[1] eq 'all' && $_->[2] eq 'DROP' && $_->[3] } @policy) : 1;
-    
+
     return \%conf;
-    
-    # get_zones has been moved to AdminPanel::Module::Firewall cause it requires
+
+    # get_zones has been moved to ManaTools::Module::Firewall cause it requires
     # user interaction thus it should be logically separated by shorewall
     # get_zones(\%conf);
     # get_config_file('zones', $ver) && \%conf;
     # consequently, to read shorewall conf
     # you have to do something like this now (within Module::Firewall)
-    # my $conf = AdminPanel::Shared::Shorewall::read_();
+    # my $conf = ManaTools::Shared::Shorewall::read_();
     # OPTIONAL: my $self->get_zones(\$conf)
-    # my $shorewall = AdminPanel::Shared::Shorewall::get_config_file('zones', '') && $conf;
+    # my $shorewall = ManaTools::Shared::Shorewall::get_config_file('zones', '') && $conf;
 }
 
 sub ports_by_proto {
@@ -144,7 +144,7 @@ sub ports_by_proto {
 =head3 INPUT
 
   $conf: HASH, contains the configuration to write
-  
+
   $action: Str, possible values are "keep" or "drop"
 
 =head3 OUTPUT
@@ -159,12 +159,12 @@ the proper files.
 
 =head3 NOTES
 
-if write_ is called without the $action parameter it can return 0 
-(i.e. user interaction requested) when the firewall configuration 
+if write_ is called without the $action parameter it can return 0
+(i.e. user interaction requested) when the firewall configuration
 has been manually changed.
 
-In that case the developer will have to handle this request by providing 
-two choices within the domain (keep | drop) and then recall write_ with 
+In that case the developer will have to handle this request by providing
+two choices within the domain (keep | drop) and then recall write_ with
 the choosen behaviour.
 
 =cut
@@ -181,7 +181,7 @@ sub write_ {
     my ($include_drakx, $other_rules) = partition { $_ eq "INCLUDE\trules.drakx\n" } grep { !/^(#|SECTION)/ } cat_("$::prefix${shorewall_root}${ver}/rules");
     #- warn if the config is already in rules.drakx and additionnal rules are configured
     if (!is_empty_array_ref($include_drakx) && !is_empty_array_ref($other_rules)) {
-	if(!defined($action) || AdminPanel::Shared::trim($action) eq "")
+	if(!defined($action) || ManaTools::Shared::trim($action) eq "")
         {
 	    return 0; # user interaction requested
         }
@@ -197,7 +197,7 @@ sub write_ {
         my ($zone, $interface) = @_;
         [ $zone, $interface, 'detect', if_(detect_devices::is_bridge_interface($interface), 'bridge') ];
     };
-    
+
     set_config_file('zones', $ver,
                     if_($has_loc_zone, [ 'loc', 'ipv' . ($ver || '4') ]),
                     [ 'net', 'ipv' . ($ver || '4') ],
@@ -235,7 +235,7 @@ sub write_ {
     ));
     set_config_file('masq', $ver, if_(exists $conf->{masq}, [ $conf->{masq}{net_interface}, $conf->{masq}{subnet} ]));
 
-    my $services = AdminPanel::Shared::Services->new();
+    my $services = ManaTools::Shared::Services->new();
     if ($conf->{disabled}) {
         $services->disable('shorewall', $::isInstall);
         run_program::rooted($::prefix, '/sbin/shorewall', 'clear') unless $::isInstall;
@@ -259,12 +259,12 @@ sub set_redirected_ports {
 sub update_interfaces_list {
     my ($o_intf) = @_;
     if (!$o_intf || !member($o_intf, map { $_->[1] } get_config_file('interfaces'))) {
-        my $shorewall = AdminPanel::Shared::Shorewall::read_();
-        $shorewall && !$shorewall->{disabled} and AdminPanel::Shared::Shorewall::write_($shorewall);
+        my $shorewall = ManaTools::Shared::Shorewall::read_();
+        $shorewall && !$shorewall->{disabled} and ManaTools::Shared::Shorewall::write_($shorewall);
     }
     if (!$o_intf || !member($o_intf, map { $_->[1] } get_config_file('interfaces', 6))) {
-        my $shorewall6 = AdminPanel::Shared::Shorewall::read_(undef, 6);
-        $shorewall6 && !$shorewall6->{disabled} and AdminPanel::Shared::Shorewall::write_($shorewall6);
+        my $shorewall6 = ManaTools::Shared::Shorewall::read_(undef, 6);
+        $shorewall6 && !$shorewall6->{disabled} and ManaTools::Shared::Shorewall::write_($shorewall6);
     }
 }
 
diff --git a/lib/AdminPanel/Shared/TimeZone.pm b/lib/AdminPanel/Shared/TimeZone.pm
index 47a29af..efb49a2 100644
--- a/lib/AdminPanel/Shared/TimeZone.pm
+++ b/lib/AdminPanel/Shared/TimeZone.pm
@@ -1,15 +1,15 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::TimeZone;
+package ManaTools::Shared::TimeZone;
 
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Shared::TimeZone - module to manage TimeZone settings
+ManaTools::Shared::TimeZone - module to manage TimeZone settings
 
 =head1 SYNOPSIS
 
-    my $tz = AdminPanel::Shared::TimeZone->new();
+    my $tz = ManaTools::Shared::TimeZone->new();
 
 
 =head1 DESCRIPTION
@@ -20,7 +20,7 @@ This module allows to manage time zone settings.
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Shared::TimeZone
+perldoc ManaTools::Shared::TimeZone
 
 
 =head1 AUTHOR
@@ -57,8 +57,8 @@ use Moose;
 use DateTime::TimeZone;
 use Net::DBus;
 
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::Services;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::Services;
 
 use MDK::Common::File qw(cat_ output_p substInFile);
 use MDK::Common::Func qw(find if_);
@@ -191,7 +191,7 @@ has 'sh_services' => (
 sub _SharedServicesInitialize {
     my $self = shift();
 
-    $self->sh_services(AdminPanel::Shared::Services->new() );
+    $self->sh_services(ManaTools::Shared::Services->new() );
 }
 
 
@@ -250,7 +250,7 @@ sub _localeInitialize {
     my $self = shift;
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'libDrakX') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -732,7 +732,7 @@ sub setNTPServer {
     # TODO is that valid for any ntp program? adding ntp_service_name parameter
     my $ntpd = $self->ntp_program . 'd';
 
-    AdminPanel::Shared::disable_x_screensaver();
+    ManaTools::Shared::disable_x_screensaver();
     if ($self->isNTPRunning()) {
         $self->sh_services->stopService($ntpd);
     }
@@ -766,7 +766,7 @@ sub setNTPServer {
         $self->sh_services->startService($ntpd);
     }
 
-    AdminPanel::Shared::enable_x_screensaver();
+    ManaTools::Shared::enable_x_screensaver();
 }
 
 #=============================================================
diff --git a/lib/AdminPanel/Shared/Users.pm b/lib/AdminPanel/Shared/Users.pm
index dd759ee..83c6061 100644
--- a/lib/AdminPanel/Shared/Users.pm
+++ b/lib/AdminPanel/Shared/Users.pm
@@ -1,14 +1,14 @@
 # vim: set et ts=4 sw=4:
-package AdminPanel::Shared::Users;
+package ManaTools::Shared::Users;
 #============================================================= -*-perl-*-
 
 =head1 NAME
 
-AdminPanel::Shared::Users - backend to manage users
+ManaTools::Shared::Users - backend to manage users
 
 =head1 SYNOPSIS
 
-    my $userBackEnd = AdminPanel::Shared::Users->new();
+    my $userBackEnd = ManaTools::Shared::Users->new();
     my $userInfo    = $userManager->getUserInfo('username');
 
 =head1 DESCRIPTION
@@ -20,7 +20,7 @@ This module gives a low level access to the system user management it uses libUS
 
 You can find documentation for this module with the perldoc command:
 
-perldoc AdminPanel::Shared::Users
+perldoc ManaTools::Shared::Users
 
 =head1 SEE ALSO
 
@@ -66,8 +66,8 @@ use USER;
 use English;
 use POSIX qw/ceil/;
 
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared;
 
 
 #=============================================================
@@ -119,7 +119,7 @@ sub _localeInitialize {
     my $self = shift();
 
     # TODO fix domain binding for translation
-    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'userdrake') );
+    $self->loc(ManaTools::Shared::Locales->new(domain_name => 'userdrake') );
     # TODO if we want to give the opportunity to test locally add dir_name => 'path'
 }
 
@@ -275,7 +275,7 @@ sub face2png {
 
 =head3 DESCRIPTION
 
-    Retrieves the list of icon name from facesdir() 
+    Retrieves the list of icon name from facesdir()
 
 =cut
 
@@ -304,7 +304,7 @@ sub facenames {
 
 =head3 DESCRIPTION
 
-    Add a $user named icon to $self->user_face_dir. It just copies 
+    Add a $user named icon to $self->user_face_dir. It just copies
     $icon to $self->user_face_dir, naming it as $user
 
 =cut
@@ -461,7 +461,7 @@ sub updateOrDelUserInGroup {
     my $groups = $self->ctx->GroupsEnumerateFull;
     foreach my $g (@$groups) {
         my $members = $g->MemberName(1, 0);
-        if (AdminPanel::Shared::inArray($name, $members)) {
+        if (ManaTools::Shared::inArray($name, $members)) {
             eval { $g->MemberName($name, 2) };
             eval { $self->ctx->GroupModify($g) };
         }
@@ -801,14 +801,14 @@ sub modifyGroup {
             my $ugid = $uEnt->Gid($self->USER_GetValue);
             my $m    = $self->ctx->EnumerateUsersByGroup($orig_groupname);
             if (MDK::Common::DataStructure::member($user, @{$members})) {
-                if (!AdminPanel::Shared::inArray($user, $m)) {
+                if (!ManaTools::Shared::inArray($user, $m)) {
                     if ($ugid != $gid) {
                         eval { $groupEnt->MemberName($user, 1) };
                     }
                 }
             }
             else {
-                if (AdminPanel::Shared::inArray($user, $m)) {
+                if (ManaTools::Shared::inArray($user, $m)) {
                     if ($ugid == $gid) {
                         return {
                             status => 0,
@@ -1302,13 +1302,13 @@ sub modifyUser {
         my $ugid = $gEnt->Gid($self->USER_GetValue);
         my $m    = $gEnt->MemberName(1,0);
         if (MDK::Common::DataStructure::member($group, @$members)) {
-            if (!AdminPanel::Shared::inArray($username, $m) && $userInfo->{gid} != $ugid) {
+            if (!ManaTools::Shared::inArray($username, $m) && $userInfo->{gid} != $ugid) {
                 eval { $gEnt->MemberName($username, 1) };
                 $self->ctx->GroupModify($gEnt);
             }
         }
         else {
-            if (AdminPanel::Shared::inArray($username, $m)) {
+            if (ManaTools::Shared::inArray($username, $m)) {
                 eval { $gEnt->MemberName($username, 2) };
                 $self->ctx->GroupModify($gEnt);
             }
@@ -1463,16 +1463,16 @@ sub GetFaceIcon {
     my $i;
     my $current_icon;
     # remove shortcut "&" from label
-    $name =~ s/&// if ($name); 
+    $name =~ s/&// if ($name);
     my $user_icon = $self->user_face_dir . $name . ".png" if ($name);
     if ($name) {
         $user_icon    = $self->face2png($name) unless(-e $user_icon);
     }
     if ($name && -e $user_icon) {
-        my $current_md5 = AdminPanel::Shared::md5sum($user_icon);
+        my $current_md5 = ManaTools::Shared::md5sum($user_icon);
         my $found = 0;
         for ($i = 0; $i < scalar(@$icons); $i++) {
-            if (AdminPanel::Shared::md5sum($self->face2png($icons->[$i])) eq $current_md5) {
+            if (ManaTools::Shared::md5sum($self->face2png($icons->[$i])) eq $current_md5) {
                 $found = 1;
                 last;
             }
@@ -1518,9 +1518,9 @@ sub GetFaceIcon {
 #=============================================================
 sub strongPassword {
     my ($self, $passwd, $threshold) = @_;
-    
+
     return 0 if !$passwd;
-    
+
     my $pwdm = $threshold ? Data::Password::Meter->new($threshold) : Data::Password::Meter->new();
 
     # Check a password
diff --git a/lib/AdminPanel/rpmdragora.pm b/lib/AdminPanel/rpmdragora.pm
index 98e5d27..ecdf06f 100644
--- a/lib/AdminPanel/rpmdragora.pm
+++ b/lib/AdminPanel/rpmdragora.pm
@@ -24,7 +24,7 @@
 #
 # $Id: rpmdragora.pm 267936 2010-04-26 16:40:21Z jvictor $
 
-package AdminPanel::rpmdragora;
+package ManaTools::rpmdragora;
 use warnings::register;
 
 use urpm;
@@ -49,9 +49,9 @@ use POSIX qw(_exit);
 
 use feature 'state';
 
-use AdminPanel::Shared;
-use AdminPanel::Shared::Locales;
-use AdminPanel::Shared::GUI;
+use ManaTools::Shared;
+use ManaTools::Shared::Locales;
+use ManaTools::Shared::GUI;
 
 use Carp;
 
@@ -121,7 +121,7 @@ use Glib;
 #ugtk2::add_icon_path('/usr/share/rpmdragora/icons');
 
 # Locale::gettext::bind_textdomain_codeset('rpmdragora', 'UTF8');
-my $loc = AdminPanel::Shared::Locales->new(domain_name => 'rpmdrake');;
+my $loc = ManaTools::Shared::Locales->new(domain_name => 'rpmdrake');;
 
 our $mageia_release = MDK::Common::File::cat_(
     -e '/etc/mageia-release' ? '/etc/mageia-release' : '/etc/release'
@@ -139,7 +139,7 @@ our $myname_update = $branded ? $loc->N_("Software Update") : $loc->N_("Mageia U
 sub locale() {
 
     if (!defined($loc)) {
-       $loc = AdminPanel::Shared::Locales->new(domain_name => 'rpmdrake');
+       $loc = ManaTools::Shared::Locales->new(domain_name => 'rpmdrake');
     }
 
     return $loc;
@@ -182,7 +182,7 @@ sub myexit {
 
 my ($root) = grep { $_->[2] == 0 } list_passwd();
 $ENV{HOME} = $> == 0 ? $root->[7] : $ENV{HOME} || '/root';
-$ENV{HOME} = $::env if $::env = $AdminPanel::Rpmdragora::init::rpmdragora_options{env}[0];
+$ENV{HOME} = $::env if $::env = $ManaTools::Rpmdragora::init::rpmdragora_options{env}[0];
 
 our $configfile = "$ENV{HOME}/.rpmdragora";
 
@@ -237,7 +237,7 @@ sub readconf() {
     }
     # special cases:
     $::rpmdragora_options{'no-confirmation'} = $no_confirmation->[0] if !defined $::rpmdragora_options{'no-confirmation'};
-    $AdminPanel::Rpmdragora::init::default_list_mode = $tree_mode->[0] if ref $tree_mode && !$AdminPanel::Rpmdragora::init::overriding_config;
+    $ManaTools::Rpmdragora::init::default_list_mode = $tree_mode->[0] if ref $tree_mode && !$ManaTools::Rpmdragora::init::overriding_config;
 }
 
 sub writeconf() {
@@ -962,7 +962,7 @@ sub update_sources_noninteractive {
 sub add_distrib_update_media {
     my ($urpm, $mirror, %options) = @_;
     #- ensure a unique medium name
-    my $medium_name = $AdminPanel::rpmdragora::mageia_release =~ /(\d+\.\d+) \((\w+)\)/ ? $2 . $1 . '-' : 'distrib';
+    my $medium_name = $ManaTools::rpmdragora::mageia_release =~ /(\d+\.\d+) \((\w+)\)/ ? $2 . $1 . '-' : 'distrib';
     my $initial_number = 1 + max map { $_->{name} =~ /\(\Q$medium_name\E(\d+)\b/ ? $1 : 0 } @{$urpm->{media}};
     add_medium_and_check(
         $urpm,
@@ -1021,7 +1021,7 @@ by Mageia Official Updates.")), %options
 
     my @mirrorlist = map {$_->{country} . "|" . $_->{url}} @mirrors;
 
-    my $sh_gui = AdminPanel::Shared::GUI->new();
+    my $sh_gui = ManaTools::Shared::GUI->new();
     my $mirror = $sh_gui->ask_fromTreeList({title => $loc->N("Mirror choice"),
         header => $loc->N("Please choose the desired mirror."),
         default_button => 1,
@@ -1091,18 +1091,18 @@ sub mirrors {
                 $id and statusbar_msg_remove($id);
             };
 
-            require AdminPanel::Rpmdragora::gurpm;
-            require AdminPanel::Rpmdragora::pkg;
+            require ManaTools::Rpmdragora::gurpm;
+            require ManaTools::Rpmdragora::pkg;
 
             my $res = urpm::download::sync_url($urpm, $url,
                                            dir => $cachedir,
                                            callback => sub {
                                                $gurpm ||=
-                                                 AdminPanel::Rpmdragora::gurpm->new(
+                                                 ManaTools::Rpmdragora::gurpm->new(
                                                      text => $loc->N("Please wait"),
                                                  );
                                                $canceled ||=
-                                                 !AdminPanel::Rpmdragora::pkg::download_callback($gurpm, @_);
+                                                 !ManaTools::Rpmdragora::pkg::download_callback($gurpm, @_);
                                                $gurpm->flush();
                                            },
                                        );
@@ -1111,8 +1111,8 @@ sub mirrors {
         });
     my @mirrors = @{ mirror::list(urpm::mirrors::parse_LDAP_namespace_structure(MDK::Common::File::cat_('/etc/product.id')), 'distrib') || [] };
 
-    require AdminPanel::Shared::TimeZone;
-    my $tzo = AdminPanel::Shared::TimeZone->new();
+    require ManaTools::Shared::TimeZone;
+    my $tzo = ManaTools::Shared::TimeZone->new();
     my $tz = $tzo->readConfiguration()->{ZONE};
     foreach my $mirror (@mirrors) {
         my $goodness = 0;
@@ -1140,16 +1140,16 @@ sub mirrors {
 
 sub open_help {
     my ($mode) = @_;
-    require AdminPanel::Shared::RunProgram;
-    AdminPanel::Shared::RunProgram::raw({ detach => 1, as_user => 1 },  'drakhelp', '--id', $mode ?  "software-management-$mode" : 'software-management');
+    require ManaTools::Shared::RunProgram;
+    ManaTools::Shared::RunProgram::raw({ detach => 1, as_user => 1 },  'drakhelp', '--id', $mode ?  "software-management-$mode" : 'software-management');
     my $_s = $loc->N("Help launched in background");
     statusbar_msg($loc->N("The help window has been started, it should appear shortly on your desktop."), 1);
 }
 
 sub run_drakbug {
     my ($id) = @_;
-    require AdminPanel::Shared::RunProgram;
-    AdminPanel::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'drakbug', '--report', $id);
+    require ManaTools::Shared::RunProgram;
+    ManaTools::Shared::RunProgram::raw({ detach => 1, as_user => 1 }, 'drakbug', '--report', $id);
 }
 
 #mygtk2::add_icon_path('/usr/share/mcc/themes/default/');