aboutsummaryrefslogtreecommitdiffstats
path: root/scripts
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2014-12-10 18:22:14 +0100
committerAngelo Naselli <anaselli@linux.it>2014-12-10 18:22:14 +0100
commit35359e4f0abdf7bccb915866cd464cc5a0ea5474 (patch)
treef279f5973dc983933f76201375aabbba3feb8f7e /scripts
parent742aef75e939b44cbeccc5304e265b6fa59235d2 (diff)
downloadcolin-keep-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar
colin-keep-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.gz
colin-keep-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.bz2
colin-keep-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.xz
colin-keep-35359e4f0abdf7bccb915866cd464cc5a0ea5474.zip
moved mpan.pl to mpan, easier to run by command line
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/mana2
-rwxr-xr-xscripts/mpan (renamed from scripts/mpan.pl)10
2 files changed, 6 insertions, 6 deletions
diff --git a/scripts/mana b/scripts/mana
index 329f3b2..45acbfd 100755
--- a/scripts/mana
+++ b/scripts/mana
@@ -51,7 +51,7 @@ my %modules = (
descr => "manahost: hosts manager",
},
pan => {
- exec => '/usr/bin/mpan.pl',
+ exec => '/usr/bin/mpan',
descr => "mpan: admin panel",
},
proxy => {
diff --git a/scripts/mpan.pl b/scripts/mpan
index 29b6d8e..589a72e 100755
--- a/scripts/mpan.pl
+++ b/scripts/mpan
@@ -41,9 +41,9 @@ else {
}
my $mainWin = new AdminPanel::MainDisplay();
while (1) {
- my $launch = $mainWin->start();
+ my $launch = $mainWin->start();
- if ($launch) {
+ if ($launch) {
$mainWin->destroy();
$launch->start();
}
@@ -57,12 +57,12 @@ while (1) {
sub usage {
print "\n";
- print "Usage mpan.pl [options...]\n\n";
+ print "Usage mpan [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.
+ # 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";
@@ -94,7 +94,7 @@ sub getSettings {
=pod
=head1 main
-
+
main launcher
=cut