aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xapanel.pl11
1 files changed, 6 insertions, 5 deletions
diff --git a/apanel.pl b/apanel.pl
index 6e50f2c..d1c5c1e 100755
--- a/apanel.pl
+++ b/apanel.pl
@@ -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";