moved mpan.pl to mpan, easier to run by command line

1 files changed, 0 insertions, 102 deletions

diff --git a/scripts/mpan.pl b/scripts/mpan.pl
deleted file mode 100755
index 29b6d8e6..00000000
--- a/scripts/mpan.pl
+++ /dev/null
@@ -1,102 +0,0 @@
-#!/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 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();
-
-if ($cmdline->find("--dev") > 0) {
-    print "== Development mode ON\n";
-}
-else {
-    ask_for_authentication($settings->{priv_method}) if is_root_capability_required();
-}
-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 mpan.pl [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) = @_;
-
-    my $confDir = "/etc/mpan";
-    # yui commandline parser
-    my $pos = $cmdline->find("--conf_dir");
-    if ($pos > 0) {
-        $confDir = $cmdline->arg($pos + 1);
-    }
-    else {
-        $pos = $cmdline->find("--name");
-        if ($pos > 0) {
-            $confDir = "/etc/" . $cmdline->arg($pos+1);
-        }
-    }
-    # configuration file name
-    my $fileName = "$confDir/settings.conf";
-    return new AdminPanel::SettingsReader($fileName);
-}
-
-=pod
-
-=head1 main
-       
-       main launcher
-
-=cut
-
-1;