diff options
-rwxr-xr-x | scripts/apanel.pl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/scripts/apanel.pl b/scripts/apanel.pl index 750f3f13..ca8834c8 100755 --- a/scripts/apanel.pl +++ b/scripts/apanel.pl @@ -23,8 +23,6 @@ use strict; use warnings; use diagnostics; use AdminPanel::Privileges; -use FindBin; -use lib "$FindBin::RealBin"; use AdminPanel::SettingsReader; use AdminPanel::MainDisplay; use yui; @@ -35,9 +33,15 @@ 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(); +if($cmdline->find("--dev") > 0) +{ + print "== Development mode ON\n"; +} +else +{ + ask_for_authentication($settings->{priv_method}) if(require_root_capability()); +} +my $mainWin = new AdminPanel::MainDisplay(); while (1) { my $launch = $mainWin->start(); |