diff options
author | Angelo Naselli <anaselli@linux.it> | 2014-12-10 18:22:14 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2014-12-10 18:22:14 +0100 |
commit | 35359e4f0abdf7bccb915866cd464cc5a0ea5474 (patch) | |
tree | f279f5973dc983933f76201375aabbba3feb8f7e /scripts | |
parent | 742aef75e939b44cbeccc5304e265b6fa59235d2 (diff) | |
download | manatools-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar manatools-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.gz manatools-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.bz2 manatools-35359e4f0abdf7bccb915866cd464cc5a0ea5474.tar.xz manatools-35359e4f0abdf7bccb915866cd464cc5a0ea5474.zip |
moved mpan.pl to mpan, easier to run by command line
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/mana | 2 | ||||
-rwxr-xr-x | scripts/mpan (renamed from scripts/mpan.pl) | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/scripts/mana b/scripts/mana index 329f3b25..45acbfd3 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 29b6d8e6..589a72e3 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 |