diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-08-29 23:21:35 +0200 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-08-29 23:21:35 +0200 |
commit | a71418320fa42a92acb436b07bcbe7873a5674e2 (patch) | |
tree | b90c820f18e44120ff44f50c0a2968fa67a2d333 /scripts/apanel.pl | |
parent | 7d8e3ff2d4d9f6671c7975488a8c1a00ed4e79bb (diff) | |
download | manatools-a71418320fa42a92acb436b07bcbe7873a5674e2.tar manatools-a71418320fa42a92acb436b07bcbe7873a5674e2.tar.gz manatools-a71418320fa42a92acb436b07bcbe7873a5674e2.tar.bz2 manatools-a71418320fa42a92acb436b07bcbe7873a5674e2.tar.xz manatools-a71418320fa42a92acb436b07bcbe7873a5674e2.zip |
moved to mpan.pl new mageia admin tool launcher panel
Diffstat (limited to 'scripts/apanel.pl')
-rwxr-xr-x | scripts/apanel.pl | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/scripts/apanel.pl b/scripts/apanel.pl deleted file mode 100755 index 75606e60..00000000 --- a/scripts/apanel.pl +++ /dev/null @@ -1,105 +0,0 @@ -#!/usr/bin/perl -# vim: set et ts=4 sw=4: -# Copyright 2012 Steven Tucker -# Copyright 2013 Matteo Pasotti -# Copyright 2014 Angelo Naselli -# -# This file is part of AdminPanel -# -# AdminPanel 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, -# 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/>. - -use strict; -use warnings; -use diagnostics; -use AdminPanel::Privileges; -use AdminPanel::SettingsReader; -use AdminPanel::MainDisplay; -use yui; - -my $cmdline = new yui::YCommandLine; - -usage() if($cmdline->find("--help") > 0 || $cmdline->find("-h") > 0); - -my $settings = getSettings(); - -if($cmdline->find("--dev") > 0) -{ - print "== Development mode ON\n"; -} -else -{ - ask_for_authentication($settings->{priv_method}) if(is_root_capability_required()); -} -my $mainWin = new AdminPanel::MainDisplay(); -while (1) { - my $launch = $mainWin->start(); - - if ($launch) { - $mainWin->destroy(); - $launch->start(); - } - else { - $mainWin->destroy(); - last; - } - $mainWin->setupGui(); -} - - -sub usage { - print "\n"; - print "Usage apanel [options...]\n\n"; - print "Options:\n"; - print "\t--help | -h print this help\n"; -## anaselli: --name now is used only to add a path to /etc (e.g. --name mcc2 means /etc/mcc2) - # and it is overriden by --conf_dir, so it should be discussed better to understand - # if it is really needed any more. - # Window title is got from settings.conf (key title) - print "\t--name string specify the window title of the administration panel\n"; - print "\t--conf_dir path specify the settings.conf file directory\n"; - print "\n"; - exit(0); -} - -# adpanel settings -sub getSettings { - my ($self) = @_; - - my $confDir = "/etc/mpan"; - # yui commandline parser - my $pos = $cmdline->find("--conf_dir"); - if($pos > 0){ - $confDir = $cmdline->arg($pos + 1); - } - else { - $pos = $cmdline->find("--name"); - if ($pos > 0) - { - $confDir = "/etc/" . $cmdline->arg($pos+1); - } - } - # configuration file name - my $fileName = "$confDir/settings.conf"; - return new AdminPanel::SettingsReader($fileName); -} - -=pod - -=head1 main - - main launcher - -=cut - -1; |