diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-01-27 18:20:30 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-01-27 18:20:30 +0100 |
commit | 1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b (patch) | |
tree | 1363e3d3bdcfa5b2ff3111a41b2c700a5a922140 /apanel.pl | |
parent | f519e47d15103514585a272c6308467ac41ce551 (diff) | |
download | manatools-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar manatools-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.gz manatools-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.bz2 manatools-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.xz manatools-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.zip |
Project structure change
Diffstat (limited to 'apanel.pl')
-rwxr-xr-x | apanel.pl | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/apanel.pl b/apanel.pl deleted file mode 100755 index f75c2fab..00000000 --- a/apanel.pl +++ /dev/null @@ -1,95 +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 FindBin; -use lib "$FindBin::RealBin"; -use SettingsReader; -use MainDisplay; -use yui; - -my $cmdline = new yui::YCommandLine; - -usage() if($cmdline->find("--help") > 0 || $cmdline->find("-h") > 0); - -my $settings = getSettings(); - -ask_for_authentication($settings->{priv_method}) if(require_root_capability()); - - my $mainWin = new 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) = @_; - # yui commandline parser - my $pos = $cmdline->find("--conf_dir"); - my $confDir = "/etc/apanel"; - if($pos > 0){ - $confDir = $cmdline->arg($pos + 1); - }else{ - $confDir = "/etc/apanel"; - } - # configuration file name - my $fileName = "$confDir/settings.conf"; - return new SettingsReader($fileName); -} - -=pod - -=head1 main - - main launcher - -=cut - -1; |