diff options
author | Angelo Naselli <anaselli@mageia.org> | 2012-11-06 13:28:57 +0000 |
---|---|---|
committer | Angelo Naselli <anaselli@mageia.org> | 2012-11-06 13:28:57 +0000 |
commit | 5a38703a90989bca6a3e2c858c3f9467895316f9 (patch) | |
tree | 6748e9227961f7d5e06d87ae9835718fe10ee4e9 /apanel.pl | |
parent | 3a1c2a678967d3826e400b6d14961670d423aca4 (diff) | |
download | manatools-5a38703a90989bca6a3e2c858c3f9467895316f9.tar manatools-5a38703a90989bca6a3e2c858c3f9467895316f9.tar.gz manatools-5a38703a90989bca6a3e2c858c3f9467895316f9.tar.bz2 manatools-5a38703a90989bca6a3e2c858c3f9467895316f9.tar.xz manatools-5a38703a90989bca6a3e2c858c3f9467895316f9.zip |
using yui::YCommandLine only for all, at the moment
Diffstat (limited to 'apanel.pl')
-rwxr-xr-x | apanel.pl | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -22,16 +22,13 @@ use warnings; use diagnostics; use FindBin; use lib "$FindBin::RealBin"; -use Getopt::Long; use Auth; use MainDisplay; use yui; -my $help=0; +my $cmdline = new yui::YCommandLine; -my $result = GetOptions ("help" => \$help); - -usage() if($help); +usage() if($cmdline->find("--help") > 0 || $cmdline->find("-h") > 0); ask_for_authentication() if(require_root_capability()); @@ -61,6 +58,10 @@ sub usage { 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"; |