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 /scripts/apanel.pl | |
parent | f519e47d15103514585a272c6308467ac41ce551 (diff) | |
download | colin-keep-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar colin-keep-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.gz colin-keep-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.bz2 colin-keep-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.tar.xz colin-keep-1624ce382eb033c2cf3ef1fe6b9c41beb0b0a91b.zip |
Project structure change
Diffstat (limited to 'scripts/apanel.pl')
-rwxr-xr-x | scripts/apanel.pl | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/scripts/apanel.pl b/scripts/apanel.pl new file mode 100755 index 0000000..750f3f1 --- /dev/null +++ b/scripts/apanel.pl @@ -0,0 +1,95 @@ +#!/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 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(); + +ask_for_authentication($settings->{priv_method}) if(require_root_capability()); + + 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) = @_; + # 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 AdminPanel::SettingsReader($fileName); +} + +=pod + +=head1 main + + main launcher + +=cut + +1; |