From 98c6ad3a11f860290f9f8aa2effd7e10f46f71cf Mon Sep 17 00:00:00 2001
From: Matteo Pasotti <matteo.pasotti@gmail.com>
Date: Sun, 9 Feb 2014 01:20:50 +0100
Subject: added development mode option support (skip auth using --dev arg)

---
 scripts/apanel.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'scripts')

diff --git a/scripts/apanel.pl b/scripts/apanel.pl
index 750f3f1..ca8834c 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();   
 
-- 
cgit v1.2.1