From a71418320fa42a92acb436b07bcbe7873a5674e2 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Fri, 29 Aug 2014 23:21:35 +0200 Subject: moved to mpan.pl new mageia admin tool launcher panel --- scripts/apanel.pl | 105 ------------------------------------------------------ scripts/mpan.pl | 105 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 105 insertions(+), 105 deletions(-) delete mode 100755 scripts/apanel.pl create mode 100755 scripts/mpan.pl (limited to 'scripts') 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 . - -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; diff --git a/scripts/mpan.pl b/scripts/mpan.pl new file mode 100755 index 00000000..6541d45d --- /dev/null +++ b/scripts/mpan.pl @@ -0,0 +1,105 @@ +#!/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 . + +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 mpan.pl [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; -- cgit v1.2.1